add a binary touch test that actaully fails

ifooth · Jul 30, 2012 · 7051da9 · 7051da9
1 parent 1d0978c
commit 7051da9
Showing 1 changed file with 4 additions and 0 deletions.
diff --git 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.";