diff --git a/t/parse_file.t b/t/parse_file.t index 667f2c2..8f923a1 100644 --- a/t/parse_file.t +++ b/t/parse_file.t @@ -7,7 +7,7 @@ use Test::More tests => 1; use HTML::Lint; use File::Temp qw( tempfile ); -my ($o, $OUTPUT_FN) = tempfile( SUFFIX => '.xhtml', UNLINK => 1); +my ($o, $OUTPUT_FN) = tempfile( SUFFIX => '.xhtml', UNLINK => 0); print {$o} <<'EOF'; @@ -29,3 +29,5 @@ my $lint = HTML::Lint->new; $lint->parse_file($OUTPUT_FN); is_deeply( [map { $_->as_string() } $lint->errors()], [], 'HTML is valid for output file.' ); + +unlink($OUTPUT_FN);