Changeset 666
- Timestamp:
- 12/08/07 04:16:01 (1 year ago)
- Files:
-
- trunk/server/t/flush-all.t (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/server/t/flush-all.t
r436 r666 2 2 3 3 use strict; 4 use Test::More tests => 1 0;4 use Test::More tests => 14; 5 5 use FindBin qw($Bin); 6 6 use lib "$Bin/lib"; … … 16 16 mem_get_is($sock, "foo", "fooval"); 17 17 print $sock "flush_all\r\n"; 18 is(scalar <$sock>, "OK\r\n", "did flush_all"); 19 mem_get_is($sock, "foo", undef); 20 21 # Test flush_all with zero delay. 22 print $sock "set foo 0 0 6\r\nfooval\r\n"; 23 is(scalar <$sock>, "STORED\r\n", "stored foo"); 24 25 mem_get_is($sock, "foo", "fooval"); 26 print $sock "flush_all 0\r\n"; 18 27 is(scalar <$sock>, "OK\r\n", "did flush_all"); 19 28 mem_get_is($sock, "foo", undef);
