X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F02.stdout.t;h=b5facae69352395d0de1f65e95b70945bbf31b43;hb=f3372ec96b39b4940acc393785b63df2ac229b96;hp=462e8174cce2f6cc5314c3b4c08f79594089f923;hpb=10769ed347f340ee0e81d85933ae8f82ff0413da;p=gitmo%2FMooseX-Daemonize.git diff --git a/t/02.stdout.t b/t/02.stdout.t index 462e817..b5facae 100644 --- a/t/02.stdout.t +++ b/t/02.stdout.t @@ -1,4 +1,7 @@ -use Test::More 'no_plan'; +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;