X-Git-Url: https://git.m6w6.name/?a=blobdiff_plain;f=memcached%2Ft%2Fbinary.t;h=3eb8e0b243139e3c59bcf6e5126c89ab0db3392f;hb=535cb0763dff986a148356bf58dd91f15ad8ed39;hp=504ddef1d7b6076801b4a15cc22ba46d433cc0fe;hpb=000810c79a803a1b8696697cbac13bf9f921c959;p=awesomized%2Flibmemcached

diff --git a/memcached/t/binary.t b/memcached/t/binary.t
index 504ddef1..3eb8e0b2 100755
--- 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.";