# HG changeset patch
# User Dustin Sallings <dustin@spy.net>
# Date 1195195939 28800
# Node ID fac7a7a129592aa90ad408811b7d6e21bce43197
# Parent  f975546a87c4caa6dd572d9d67fbdc8d8c440496
Test showing CAS ID replay problem.

diff --git a/t/cas.t b/t/cas.t
--- a/t/cas.t
+++ b/t/cas.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 
 use strict;
-use Test::More tests => 8;
+use Test::More tests => 9;
 use FindBin qw($Bin);
 use lib "$Bin/lib";
 use MemcachedTest;
@@ -35,6 +35,10 @@ print $sock "cas foo 0 0 6 $result[0]\r\
 print $sock "cas foo 0 0 6 $result[0]\r\nbarva2\r\n";
 is(scalar <$sock>, "STORED\r\n", "cas success, set foo");
 
+# cas failure (reusing the same key)
+print $sock "cas foo 0 0 6 $result[0]\r\nbarva2\r\n";
+is(scalar <$sock>, "EXISTS\r\n", "reusing a CAS ID");
+
 # delete foo
 print $sock "delete foo\r\n";
 is(scalar <$sock>, "DELETED\r\n", "deleted foo");