diff options
author | Paul Lindner <plindner@hi5.com> | 2007-05-12 11:10:17 +0000 |
---|---|---|
committer | Paul Lindner <plindner@hi5.com> | 2007-05-12 11:10:17 +0000 |
commit | 7b573c21969d08de2d99eefbef0ddb40fa0af8c9 (patch) | |
tree | f05987993d1c4c82046700f8a263868e236c744b /t/unixsocket.t | |
parent | 0aeb6121f4eee200bc4b52e049ec2b46e1869902 (diff) | |
download | memcached-7b573c21969d08de2d99eefbef0ddb40fa0af8c9.tar.gz |
updated unit tests, better spec file
git-svn-id: http://code.sixapart.com/svn/memcached/trunk/server@557 b0b603af-a30f-0410-a34e-baf09ae79d0b
Diffstat (limited to 't/unixsocket.t')
-rwxr-xr-x | t/unixsocket.t | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/t/unixsocket.t b/t/unixsocket.t index 99e07d5..492215e 100755 --- a/t/unixsocket.t +++ b/t/unixsocket.t @@ -1,11 +1,24 @@ #!/usr/bin/perl use strict; -use Test::More skip_all => "Tests not written."; # tests => 1 +use Test::More tests => 3; use FindBin qw($Bin); use lib "$Bin/lib"; use MemcachedTest; -my $server = new_memcached(); +my $filename = "/tmp/memcachetest$$"; + +my $server = new_memcached("-s $filename"); my $sock = $server->sock; +ok(-S $filename, "creating unix domain socket $filename"); + +# set foo (and should get it) +print $sock "set foo 0 0 6\r\nfooval\r\n"; + +is(scalar <$sock>, "STORED\r\n", "stored foo"); +mem_get_is($sock, "foo", "fooval"); + +unlink($filename); + +## Just some basic stuff for now... |