projects
/
awesomized
/
libmemcached
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
aaae6cd6ff8ced1b09c57275486e81637f4727e8
[awesomized/libmemcached]
/
bogus-commands.t
1
#!/usr/bin/perl
2
3
use
strict
;
4
use
Test
::
More tests
=>
1
;
5
use
FindBin
qw(
$Bin
);
6
use lib "
$Bin
/lib";
7
use MemcachedTest;
8
9
my
$server
= new_memcached();
10
my
$sock
=
$server
->sock;
11
12
print
$sock
"boguscommand slkdsldkfjsd
\r\n
";
13
is(scalar <
$sock
>, "ERROR
\r\n
", "got error back");