X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F01.filecreate.t;h=127c0e830a1382688a37ded84ce8e32c9c19d6c0;hb=f3372ec96b39b4940acc393785b63df2ac229b96;hp=4319d0d58be92d4882640bba5fa83acbace932f2;hpb=e803cff500bb7c9926ef94e9ef5a973d8fd103b6;p=gitmo%2FMooseX-Daemonize.git diff --git a/t/01.filecreate.t b/t/01.filecreate.t index 4319d0d..127c0e8 100644 --- a/t/01.filecreate.t +++ b/t/01.filecreate.t @@ -1,5 +1,3 @@ -#!/usr/bin/perl - use strict; use warnings; use File::Spec::Functions; @@ -28,8 +26,8 @@ $ENV{MX_DAEMON_STDERR} = catfile($dir, 'Err.txt'); with qw(MooseX::Daemonize); has filename => ( isa => 'Str', is => 'ro' ); - - after start => sub { + + after start => sub { my $self = shift; if ($self->is_daemon) { $self->create_file( $self->filename ); @@ -84,14 +82,14 @@ is($app->exit_code, MooseX::Daemonize->OK, '... got the right error code'); if (DEBUG) { diag `ps $pid`; - diag "Status is: " . $app->status_message; + diag "Status is: " . $app->status_message; } ok( -e $app->filename, "file exists" ); if (DEBUG) { diag `ps $pid`; - diag "Status is: " . $app->status_message; + diag "Status is: " . $app->status_message; } ok( $app->stop, '... app stopped' ); @@ -104,7 +102,7 @@ is($app->exit_code, MooseX::Daemonize->ERROR, '... got the right error code'); if (DEBUG) { diag `ps $pid`; - diag "Status is: " . $app->status_message; + diag "Status is: " . $app->status_message; } ok( not(-e $app->pidfile->file) , '... pidfile gone' );