rdelaage
/
postgresql
mirror of https://git.postgresql.org/git/postgresql.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

perltidy adjustments to new file

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
while (<REGRESS_IN>)
{
chomp;
print "trying $_\n";
system("./uri-regress \"$_\"");
print "\n";
{
chomp;
print "trying $_\n";
system("./uri-regress \"$_\"");
print "\n";
}
# 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");
"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;
{
print "All tests passed\n";
exit 0;
}
else
{
print "=" x 70, "\n";
print <<EOF;
{
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;
exit 1;
}