← Back to branch summary

~clint-fewbar/+junk/libcache-memcached-libmemcached-perl

« back to all changes in this revision

Viewing changes to t/16_hashing_algorithm.t

  • Committer: Clint Byrum
  • Date: 2010-06-15 07:34:17 UTC
  • Revision ID: clint@ubuntu.com-20100615073417-0t8ex3f9qwjfy3y2
https://launchpad.net/bugs/594475
Initial Release. (LP: #594475)

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/16_hashing_algorithm.t
 
1
use strict;
 
2
use lib 't/lib';
 
3
use libmemcached_test;
 
4
use Test::More;
 
5
 
 
6
libmemcached_test_create();
 
7
plan(tests => 8);
 
8
 
 
9
{
 
10
    my $cache = libmemcached_test_create();
 
11
    isa_ok($cache, "Cache::Memcached::libmemcached");
 
12
 
 
13
    is( $cache->get_hashing_algorithm,
 
14
        Memcached::libmemcached::MEMCACHED_HASH_DEFAULT );
 
15
 
 
16
    $cache->set_hashing_algorithm(Memcached::libmemcached::MEMCACHED_HASH_MD5);
 
17
    is( $cache->get_hashing_algorithm,
 
18
        Memcached::libmemcached::MEMCACHED_HASH_MD5 );
 
19
 
 
20
    my $value = "non-block via accessor";
 
21
    $cache->remove(__FILE__);
 
22
    $cache->set(__FILE__, $value);
 
23
 
 
24
    is($cache->get(__FILE__), $value);
 
25
}
 
26
 
 
27
{
 
28
    my $cache = libmemcached_test_create( {
 
29
        hashing_algorithm => Memcached::libmemcached::MEMCACHED_HASH_MD5(),
 
30
    } );
 
31
    isa_ok($cache, "Cache::Memcached::libmemcached");
 
32
 
 
33
    is( $cache->get_hashing_algorithm,
 
34
        Memcached::libmemcached::MEMCACHED_HASH_MD5 );
 
35
 
 
36
    $cache->set_hashing_algorithm(Memcached::libmemcached::MEMCACHED_HASH_DEFAULT);
 
37
    is( $cache->get_hashing_algorithm,
 
38
        Memcached::libmemcached::MEMCACHED_HASH_DEFAULT );
 
39
 
 
40
    my $value = "non-block via constructor";
 
41
    $cache->remove(__FILE__);
 
42
    $cache->set(__FILE__, $value);
 
43
 
 
44
    is($cache->get(__FILE__), $value);
 
45
}
 
46