Skip to content
Snippets Groups Projects
Commit fc4a8a6d authored by Alvaro Herrera's avatar Alvaro Herrera
Browse files

perltidy adjustments to new file

parent 628cbb50
No related branches found
No related tags found
No related merge requests found
......@@ -36,27 +36,26 @@ while (<REGRESS_IN>)
# restore STDOUT/ERR so we can print the outcome to the user
open(STDERR, ">&", \*OLDERR) or die; # can't complain as STDERR is still duped
open(STDOUT, ">&", \*OLDOUT) or die "Can't restore STDOUT: $!";
open(STDOUT, ">&", \*OLDOUT) or die "can't restore STDOUT: $!";
# just in case
close REGRESS_IN;
my $diff_status = system(
"diff -c \"$srcdir/$subdir/expected.out\" regress.out >regress.diff");
print "=" x 70, "\n";
if ($diff_status == 0)
{
print "=" x 70, "\n";
print "All tests passed\n";
exit 0;
}
else
{
print "=" x 70, "\n";
print <<EOF;
FAILED: the test result differs from the expected output
Review the difference in "$subdir/regress.diff"
EOF
print "=" x 70, "\n";
exit 1;
}
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment