Added an add behavior test.

Someone in IRC reported this not working one day.  Likely a failure on
the client side, but it's good to ensure it for us in a test case.

1 files changed, 11 insertions, 1 deletions

diff --git a/t/expirations.t b/t/expirations.t
index 4b8153b..c7db308 100755
--- a/t/expirations.t
+++ b/t/expirations.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 
 use strict;
-use Test::More tests => 10;
+use Test::More tests => 15;
 use FindBin qw($Bin);
 use lib "$Bin/lib";
 use MemcachedTest;
@@ -52,3 +52,13 @@ print $sock "set boo 0 $expire 6\r\nbooval\r\n";
 is(scalar <$sock>, "STORED\r\n", "stored boo");
 mem_get_is($sock, "boo", undef, "now expired");
 
+print $sock "add add 0 1 6\r\naddval\r\n";
+is(scalar <$sock>, "STORED\r\n", "stored add");
+mem_get_is($sock, "add", "addval");
+# second add fails
+print $sock "add add 0 1 7\r\naddval2\r\n";
+is(scalar <$sock>, "NOT_STORED\r\n", "add failure");
+sleep(1.3);
+print $sock "add add 0 1 7\r\naddval3\r\n";
+is(scalar <$sock>, "STORED\r\n", "stored add again");
+mem_get_is($sock, "add", "addval3");