);
is($f->file->slurp(chomp => 1), $f->pid, '... the PID in the file is correct');
-
+
ok($f->is_running, '... it is running too');
is(
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->is_running, '... it is running too');
+
+ ok($f->is_running, '... it is running too');
is(
exception { $f->remove },
{
my $PID = 9999;
-
+
my $f = MooseX::Daemonize::Pid::File->new(
file => [ 't', 'baz.pid' ],
pid => $PID,
isa_ok($f, 'MooseX::Daemonize::Pid::File');
isa_ok($f->file, 'Path::Class::File');
-
+
is($f->pid, $PID, '... the PID is our made up PID');
is(