0
|
1 # -*-perl-*-
|
|
2
|
|
3 use strict;
|
|
4 use Test::More;
|
|
5 use Cache::Memcached;
|
|
6 use IO::Socket::INET;
|
|
7
|
|
8 my $testaddr = "127.0.0.1:11211";
|
|
9 my $msock = IO::Socket::INET->new(PeerAddr => $testaddr,
|
|
10 Timeout => 3);
|
|
11 if ($msock) {
|
2
|
12 plan tests => 14;
|
0
|
13 } else {
|
|
14 plan skip_all => "No memcached instance running at $testaddr\n";
|
|
15 exit 0;
|
|
16 }
|
|
17
|
|
18 my $memd = Cache::Memcached->new({
|
|
19 servers => [ $testaddr ],
|
|
20 namespace => "Cache::Memcached::t/$$/" . (time() % 100) . "/",
|
|
21 });
|
|
22
|
|
23
|
|
24 ok($memd->set("key1", "val1"), "set succeeded");
|
|
25
|
|
26 is($memd->get("key1"), "val1", "get worked");
|
|
27 ok(! $memd->add("key1", "val-replace"), "add properly failed");
|
|
28 ok($memd->add("key2", "val2"), "add worked on key2");
|
|
29 is($memd->get("key2"), "val2", "get worked");
|
|
30
|
|
31 ok($memd->replace("key2", "val-replace"), "replace worked");
|
|
32 ok(! $memd->replace("key-noexist", "bogus"), "replace failed");
|
|
33
|
2
|
34 ok($memd->set("key1", "1"), "set before append/prepend");
|
|
35 ok($memd->append("key1", "2"), "append worked");
|
|
36 ok($memd->prepend("key1", "3"), "prepend worked");
|
|
37 is($memd->get("key1"), "312", "append/prepend result check");
|
|
38
|
0
|
39 my $stats = $memd->stats;
|
|
40 ok($stats, "got stats");
|
|
41 is(ref $stats, "HASH", "is a hashref");
|
|
42
|
|
43
|
|
44 # also make one without a hashref
|
|
45 my $mem2 = Cache::Memcached->new(
|
|
46 servers => [ ],
|
|
47 debug => 1,
|
|
48 );
|
|
49 ok($mem2->{debug}, "debug is set on alt constructed instance");
|