--- trunk/server/t/flush-all.t | 11 ++++++++++- 1 files changed, 10 insertions(+), 1 deletions(-)
diff --git a/trunk/server/t/flush-all.t b/trunk/server/t/flush-all.t index 4f806c9..e113fc9 100755 --- a/trunk/server/t/flush-all.t +++ b/trunk/server/t/flush-all.t @@ -1,7 +1,7 @@ #!/usr/bin/perl use strict; -use Test::More tests => 10; +use Test::More tests => 14; use FindBin qw($Bin); use lib "$Bin/lib"; use MemcachedTest; @@ -18,6 +18,15 @@ print $sock "flush_all\r\n"; is(scalar <$sock>, "OK\r\n", "did flush_all"); mem_get_is($sock, "foo", undef); +# Test flush_all with zero delay. +print $sock "set foo 0 0 6\r\nfooval\r\n"; +is(scalar <$sock>, "STORED\r\n", "stored foo"); + +mem_get_is($sock, "foo", "fooval"); +print $sock "flush_all 0\r\n"; +is(scalar <$sock>, "OK\r\n", "did flush_all"); +mem_get_is($sock, "foo", undef); + # check that flush_all doesn't blow away items that immediately get set print $sock "set foo 0 0 3\r\nnew\r\n"; is(scalar <$sock>, "STORED\r\n", "stored foo = 'new'"); -- 1.5.3.6.961.gecf4
