|
Packit |
4e8bc4 |
#!/usr/bin/perl
|
|
Packit |
4e8bc4 |
# Issue #260 is a terrible bug.
|
|
Packit |
4e8bc4 |
# In order to run this test:
|
|
Packit |
4e8bc4 |
# * checkout 1.4.15
|
|
Packit |
4e8bc4 |
# * change TAIL_REPAIR_TIME from (3 * 3600) to 3
|
|
Packit |
4e8bc4 |
# Now it should cause an assert. Patches can be tested to fix it.
|
|
Packit |
4e8bc4 |
|
|
Packit |
4e8bc4 |
use strict;
|
|
Packit |
4e8bc4 |
use Test::More;
|
|
Packit |
4e8bc4 |
use FindBin qw($Bin);
|
|
Packit |
4e8bc4 |
use lib "$Bin/lib";
|
|
Packit |
4e8bc4 |
use MemcachedTest;
|
|
Packit |
4e8bc4 |
|
|
Packit |
4e8bc4 |
plan skip_all => "Only possible to test #260 under artificial conditions";
|
|
Packit |
4e8bc4 |
exit 0;
|
|
Packit |
4e8bc4 |
plan tests => 11074;
|
|
Packit |
4e8bc4 |
# assuming max slab is 1M and default mem is 64M
|
|
Packit |
4e8bc4 |
my $server = new_memcached();
|
|
Packit |
4e8bc4 |
my $sock = $server->sock;
|
|
Packit |
4e8bc4 |
|
|
Packit |
4e8bc4 |
# create a big value for the largest slab
|
|
Packit |
4e8bc4 |
my $max = 1024 * 1024;
|
|
Packit |
4e8bc4 |
my $big = 'x' x (1024 * 1024 - 250);
|
|
Packit |
4e8bc4 |
|
|
Packit |
4e8bc4 |
ok(length($big) > 512 * 1024);
|
|
Packit |
4e8bc4 |
ok(length($big) < 1024 * 1024);
|
|
Packit |
4e8bc4 |
|
|
Packit |
4e8bc4 |
# set the big value
|
|
Packit |
4e8bc4 |
my $len = length($big);
|
|
Packit |
4e8bc4 |
print $sock "set big 0 0 $len\r\n$big\r\n";
|
|
Packit |
4e8bc4 |
is(scalar <$sock>, "STORED\r\n", "stored big");
|
|
Packit |
4e8bc4 |
mem_get_is($sock, "big", $big);
|
|
Packit |
4e8bc4 |
|
|
Packit |
4e8bc4 |
# no evictions yet
|
|
Packit |
4e8bc4 |
my $stats = mem_stats($sock);
|
|
Packit |
4e8bc4 |
is($stats->{"evictions"}, "0", "no evictions to start");
|
|
Packit |
4e8bc4 |
|
|
Packit |
4e8bc4 |
# set many big items, enough to get evictions
|
|
Packit |
4e8bc4 |
for (my $i = 0; $i < 100; $i++) {
|
|
Packit |
4e8bc4 |
print $sock "set item_$i 0 0 $len\r\n$big\r\n";
|
|
Packit |
4e8bc4 |
is(scalar <$sock>, "STORED\r\n", "stored item_$i");
|
|
Packit |
4e8bc4 |
}
|
|
Packit |
4e8bc4 |
|
|
Packit |
4e8bc4 |
# some evictions should have happened
|
|
Packit |
4e8bc4 |
my $stats = mem_stats($sock);
|
|
Packit |
4e8bc4 |
my $evictions = int($stats->{"evictions"});
|
|
Packit |
4e8bc4 |
ok($evictions == 37, "some evictions happened");
|
|
Packit |
4e8bc4 |
|
|
Packit |
4e8bc4 |
# the first big value should be gone
|
|
Packit |
4e8bc4 |
mem_get_is($sock, "big", undef);
|
|
Packit |
4e8bc4 |
|
|
Packit |
4e8bc4 |
# the earliest items should be gone too
|
|
Packit |
4e8bc4 |
for (my $i = 0; $i < $evictions - 1; $i++) {
|
|
Packit |
4e8bc4 |
mem_get_is($sock, "item_$i", undef);
|
|
Packit |
4e8bc4 |
}
|
|
Packit |
4e8bc4 |
|
|
Packit |
4e8bc4 |
# check that the non-evicted are the right ones
|
|
Packit |
4e8bc4 |
for (my $i = $evictions - 1; $i < $evictions + 4; $i++) {
|
|
Packit |
4e8bc4 |
mem_get_is($sock, "item_$i", $big);
|
|
Packit |
4e8bc4 |
}
|
|
Packit |
4e8bc4 |
|
|
Packit |
4e8bc4 |
# Now we fill a slab with incrementable items...
|
|
Packit |
4e8bc4 |
for (my $i = 0; $i < 10923; $i++) {
|
|
Packit |
4e8bc4 |
print $sock "set sitem_$i 0 0 1\r\n1\r\n";
|
|
Packit |
4e8bc4 |
is(scalar <$sock>, "STORED\r\n", "stored sitem_$i");
|
|
Packit |
4e8bc4 |
}
|
|
Packit |
4e8bc4 |
|
|
Packit |
4e8bc4 |
my $stats = mem_stats($sock);
|
|
Packit |
4e8bc4 |
my $evictions = int($stats->{"evictions"});
|
|
Packit |
4e8bc4 |
ok($evictions == 38, "one more eviction happened: $evictions");
|
|
Packit |
4e8bc4 |
|
|
Packit |
4e8bc4 |
# That evicted item was the first one we put in.
|
|
Packit |
4e8bc4 |
mem_get_is($sock, "sitem_0", undef);
|
|
Packit |
4e8bc4 |
|
|
Packit |
4e8bc4 |
sleep 15;
|
|
Packit |
4e8bc4 |
|
|
Packit |
4e8bc4 |
# Now we increment the item which should be on the tail.
|
|
Packit |
4e8bc4 |
# THIS asserts the memcached-debug binary.
|
|
Packit |
4e8bc4 |
print $sock "incr sitem_1 1\r\n";
|
|
Packit |
4e8bc4 |
is(scalar <$sock>, "2\r\n", "incremented to two");
|
|
Packit |
4e8bc4 |
|
|
Packit |
4e8bc4 |
#my $stats = mem_stats($sock, "slabs");
|
|
Packit |
4e8bc4 |
#is($stats->{"1:free_chunks"}, 0, "free chunks should still be 0");
|