diff options
author | Dustin Sallings <dustin@spy.net> | 2009-10-28 23:55:05 -0700 |
---|---|---|
committer | Trond Norbye <Trond.Norbye@sun.com> | 2009-10-29 14:33:19 +0100 |
commit | f13f1df5494d1ed867706ea7ad283d3fa10b1c2a (patch) | |
tree | 3474a3d526a80a61f9d4137a0cb75e9d27b5e7ef /t | |
parent | 4bfc1ebf955a03ee6e87d539912c5018367dc860 (diff) | |
download | memcached-f13f1df5494d1ed867706ea7ad283d3fa10b1c2a.tar.gz |
Added test for bug68
Diffstat (limited to 't')
-rw-r--r-- | t/issue_68.t | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/t/issue_68.t b/t/issue_68.t new file mode 100644 index 0000000..94e3e95 --- /dev/null +++ b/t/issue_68.t @@ -0,0 +1,21 @@ +#!/usr/bin/perl + +use strict; +use Test::More tests => 996; +use FindBin qw($Bin); +use lib "$Bin/lib"; +use MemcachedTest; + +my $server = new_memcached(); +my $sock = $server->sock; + +for (my $keyi = 1; $keyi < 250; $keyi++) { + my $key = "x" x $keyi; + print $sock "set $key 0 0 1\r\n9\r\n"; + is (scalar <$sock>, "STORED\r\n", "stored $key"); + mem_get_is($sock, $key, "9"); + print $sock "incr $key 1\r\n"; + is (scalar <$sock>, "10\r\n", "incr $key to 10"); + mem_get_is($sock, $key, "10"); +} + |