1berry/postgres
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

perltidy adjustments to new file

Browse Source
This commit is contained in:
Alvaro Herrera 2012-07-09 17:35:57 -04:00
parent 628cbb50ba
commit fc4a8a6d74
1 changed files with 15 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
src/interfaces/libpq/test/regress.pl
View File

@ -27,36 +27,35 @@ open(STDERR, ">&", \*STDOUT) or die "can't dup STDOUT: $!";
# read lines from regress.in and run uri-regress on them # read lines from regress.in and run uri-regress on them
while (<REGRESS_IN>) while (<REGRESS_IN>)
{ {
chomp; chomp;
print "trying $_\n"; print "trying $_\n";
system("./uri-regress \"$_\""); system("./uri-regress \"$_\"");
print "\n"; print "\n";
} }
# 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;
} }