Commit 9f96609a authored by Chris Lamb's avatar Chris Lamb 💬

Extend testsuite to ensure no extra files are leftover again.

parent cb2bc459
......@@ -29,13 +29,12 @@ use File::Temp qw(tempdir);
use File::StripNondeterminism;
use Test::More;
my $temp = tempdir( CLEANUP => 1 );
my @fixtures = glob('t/fixtures/*/*.in');
$File::StripNondeterminism::canonical_time = 1423159771;
foreach my $filename (@fixtures) {
my $temp = tempdir( CLEANUP => 1 );
my $in = "$temp/" . basename($filename, '.in');
(my $out = $filename) =~ s/\.in$/.out/;
......@@ -61,6 +60,9 @@ foreach my $filename (@fixtures) {
ok(compare($in, $out) == 0, "Got expected output");
my @files = glob("$temp/*");
ok(scalar(@files) == 1, "Unexpected files leftover: " . join(" ", @files));
done_testing;
}
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment