af9e09bee9e969649e7cacd20687788343ac5521
9 my $server = new_memcached('-M -m 1');
10 my $sock = $server->sock;
12 my $value = "B" x 8192;
13 my $vallen = length($value);
15 my $resp = "STORED\r\n";
18 while($resp eq "STORED\r\n") {
19 print $sock "set dash$key 0 0 $vallen\r\n$value\r\n";
21 $resp = scalar <$sock>;
24 my $max_stored = $key - 1;
26 plan tests => $max_stored + 1;
28 print $sock "set dash$key 0 0 $vallen\r\n$value\r\n";
29 is(scalar <$sock>, "SERVER_ERROR out of memory storing object\r\n",
30 "failed to add another one.");
32 for($key = 0; $key < $max_stored; $key++) {
33 mem_get_is $sock, "dash$key", $value, "Failed at dash$key";