git.m6w6.name Git - awesomized/libmemcached/blob - memcached/t/dash-M.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use Test::More;
   5 use FindBin qw($Bin);
   6 use lib "$Bin/lib";
   7 use MemcachedTest;
   8
   9 my $server = new_memcached('-M -m 1');
  10 my $sock = $server->sock;
  11
  12 my $value = "B" x 8192;
  13 my $vallen = length($value);
  14
  15 my $resp = "STORED\r\n";
  16 my $key = 0;
  17
  18 while($resp eq "STORED\r\n") {
  19     print $sock "set dash$key 0 0 $vallen\r\n$value\r\n";
  20     $key++;
  21     $resp = scalar <$sock>;
  22 }
  23
  24 my $max_stored = $key - 1;
  25
  26 plan tests => $max_stored + 1;
  27
  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.");
  31
  32 for($key = 0; $key < $max_stored; $key++) {
  33     mem_get_is $sock, "dash$key", $value, "Failed at dash$key";
  34 }