X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F10.pidfile.t;h=e515bc6d8550dff5060d169fa0ef6052b4ed8f84;hb=568a7a763acd951378a56fbe67db98463eed88b4;hp=66ccb3310f4a954b5aa4e13db5b85a08bb94947e;hpb=2eced27121e8557fe773f6f8804786f29f5660c1;p=gitmo%2FMooseX-Daemonize.git

diff --git a/t/10.pidfile.t b/t/10.pidfile.t
index 66ccb33..e515bc6 100644
--- a/t/10.pidfile.t
+++ b/t/10.pidfile.t
@@ -1,88 +1,98 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 
 use Test::More tests => 25;
-use Test::Exception;
+use Test::Fatal;
 
 BEGIN {
-    use_ok('MooseX::Daemonize::PidFile');
+    use_ok('MooseX::Daemonize::Pid::File');
 }
 
 {
-    my $f = MooseX::Daemonize::PidFile->new(
+    my $f = MooseX::Daemonize::Pid::File->new(
         file => [ 't', 'foo.pid' ]
     );
-    isa_ok($f, 'MooseX::Daemonize::PidFile');
+    isa_ok($f, 'MooseX::Daemonize::Pid::File');
 
     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(
+        exception { $f->write },
+        undef,
+        '... 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($f->is_running, '... it is running too');
+
+    is(
+        exception { $f->remove },
+        undef,
+        '... removing the PID file',
+    );
 
     ok(!-e $f->file, '... the PID file does not exist anymore');
 }
 
 {
-    my $f = MooseX::Daemonize::PidFile->new(
+    my $f = MooseX::Daemonize::Pid::File->new(
         file => [ 't', 'bar.pid' ]
     );
-    isa_ok($f, 'MooseX::Daemonize::PidFile');
+    isa_ok($f, 'MooseX::Daemonize::Pid::File');
 
     isa_ok($f->file, 'Path::Class::File');
 
-    lives_ok {
-        $f->write
-    } '... writing the PID file';
+    is(
+        exception { $f->write },
+        undef,
+        '... 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($f->is_running, '... it is running too');
+
+    is(
+        exception { $f->remove },
+        undef,
+        '... removing the PID file',
+    );
 
     ok(!-e $f->file, '... the PID file does not exist anymore');
 }
 
 {
-    my $PID = 2001;
-    
-    my $f = MooseX::Daemonize::PidFile->new(
+    my $PID = 9999;
+
+    my $f = MooseX::Daemonize::Pid::File->new(
         file => [ 't', 'baz.pid' ],
         pid  => $PID,
     );
-    isa_ok($f, 'MooseX::Daemonize::PidFile');
+    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');
 
-    lives_ok {
-        $f->write
-    } '... writing the PID file';
+    is(
+        exception { $f->write },
+        undef,
+        '... 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)');
+    ok(!$f->is_running, '... it is not running (cause we made the PID up)');
 
-    lives_ok {
-        $f->remove
-    } '... removing the PID file';
+    is(
+        exception { $f->remove },
+        undef,
+        '... removing the PID file',
+    );
 
     ok(!-e $f->file, '... the PID file does not exist anymore');
 }