diff options
Diffstat (limited to 't/issue_192.t')
-rw-r--r-- | t/issue_192.t | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/t/issue_192.t b/t/issue_192.t new file mode 100644 index 0000000..c58e206 --- /dev/null +++ b/t/issue_192.t @@ -0,0 +1,20 @@ +#!/usr/bin/perl + +use strict; +use Test::More tests => 2; +use FindBin qw($Bin); +use lib "$Bin/lib"; +use MemcachedTest; + +my $server = new_memcached(); +my $sock = $server->sock; + +ok($server->new_sock, "opened new socket"); + +print $sock "\x80\x12\x00\x01\x08\x00\x00\x00\xff\xff\xff\xe8\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xff\xff\xff\xff\x01\x00\x00\x00\x00\x00\x00\x00\x00\x000\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"; + +sleep 0.5; +ok($server->new_sock, "failed to open new socket"); + + + |