Adding a copy of memcached to the tree.

[awesomized/libmemcached] / memcached / t / dash-M.t

diff --git a/memcached/t/dash-M.t b/memcached/t/dash-M.t
new file mode 100644 (file)
index 0000000..af9e09b
--- /dev/null
+++ b/memcached/t/dash-M.t
@@ -0,0 +1,34 @@
+#!/usr/bin/perl
+
+use strict;
+use Test::More;
+use FindBin qw($Bin);
+use lib "$Bin/lib";
+use MemcachedTest;
+
+my $server = new_memcached('-M -m 1');
+my $sock = $server->sock;
+
+my $value = "B" x 8192;
+my $vallen = length($value);
+
+my $resp = "STORED\r\n";
+my $key = 0;
+
+while($resp eq "STORED\r\n") {
+    print $sock "set dash$key 0 0 $vallen\r\n$value\r\n";
+    $key++;
+    $resp = scalar <$sock>;
+}
+
+my $max_stored = $key - 1;
+
+plan tests => $max_stored + 1;
+
+print $sock "set dash$key 0 0 $vallen\r\n$value\r\n";
+is(scalar <$sock>, "SERVER_ERROR out of memory storing object\r\n",
+   "failed to add another one.");
+
+for($key = 0; $key < $max_stored; $key++) {
+    mem_get_is $sock, "dash$key", $value, "Failed at dash$key";
+}