"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "t/restart.t" between
memcached-1.6.8.tar.gz and memcached-1.6.9.tar.gz

About: memcached is a high-performance, distributed memory object caching system, generic in nature, but originally intended for use in speeding up dynamic web applications by alleviating database load.

restart.t  (memcached-1.6.8):restart.t  (memcached-1.6.9)
skipping to change at line 27 skipping to change at line 27
my $meta_path = "$mem_path.meta"; my $meta_path = "$mem_path.meta";
open(my $f, "> $meta_path") || die("Can't open a metadata file."); open(my $f, "> $meta_path") || die("Can't open a metadata file.");
eval { new_memcached("-e $mem_path"); }; eval { new_memcached("-e $mem_path"); };
unlink($meta_path); unlink($meta_path);
ok($@, "Died with an empty metadata file"); ok($@, "Died with an empty metadata file");
} }
my $server = new_memcached("-m 128 -e $mem_path -I 2m"); my $server = new_memcached("-m 128 -e $mem_path -I 2m");
my $sock = $server->sock; my $sock = $server->sock;
diag "restart basic stats";
{
my $stats = mem_stats($server->sock, ' settings');
is($stats->{memory_file}, $mem_path);
}
diag "Set some values, various sizes."; diag "Set some values, various sizes.";
{ {
my $cur = 2; my $cur = 2;
my $cnt = 0; my $cnt = 0;
my $end = 2**20; my $end = 2**20;
while ($cur <= $end) { while ($cur <= $end) {
my $val = 'x' x $cur; my $val = 'x' x $cur;
print $sock "set foo${cnt} 0 0 $cur\r\n$val\r\n"; print $sock "set foo${cnt} 0 0 $cur\r\n$val\r\n";
like(scalar <$sock>, qr/STORED/, "stored $cur size item"); like(scalar <$sock>, qr/STORED/, "stored $cur size item");
$cur *= 2; $cur *= 2;
 End of changes. 1 change blocks. 
0 lines changed or deleted 6 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)