X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Ftrace.t;h=8ed24aa304fbf968cdb12db71cf117c9185ba9eb;hb=4c401dbc0af9e99c250291d40461aff2d94ceca4;hp=154e83c3257c59537eb8cb2be80b22c936f66639;hpb=06fb0d55a482983da1fb29e9b8e7cc9337a3386d;p=p5sagit%2FApp-FatPacker.git 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;