From: Kevin Grittner <kgrittn@postgresql.org>
Date: Tue, 1 Sep 2015 21:12:22 +0000 (-0500)
Subject: Flush to show results of TestLib.pm (TAP) test as we go.
X-Git-Tag: REL9_6_BETA1~1419
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=adb495049f575563930f3c1fbef2843bda3ae46d;p=postgresql

Flush to show results of TestLib.pm (TAP) test as we go.

It appears that some attempt was made to do this using autocommit,
but it wasn't effective (at least on Ubuntu 14.04).
---

diff --git a/src/test/perl/SimpleTee.pm b/src/test/perl/SimpleTee.pm
index 8d31a4013c..5da82d0f85 100644
--- a/src/test/perl/SimpleTee.pm
+++ b/src/test/perl/SimpleTee.pm
@@ -20,6 +20,7 @@ sub PRINT {
 	my $ok = 1;
 	for my $fh (@$self) {
 		print $fh @_ or $ok = 0;
+		$fh->flush or $ok = 0;
 	}
 	return $ok;
 }