Updated to latest memcached

[awesomized/libmemcached] / memcached / t / binary.t

diff --git a/memcached/t/binary.t b/memcached/t/binary.t
index 504ddef1d7b6076801b4a15cc22ba46d433cc0fe..3eb8e0b243139e3c59bcf6e5126c89ab0db3392f 100755 (executable)
--- a/memcached/t/binary.t
+++ b/memcached/t/binary.t
@@ -2,7 +2,7 @@
 
 use strict;
 use warnings;
-use Test::More tests => 3539;
+use Test::More tests => 3549;
 use FindBin qw($Bin);
 use lib "$Bin/lib";
 use MemcachedTest;
@@ -273,6 +273,10 @@ is($mc->decr("x", 211), 0, "Floor is zero");
     $check->("totouch", 0, "toast2");
 
     # Test miss as well
+    $mc->set("totouch", "toast3", 0, 1);
+    $res = $mc->touch("totouch", 1);
+    sleep 3;
+    $empty->("totouch");
 }
 
 # diag "Silent set.";