4 use Test
::More tests
=> 3;
9 my $filename = "/tmp/memcachetest$$";
11 my $server = new_memcached("-s $filename");
12 my $sock = $server->sock;
14 ok(-S $filename, "creating unix domain socket $filename");
16 # set foo (and should get it)
17 print $sock "set foo 0 0 6\r\nfooval\r\n";
19 is(scalar <$sock>, "STORED\r\n", "stored foo");
20 mem_get_is($sock, "foo", "fooval");
24 ## Just some basic stuff for now...