From: Graham Knop Date: Thu, 28 Jul 2016 20:44:50 +0000 (-0400) Subject: remove non-working stderr trace test X-Git-Tag: v0.010_006~5 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FApp-FatPacker.git;a=commitdiff_plain;h=8516a2f454820d8aad0897f6bec7e37ecd94dcc0 remove non-working stderr trace test --- 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"; -} -