Changeset 8523 for lang/perl/Cache-Memcached-libmemcached

Timestamp:

03/30/08 23:11:59 (5 years ago)

Author:

daisuke

Message:

lang/perl/Cache-Memcached-libmemcached; make sure to check actual operations under no_block mode

Files:

• lang/perl/Cache-Memcached-libmemcached/trunk/t/14_no_block.t (modified) (3 diffs)

lang/perl/Cache-Memcached-libmemcached/trunk/t/14_no_block.t

@@ -7 +7 @@
         plan(skip_all => "Define MEMCACHED_SERVER (e.g. localhost:11211) to run this test");
     } else {
-        plan(tests => 7);
+        plan(tests => 9);
     }
     use_ok("Cache::Memcached::libmemcached");
@@ -22 +22 @@
     $cache->set_no_block(1);
     ok( $cache->is_no_block );
+
+    my $value = "non-block via accessor";
+    $cache->remove(__FILE__);
+    $cache->set(__FILE__, $value);
+
+    is($cache->get(__FILE__), $value);
 }
 
@@ -35 +41 @@
     $cache->set_no_block(0);
     ok( !$cache->is_no_block );
+
+    my $value = "non-block via constructor";
+    $cache->remove(__FILE__);
+    $cache->set(__FILE__, $value);
+
+    is($cache->get(__FILE__), $value);
 }