conn-limits.t (memcached-1.6.8) | : | conn-limits.t (memcached-1.6.9) | ||
---|---|---|---|---|
#!/usr/bin/perl | #!/usr/bin/perl | |||
# Test connection memory limits. | # Test connection memory limits. | |||
use strict; | use strict; | |||
use warnings; | use warnings; | |||
use Test::More; | use Test::More; | |||
use FindBin qw($Bin); | use FindBin qw($Bin); | |||
use lib "$Bin/lib"; | use lib "$Bin/lib"; | |||
use MemcachedTest; | use MemcachedTest; | |||
my $server = new_memcached('-o resp_obj_mem_limit=1,read_buf_mem_limit=1 -t 32 - R 500'); | my $server = new_memcached('-o read_buf_mem_limit=1 -t 32 -R 500'); | |||
my $sock = $server->sock; | my $sock = $server->sock; | |||
# The minimum limit is 1 megabyte. This is then split between each of the | # The minimum limit is 1 megabyte. This is then split between each of the | |||
# worker threads, which ends up being a lot of memory for a quick test. | # worker threads, which ends up being a lot of memory for a quick test. | |||
# So we use a high worker thread count to split them down more. | # So we use a high worker thread count to split them down more. | |||
{ | { | |||
# easiest method is an ascii multiget. | # easiest method is an ascii multiget. | |||
my $key = 'foo'; | my $key = 'foo'; | |||
my @keys = (); | my @keys = (); | |||
End of changes. 1 change blocks. | ||||
1 lines changed or deleted | 1 lines changed or added |