Changeset 605
- Timestamp:
- 08/07/07 20:33:23 (1 year ago)
- Files:
-
- trunk/api/perl/ChangeLog (modified) (1 diff)
- trunk/api/perl/t/01_use.t (modified) (1 diff)
- trunk/api/perl/t/02_keys.t (modified) (3 diffs)
- trunk/api/perl/t/03_stats.t (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/api/perl/ChangeLog
r601 r605 1 * various test updates from Ronald J Kimball <rkimball@pangeamedia.com> 2 1 3 2007-07-17: version 1.24 2 4 trunk/api/perl/t/01_use.t
r577 r605 1 1 #!/usr/bin/env perl -w 2 2 3 use strict; 3 use Test; 4 BEGIN { plan tests => 1 } 4 use Test::More; 5 5 6 use Cache::Memcached; ok(1); 7 exit; 6 plan tests => 1; 7 8 use_ok('Cache::Memcached'); trunk/api/perl/t/02_keys.t
r577 r605 1 # -*-perl-*-1 #!/usr/bin/env perl -w 2 2 3 3 use strict; … … 10 10 Timeout => 3); 11 11 if ($msock) { 12 plan tests => 1 0;12 plan tests => 13; 13 13 } else { 14 14 plan skip_all => "No memcached instance running at $testaddr\n"; … … 21 21 }); 22 22 23 isa_ok($memd, 'Cache::Memcached'); 23 24 24 ok($memd->set("key1", "val1"), "set succeeded");25 ok($memd->set("key1", "val1"), "set key1 as val1"); 25 26 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");27 is($memd->get("key1"), "val1", "get key1 is val1"); 28 ok(! $memd->add("key1", "val-replace"), "add key1 properly failed"); 29 ok($memd->add("key2", "val2"), "add key2 as val2"); 30 is($memd->get("key2"), "val2", "get key2 is val2"); 30 31 31 ok($memd->replace("key2", "val-replace"), "replace worked"); 32 ok(! $memd->replace("key-noexist", "bogus"), "replace failed"); 32 ok($memd->replace("key2", "val-replace"), "replace key2 as val-replace"); 33 is($memd->get("key2"), "val-replace", "get key2 is val-replace"); 34 ok(! $memd->replace("key-noexist", "bogus"), "replace key-noexist properly failed"); 33 35 34 my $stats = $memd->stats; 35 ok($stats, "got stats"); 36 is(ref $stats, "HASH", "is a hashref"); 36 ok($memd->delete("key1"), "delete key1"); 37 ok(! $memd->get("key1"), "get key1 properly failed"); 37 38 38 39 39 # also make one without a hashref40 # also test creating the object with a list rather than a hash-ref 40 41 my $mem2 = Cache::Memcached->new( 41 42 servers => [ ], 42 43 debug => 1, 43 ); 44 ); 45 isa_ok($mem2, 'Cache::Memcached'); 44 46 ok($mem2->{debug}, "debug is set on alt constructed instance"); trunk/api/perl/t/03_stats.t
r577 r605 1 # -*-perl-*-1 #!/usr/bin/env perl -w 2 2 3 3 use strict;
