ensure trace file is empty before tracing in test

[p5sagit/App-FatPacker.git] / t / trace.t

diff --git a/t/trace.t b/t/trace.t
index 313ef64..0021597 100755 (executable)
--- a/t/trace.t
+++ b/t/trace.t
@@ -15,6 +15,7 @@ sub test_trace {
   my($file, @loaded) = @_;
   local $Test::Builder::Level = $Test::Builder::Level + 1;
 
+  unlink "fatpacker.trace";
   system($^X, "-Mblib", "-MApp::FatPacker::Trace", $file);
 
   open my $trace, "<", "fatpacker.trace";