Adding a copy of memcached to the tree.

[awesomized/libmemcached] / memcached / t / issue_50.t

diff --git a/memcached/t/issue_50.t b/memcached/t/issue_50.t
new file mode 100644 (file)
index 0000000..80876b2
--- /dev/null
+++ b/memcached/t/issue_50.t
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+
+use strict;
+use Test::More tests => 1;
+use FindBin qw($Bin);
+use lib "$Bin/lib";
+use MemcachedTest;
+
+my $server = new_memcached('-B binary');
+my $sock = $server->sock;
+
+$SIG{ALRM} = sub { die "alarm\n" };
+alarm(2);
+print $sock "Here's a bunch of garbage that doesn't look like the bin prot.";
+my $rv = <$sock>;
+ok(1, "Either the above worked and quit, or hung forever.");