4 use Test
::More tests
=> 7;
9 my $server = new_memcached();
10 my $sock = $server->sock;
12 my $stats = mem_stats($sock, ' settings');
14 # Ensure default still works.
15 is($stats->{item_size_max}, 1024 * 1024);
20 $server = new_memcached('-I 1000');
22 ok($@ && $@ =~ m/^Failed/, "Shouldn't start with < 1k item max");
25 $server = new_memcached('-I 256m');
27 ok($@ && $@ =~ m/^Failed/, "Shouldn't start with > 128m item max");
30 $server = new_memcached('-I 1024');
31 my $stats = mem_stats($server->sock, ' settings');
32 is($stats->{item_size_max}, 1024);
35 # Reasonable but unreasonable.
36 $server = new_memcached('-I 1049600');
37 my $stats = mem_stats($server->sock, ' settings');
38 is($stats->{item_size_max}, 1049600);
42 $server = new_memcached('-I 512k');
43 my $stats = mem_stats($server->sock, ' settings');
44 is($stats->{item_size_max}, 524288);
48 $server = new_memcached('-I 32m');
49 my $stats = mem_stats($server->sock, ' settings');
50 is($stats->{item_size_max}, 33554432);