add a binary touch test that actaully fails

1 files changed, 4 insertions, 0 deletions

diff --git a/t/binary.t b/t/binary.t
index 504ddef..b427fc4 100755
--- a/t/binary.t
+++ b/t/binary.t
@@ -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);
+    my $res = $mc->touch("totouch", 1);
+    sleep 3;
+    $empty->("totouch");
 }
 
 # diag "Silent set.";