git.m6w6.name Git - awesomized/libmemcached/blob - memcached/t/daemonize.t

   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");