Fix TAP tests with Perl 5.12

petere · petere · commit 17009fb9ebe6 · 2014-10-26T10:26:36.000-04:00
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
@@ -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

Original file line number	Diff line number	Diff line change
`@@ -44,6 +44,14 @@ BEGIN`
`44`	`44`	`{`
`45`	`45`	`plan skip_all => "version of Test::More is too old to support subplans";`
`46`	`46`	`};`
	`47`	`+`
	`48`	`+ eval {`
	`49`	`+ require Test::Simple;`
	`50`	`+ Test::Simple->VERSION('0.98');`
	`51`	`+ } or do`
	`52`	`+ {`
	`53`	`+ plan skip_all => "version of Test::Simple is too old to support subplans properly";`
	`54`	`+ };`
`47`	`55`	`}`
`48`	`56`
`49`	`57`	`# Set to untranslated messages, to be able to compare program output`