4 use Test
::More tests
=> 7;
9 use File::Temp qw(tempfile);
11 my (undef, $tmpfn) = tempfile
();
13 my $server = new_memcached
("-d -P $tmpfn");
14 my $sock = $server->sock;
17 ok
(-e
$tmpfn, "pid file exists");
18 ok
(-s
$tmpfn, "pid file has length");
20 open (my $fh, $tmpfn) or die;
21 my $readpid = do { local $/; <$fh>; };
25 ok
(kill(0, $readpid), "process is still running");
27 my $stats = mem_stats
($sock);
28 is
($stats->{pid
}, $readpid, "memcached reports same pid as file");
30 ok
($server->new_sock, "opened new socket");
31 ok
(kill(9, $readpid), "sent KILL signal");
33 ok
(! $server->new_sock, "failed to open new socket");