summaryrefslogtreecommitdiff
path: root/t/bogus-commands.t
diff options
context:
space:
mode:
authorBrad Fitzpatrick <brad@danga.com>2006-09-05 05:55:12 +0000
committerBrad Fitzpatrick <brad@danga.com>2006-09-05 05:55:12 +0000
commit61c41eeffc853ce38432ff46dc558909e46bca0a (patch)
tree28719b84192cc141a64c16f032358c91dc683bb7 /t/bogus-commands.t
parent4b329cd1361edf929d3f802bd3fb50ae2acf7073 (diff)
downloadmemcached-61c41eeffc853ce38432ff46dc558909e46bca0a.tar.gz
rename 'test' to 't'.
git-svn-id: http://code.sixapart.com/svn/memcached/trunk/server@370 b0b603af-a30f-0410-a34e-baf09ae79d0b
Diffstat (limited to 't/bogus-commands.t')
-rwxr-xr-xt/bogus-commands.t13
1 files changed, 13 insertions, 0 deletions
diff --git a/t/bogus-commands.t b/t/bogus-commands.t
new file mode 100755
index 0000000..aaae6cd
--- /dev/null
+++ b/t/bogus-commands.t
@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+
+use strict;
+use Test::More tests => 1;
+use FindBin qw($Bin);
+use lib "$Bin/lib";
+use MemcachedTest;
+
+my $server = new_memcached();
+my $sock = $server->sock;
+
+print $sock "boguscommand slkdsldkfjsd\r\n";
+is(scalar <$sock>, "ERROR\r\n", "got error back");