Commit a3210000 authored by Chris Lamb's avatar Chris Lamb 💬

t/fixtures.t: Check that output matches expected before comparing attributes...

t/fixtures.t: Check that output matches expected before comparing attributes to make it less confusing on failure.
parent dd1f6012
......@@ -70,13 +70,13 @@ foreach my $filename (@fixtures) {
$normalizer->($in) if defined $normalizer;
my @stat_after = lstat $in;
ok(compare($in, $out) == 0, "Got expected output");
# Check that file attributes remain unchanged.
foreach my $i (sort keys %STAT) {
is($stat_before[$i], $stat_after[$i], "$filename: $STAT{$i}");
}
ok(compare($in, $out) == 0, "Got expected output");
my @files = glob("$temp/*");
ok(scalar(@files) == 1, "Unexpected files leftover: " . join(" ", @files));
......
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