From 95812e25f5012e78b544463b84aae6ae5d0de95a Mon Sep 17 00:00:00 2001
From: Dustin Sallings <dustin@spy.net>
Date: Wed, 18 Mar 2009 21:17:46 -0700
Subject: Added basic -M test.

---
 t/dash-M.t | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 t/dash-M.t

diff --git a/t/dash-M.t b/t/dash-M.t
new file mode 100644
index 0000000..af9e09b
--- /dev/null
+++ b/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";
+}
-- 
cgit v1.2.1