X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Ftrace.t;fp=t%2Ftrace.t;h=0d8191e53d840fd18ae4080ed598ffd7fdc09d3a;hb=8516a2f454820d8aad0897f6bec7e37ecd94dcc0;hp=b844f189382c35a99a74e2d7de8097c57e1a4595;hpb=bdb76e3ef26ab5959d804ea5e6ff3f23826f963b;p=p5sagit%2FApp-FatPacker.git diff --git a/t/trace.t b/t/trace.t index b844f18..0d8191e 100644 --- a/t/trace.t +++ b/t/trace.t @@ -24,25 +24,3 @@ sub test_trace { is_deeply \@traced, \@loaded, "All expected modules loaded for $file"; unlink "fatpacker.trace"; } - -test_trace("t/mod/a.pm" => ("t/mod/b.pm", "t/mod/c.pm")); - -sub test_trace_stderr { - my($file, @loaded) = @_; - local $Test::Builder::Level = $Test::Builder::Level + 1; - - system(join(' ', - $^X, "-Mblib", "-MApp::FatPacker::Trace", '--to-stderr', $file, - '>', 'fatpacker.trace', '2>&1')); - - open my $trace, "<", "fatpacker.trace"; - while(<$trace>) { - chomp; - my $load = $_; - @loaded = grep { $load ne $_ } @loaded; - } - - ok !@loaded, "All expected modules loaded for $file"; - unlink "fatpacker.trace"; -} -