X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F02.stdout.t;h=b5facae69352395d0de1f65e95b70945bbf31b43;hb=f3372ec96b39b4940acc393785b63df2ac229b96;hp=d7ed21222b649e07e247cfbe14fd408bf68e9629;hpb=380acf654017b03f0ea0342bca243c509904f1bb;p=gitmo%2FMooseX-Daemonize.git diff --git a/t/02.stdout.t b/t/02.stdout.t index d7ed212..b5facae 100644 --- a/t/02.stdout.t +++ b/t/02.stdout.t @@ -1,4 +1,7 @@ -use Test::More no_plan => 1; +use strict; +use warnings; + +use Test::More; use Test::Builder; use Test::MooseX::Daemonize; use MooseX::Daemonize; @@ -14,7 +17,7 @@ my $Test = Test::Builder->new; after start => sub { my ($self) = @_; - $self->output_ok() + $self->output_ok() if $self->is_daemon; }; @@ -48,12 +51,15 @@ sleep(3); # give ourself a chance to produce some output my $warnings = ""; { - local $SIG{__WARN__} = sub { $warnings .= $_[0]; warn @_ }; - $app->stop( no_exit => 1 ); + local $SIG{__WARN__} = sub { $warnings .= $_[0]; warn @_ }; + $app->stop( no_exit => 1 ); } is($warnings, "", "No warnings from stop"); check_test_output($app); unlink( $app->test_output ); + +done_testing; + exit;