X-Git-Url: https://git.m6w6.name/?a=blobdiff_plain;f=memcached%2Ft%2Fslabs_reassign.t;h=ae5ddce31232350d9df14cc3beed9d8ce6105df8;hb=acdfe4229a70c323e66c37e2768dfdea42694bb1;hp=cf4b6f8d927a76fceafb6d8261bee2e21b38b65e;hpb=81204a653b40f87ae9f43fd8ee12cc8177021f3a;p=awesomized%2Flibmemcached diff --git a/memcached/t/slabs_reassign.t b/memcached/t/slabs_reassign.t index cf4b6f8d..ae5ddce3 100644 --- a/memcached/t/slabs_reassign.t +++ b/memcached/t/slabs_reassign.t @@ -2,7 +2,7 @@ use strict; use warnings; -use Test::More tests => 131; +use Test::More tests => 130; use FindBin qw($Bin); use lib "$Bin/lib"; use MemcachedTest; @@ -52,14 +52,16 @@ ok($slabs_before->{"31:total_pages"} != $slabs_after->{"31:total_pages"}, ok($slabs_before->{"25:total_pages"} != $slabs_after->{"25:total_pages"}, "slab 25 pagecount changed"); -# Try to move another slab, see that it complains +# Try to move another slab, see that you can move two in a row print $sock "slabs reassign 31 25\r\n"; -like(scalar <$sock>, qr/^NOTFULL/, "Cannot re-run against class with empty space"); +like(scalar <$sock>, qr/^OK/, "Cannot re-run against class with empty space"); # Try to move a page backwards. Should complain that source class isn't "safe" # to move from. -print $sock "slabs reassign 25 31\r\n"; -like(scalar <$sock>, qr/^UNSAFE/, "Cannot move an unsafe slab back"); +# TODO: Wait until the above command completes, then try to move it back? +# Seems pointless... +#print $sock "slabs reassign 25 31\r\n"; +#like(scalar <$sock>, qr/^UNSAFE/, "Cannot move an unsafe slab back"); # Try to insert items into both slabs print $sock "set bfoo51 0 0 70000\r\n", $bigdata, "\r\n";