add Test::MooseX::Daemonize

[gitmo/MooseX-Daemonize.git] / t / 01.filecreate.t

diff --git a/t/01.filecreate.t b/t/01.filecreate.t
index a0e27d9..e6a161b 100644 (file)
--- a/t/01.filecreate.t
+++ b/t/01.filecreate.t
@@ -1,6 +1,5 @@
-use Test::More no_plan => 1;
-use Proc::Daemon;
-use Cwd;
+use Test::More tests => 2;
+use Test::MooseX::Daemonize;
 
 ##  Since a daemon will not be able to print terminal output, we
 ##  have a test daemon create a file, and another process test for
@@ -12,6 +11,10 @@ use Cwd;
     use Moose;
     with qw(MooseX::Daemonize);
 
+    has filename => ( isa => 'Str', is => 'ro' );
+
+    after start => sub { $_[0]->create_file( $_[0]->filename ) };
+
     sub create_file {
         my ( $self, $file ) = @_;
         open( FILE, ">$file" ) || die $!;
@@ -21,25 +24,18 @@ use Cwd;
     no Moose;
 }
 
+
 package main;
+use Cwd;
 
 ## Try to make sure we are in the test directory
+chdir 't' if ( Cwd::cwd() !~ m|/t$| );
 my $cwd = Cwd::cwd();
-chdir 't' if ( $cwd !~ m|/t$| );
-$cwd = Cwd::cwd();
 
-## Test filename
 my $file = join( '/', $cwd, 'im_alive' );
-## Parent process will check if file created.  Child becomes the daemon.
-if ( my $pid = Proc::Daemon::Fork ) {
-    sleep(5);    # Punt on sleep time, 5 seconds should be enough
-    ok( -e $file, "$file exists");
-    unlink($file);
-}
-else {
-    my $daemon = FileMaker->new(pidbase => '.');
-    $daemon->start();
-    $daemon->create_file($file);
-    $daemon->stop();
-    exit;
-}
+my $daemon = FileMaker->new( pidbase => '.', filename => $file );
+
+daemonize_ok( $daemon, 'child forked okay' );
+ok( -e $file, "$file exists" );
+unlink($file);
+