From: David Leadbeater Date: Wed, 12 Jan 2011 22:07:47 +0000 (+0000) Subject: Use strict in test script, don't require done_testing support X-Git-Tag: v0.9.5~1 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4c401dbc0af9e99c250291d40461aff2d94ceca4;p=p5sagit%2FApp-FatPacker.git Use strict in test script, don't require done_testing support --- diff --git a/t/trace.t b/t/trace.t index 154e83c..8ed24aa 100644 --- a/t/trace.t +++ b/t/trace.t @@ -1,5 +1,7 @@ #!perl -use Test::More; +use strict; +use warnings FATAL => 'all'; +use Test::More qw(no_plan); test_trace("t/mod/a.pm" => ("t/mod/b.pm", "t/mod/c.pm")); test_trace("t/mod/b.pm" => ("t/mod/c.pm")); @@ -8,8 +10,6 @@ test_trace("t/mod/c.pm" => ()); # Attempts to conditionally load a module that isn't present test_trace("t/mod/cond.pm" => ()); -done_testing; - sub test_trace { my($file, @loaded) = @_; local $Test::Builder::Level = $Test::Builder::Level + 1;