1
0
mirror of https://github.com/postgres/postgres.git synced 2025-07-31 22:04:40 +03:00

perltidy adjustments to new file

This commit is contained in:
Alvaro Herrera
2012-07-09 17:35:57 -04:00
parent 628cbb50ba
commit fc4a8a6d74

View File

@ -36,27 +36,26 @@ while (<REGRESS_IN>)
# restore STDOUT/ERR so we can print the outcome to the user # 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(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 # just in case
close REGRESS_IN; close REGRESS_IN;
my $diff_status = system( my $diff_status = system(
"diff -c \"$srcdir/$subdir/expected.out\" regress.out >regress.diff"); "diff -c \"$srcdir/$subdir/expected.out\" regress.out >regress.diff");
print "=" x 70, "\n";
if ($diff_status == 0) if ($diff_status == 0)
{ {
print "=" x 70, "\n";
print "All tests passed\n"; print "All tests passed\n";
exit 0; exit 0;
} }
else else
{ {
print "=" x 70, "\n";
print <<EOF; print <<EOF;
FAILED: the test result differs from the expected output FAILED: the test result differs from the expected output
Review the difference in "$subdir/regress.diff" Review the difference in "$subdir/regress.diff"
EOF EOF
print "=" x 70, "\n";
exit 1; exit 1;
} }