Add negative expiration time case to expiration test

1 files changed, 6 insertions, 1 deletions

diff --git a/t/expirations.t b/t/expirations.t
index 7b5aaec..de7adb9 100755
--- a/t/expirations.t
+++ b/t/expirations.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 
 use strict;
-use Test::More tests => 15;
+use Test::More tests => 17;
 use FindBin qw($Bin);
 use lib "$Bin/lib";
 use MemcachedTest;
@@ -53,6 +53,11 @@ 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");
 
+$expire = -1;
+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 2 6\r\naddval\r\n";
 is(scalar <$sock>, "STORED\r\n", "stored add");
 mem_get_is($sock, "add", "addval");