Mercurial > hg > memcached
comparison t/daemonize.t @ 0:30782bb1fc04 MEMCACHED_1_2_3
memcached-1.2.3
author | Maxim Dounin <mdounin@mdounin.ru> |
---|---|
date | Sun, 23 Sep 2007 03:58:34 +0400 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:30782bb1fc04 |
---|---|
1 #!/usr/bin/perl | |
2 | |
3 use strict; | |
4 use Test::More tests => 7; | |
5 use FindBin qw($Bin); | |
6 use lib "$Bin/lib"; | |
7 use MemcachedTest; | |
8 | |
9 use File::Temp qw(tempfile); | |
10 | |
11 my (undef, $tmpfn) = tempfile(); | |
12 | |
13 my $server = new_memcached("-d -P $tmpfn"); | |
14 my $sock = $server->sock; | |
15 sleep 0.5; | |
16 | |
17 ok(-e $tmpfn, "pid file exists"); | |
18 ok(-s $tmpfn, "pid file has length"); | |
19 | |
20 open (my $fh, $tmpfn) or die; | |
21 my $readpid = do { local $/; <$fh>; }; | |
22 chomp $readpid; | |
23 close ($fh); | |
24 | |
25 ok(kill(0, $readpid), "process is still running"); | |
26 | |
27 my $stats = mem_stats($sock); | |
28 is($stats->{pid}, $readpid, "memcached reports same pid as file"); | |
29 | |
30 ok($server->new_sock, "opened new socket"); | |
31 ok(kill(9, $readpid), "sent KILL signal"); | |
32 sleep 0.5; | |
33 ok(! $server->new_sock, "failed to open new socket"); |