From: Peter Eisentraut <peter_e@gmx.net>
Date: Sun, 26 Oct 2014 14:26:36 +0000 (-0400)
Subject: Fix TAP tests with Perl 5.12
X-Git-Tag: REL9_5_ALPHA1~1302
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=17009fb9ebe6873d98ed0fe216eeec08e0603823;p=postgresql

Fix TAP tests with Perl 5.12

Perl 5.12 ships with a somewhat broken version of Test::Simple, so skip
the tests if that is found.

The relevant fix is

    0.98  Wed, 23 Feb 2011 14:38:02 +1100
        Bug Fixes
        * subtest() should not fail if $? is non-zero. (Aaron Crane)
---

diff --git a/src/test/perl/TestLib.pm b/src/test/perl/TestLib.pm
index 545b2f3e50..fa8e67d004 100644
--- a/src/test/perl/TestLib.pm
+++ b/src/test/perl/TestLib.pm
@@ -44,6 +44,14 @@ BEGIN
 	{
 		plan skip_all => "version of Test::More is too old to support subplans";
 	};
+
+	eval {
+		require Test::Simple;
+		Test::Simple->VERSION('0.98');
+	} or do
+	{
+		plan skip_all => "version of Test::Simple is too old to support subplans properly";
+	};
 }
 
 # Set to untranslated messages, to be able to compare program output