Changeset 8527

Show
Ignore:
Timestamp:
03/30/08 23:49:18 (5 years ago)
Author:
daisuke
Message:

lang/perl/Cache-Memcached-libmemcached; Add constants testing

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Cache-Memcached-libmemcached/trunk/t/01_load.t

    r6655 r8527  
    11use strict; 
    2 use Test::More (tests => 2); 
     2use Test::More (tests => 18); 
    33 
    44use_ok("Cache::Memcached::libmemcached"); 
    … …  
    77    qw(is_no_block set_no_block get_distribution_method set_distribution_method get_hashing_algorithm set_hashing_algorithm), 
    88) ); 
     9 
     10package DummyOne; 
     11Test::More::use_ok("Cache::Memcached::libmemcached", ":defines"); 
     12Test::More::can_ok(__PACKAGE__, 
     13    qw( MEMCACHED_DEFAULT_PORT MEMCACHED_DEFAULT_TIMEOUT MEMCACHED_MAX_BUFFER MEMCACHED_MAX_HOST_LENGTH MEMCACHED_MAX_KEY MEMCACHED_STRIDE MEMCACHED_VERSION_STRING_LENGTH MEMCACHED_WHEEL_SIZE ) ); 
     14 
     15package DummyTwo; 
     16Test::More::use_ok("Cache::Memcached::libmemcached", ":memcached_allocated"); 
     17Test::More::can_ok(__PACKAGE__, 
     18    qw( MEMCACHED_ALLOCATED MEMCACHED_NOT_ALLOCATED MEMCACHED_USED )); 
     19 
     20package DummyThree; 
     21Test::More::use_ok("Cache::Memcached::libmemcached", ":memcached_behavior"); 
     22Test::More::can_ok(__PACKAGE__, 
     23    qw( MEMCACHED_BEHAVIOR_BUFFER_REQUESTS MEMCACHED_BEHAVIOR_CACHE_LOOKUPS MEMCACHED_BEHAVIOR_CONNECT_TIMEOUT MEMCACHED_BEHAVIOR_DISTRIBUTION MEMCACHED_BEHAVIOR_HASH MEMCACHED_BEHAVIOR_KETAMA MEMCACHED_BEHAVIOR_NO_BLOCK MEMCACHED_BEHAVIOR_POLL_TIMEOUT MEMCACHED_BEHAVIOR_SOCKET_RECV_SIZE MEMCACHED_BEHAVIOR_SOCKET_SEND_SIZE MEMCACHED_BEHAVIOR_SORT_HOSTS MEMCACHED_BEHAVIOR_SUPPORT_CAS MEMCACHED_BEHAVIOR_TCP_NODELAY MEMCACHED_BEHAVIOR_VERIFY_KEY) ); 
     24 
     25package DummyFour; 
     26Test::More::use_ok("Cache::Memcached::libmemcached", ":memcached_callback"); 
     27Test::More::can_ok(__PACKAGE__, 
     28    qw( 
     29         MEMCACHED_CALLBACK_CLEANUP_FUNCTION 
     30         MEMCACHED_CALLBACK_CLONE_FUNCTION 
     31         MEMCACHED_CALLBACK_FREE_FUNCTION 
     32         MEMCACHED_CALLBACK_MALLOC_FUNCTION 
     33         MEMCACHED_CALLBACK_REALLOC_FUNCTION 
     34         MEMCACHED_CALLBACK_USER_DATA 
     35    ) 
     36); 
     37 
     38package DummyFive; 
     39Test::More::use_ok("Cache::Memcached::libmemcached", ":memcached_connection"); 
     40Test::More::can_ok(__PACKAGE__, 
     41    qw( 
     42         MEMCACHED_CONNECTION_TCP 
     43         MEMCACHED_CONNECTION_UDP 
     44         MEMCACHED_CONNECTION_UNIX_SOCKET 
     45         MEMCACHED_CONNECTION_UNKNOWN 
     46    ) 
     47); 
     48 
     49package DummySix; 
     50Test::More::use_ok("Cache::Memcached::libmemcached", ":memcached_hash"); 
     51Test::More::can_ok(__PACKAGE__, 
     52    qw( 
     53         MEMCACHED_HASH_CRC 
     54         MEMCACHED_HASH_DEFAULT 
     55         MEMCACHED_HASH_FNV1A_32 
     56         MEMCACHED_HASH_FNV1A_64 
     57         MEMCACHED_HASH_FNV1_32 
     58         MEMCACHED_HASH_FNV1_64 
     59         MEMCACHED_HASH_HSIEH 
     60         MEMCACHED_HASH_KETAMA 
     61         MEMCACHED_HASH_MD5 
     62    ) 
     63); 
     64 
     65package DummySeven; 
     66Test::More::use_ok("Cache::Memcached::libmemcached", ":memcached_return"); 
     67Test::More::can_ok(__PACKAGE__, 
     68    qw( 
     69         MEMCACHED_BAD_KEY_PROVIDED 
     70         MEMCACHED_BUFFERED 
     71         MEMCACHED_CLIENT_ERROR 
     72         MEMCACHED_CONNECTION_BIND_FAILURE 
     73         MEMCACHED_CONNECTION_FAILURE 
     74         MEMCACHED_CONNECTION_SOCKET_CREATE_FAILURE 
     75         MEMCACHED_DATA_DOES_NOT_EXIST 
     76         MEMCACHED_DATA_EXISTS 
     77         MEMCACHED_DELETED 
     78         MEMCACHED_END 
     79         MEMCACHED_ERRNO 
     80         MEMCACHED_FAILURE 
     81         MEMCACHED_FAIL_UNIX_SOCKET 
     82         MEMCACHED_FETCH_NOTFINISHED 
     83         MEMCACHED_HOST_LOOKUP_FAILURE 
     84         MEMCACHED_MAXIMUM_RETURN 
     85         MEMCACHED_MEMORY_ALLOCATION_FAILURE 
     86         MEMCACHED_NOTFOUND 
     87         MEMCACHED_NOTSTORED 
     88         MEMCACHED_NOT_SUPPORTED 
     89         MEMCACHED_NO_KEY_PROVIDED 
     90         MEMCACHED_NO_SERVERS 
     91         MEMCACHED_PARTIAL_READ 
     92         MEMCACHED_PROTOCOL_ERROR 
     93         MEMCACHED_READ_FAILURE 
     94         MEMCACHED_SERVER_ERROR 
     95         MEMCACHED_SOME_ERRORS 
     96         MEMCACHED_STAT 
     97         MEMCACHED_STORED 
     98         MEMCACHED_SUCCESS 
     99         MEMCACHED_TIMEOUT 
     100         MEMCACHED_UNKNOWN_READ_FAILURE 
     101         MEMCACHED_VALUE 
     102         MEMCACHED_WRITE_FAILURE 
     103    ) 
     104); 
     105 
     106package DummyEight; 
     107Test::More::use_ok("Cache::Memcached::libmemcached", ":memcached_server_distribution"); 
     108Test::More::can_ok(__PACKAGE__, 
     109    qw( 
     110         MEMCACHED_DISTRIBUTION_CONSISTENT 
     111         MEMCACHED_DISTRIBUTION_MODULA 
     112    ) 
     113);