[gitmo/MooseX-Daemonize.git] / t / 10.pidfile.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 25;
use Test::Exception;

BEGIN {
    use_ok('MooseX::Daemonize::PidFile');
}

{
    my $f = MooseX::Daemonize::PidFile->new(
        file => [ 't', 'foo.pid' ]
    );
    isa_ok($f, 'MooseX::Daemonize::PidFile');

    isa_ok($f->file, 'Path::Class::File');

    is($f->pid, $$, '... the PID is our current process');

    lives_ok {
        $f->write
    } '... writing the PID file';

    is($f->file->slurp(chomp => 1), $f->pid, '... the PID in the file is correct');
    
    ok($f->running, '... it is running too');

    lives_ok {
        $f->remove
    } '... removing the PID file';

    ok(!-e $f->file, '... the PID file does not exist anymore');
}

{
    my $f = MooseX::Daemonize::PidFile->new(
        file => [ 't', 'bar.pid' ]
    );
    isa_ok($f, 'MooseX::Daemonize::PidFile');

    isa_ok($f->file, 'Path::Class::File');

    lives_ok {
        $f->write
    } '... writing the PID file';

    is($f->file->slurp(chomp => 1), $f->pid, '... the PID in the file is correct');
    is($f->pid, $$, '... the PID is our current process');
    
    ok($f->running, '... it is running too');    

    lives_ok {
        $f->remove
    } '... removing the PID file';

    ok(!-e $f->file, '... the PID file does not exist anymore');
}

{
    my $PID = 2001;
    
    my $f = MooseX::Daemonize::PidFile->new(
        file => [ 't', 'baz.pid' ],
        pid  => $PID,
    );
    isa_ok($f, 'MooseX::Daemonize::PidFile');

    isa_ok($f->file, 'Path::Class::File');
    
    is($f->pid, $PID, '... the PID is our made up PID');

    lives_ok {
        $f->write
    } '... writing the PID file';

    is($f->file->slurp(chomp => 1), $f->pid, '... the PID in the file is correct');

    ok(!$f->running, '... it is not running (cause we made the PID up)');

    lives_ok {
        $f->remove
    } '... removing the PID file';

    ok(!-e $f->file, '... the PID file does not exist anymore');
}
Commit	Line	Data
2eced271	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use Test::More tests => 25;
	7	use Test::Exception;
	8
	9	BEGIN {
	10	use_ok('MooseX::Daemonize::PidFile');
	11	}
	12
	13	{
	14	my $f = MooseX::Daemonize::PidFile->new(
	15	file => [ 't', 'foo.pid' ]
	16	);
	17	isa_ok($f, 'MooseX::Daemonize::PidFile');
	18
	19	isa_ok($f->file, 'Path::Class::File');
	20
	21	is($f->pid, $$, '... the PID is our current process');
	22
	23	lives_ok {
	24	$f->write
	25	} '... writing the PID file';
	26
	27	is($f->file->slurp(chomp => 1), $f->pid, '... the PID in the file is correct');
	28
	29	ok($f->running, '... it is running too');
	30
	31	lives_ok {
	32	$f->remove
	33	} '... removing the PID file';
	34
	35	ok(!-e $f->file, '... the PID file does not exist anymore');
	36	}
	37
	38	{
	39	my $f = MooseX::Daemonize::PidFile->new(
	40	file => [ 't', 'bar.pid' ]
	41	);
	42	isa_ok($f, 'MooseX::Daemonize::PidFile');
	43
	44	isa_ok($f->file, 'Path::Class::File');
	45
	46	lives_ok {
	47	$f->write
	48	} '... writing the PID file';
	49
	50	is($f->file->slurp(chomp => 1), $f->pid, '... the PID in the file is correct');
	51	is($f->pid, $$, '... the PID is our current process');
	52
	53	ok($f->running, '... it is running too');
	54
	55	lives_ok {
	56	$f->remove
	57	} '... removing the PID file';
	58
	59	ok(!-e $f->file, '... the PID file does not exist anymore');
	60	}
	61
	62	{
	63	my $PID = 2001;
	64
65	my $f = MooseX::Daemonize::PidFile->new(
66	file => [ 't', 'baz.pid' ],
67	pid => $PID,
68	);
69	isa_ok($f, 'MooseX::Daemonize::PidFile');
70
71	isa_ok($f->file, 'Path::Class::File');
72
73	is($f->pid, $PID, '... the PID is our made up PID');
74
75	lives_ok {
76	$f->write
77	} '... writing the PID file';
78
79	is($f->file->slurp(chomp => 1), $f->pid, '... the PID in the file is correct');
80
81	ok(!$f->running, '... it is not running (cause we made the PID up)');
82
83	lives_ok {
84	$f->remove
85	} '... removing the PID file';
86
87	ok(!-e $f->file, '... the PID file does not exist anymore');
88	}