diff options
| author | Peter Eisentraut <peter_e@gmx.net> | 2014-10-26 10:26:36 -0400 |
|---|---|---|
| committer | Peter Eisentraut <peter_e@gmx.net> | 2014-10-26 10:27:15 -0400 |
| commit | 76e190d52225fc1124efc7d77f773643405b263e (patch) | |
| tree | f083cc0ff3401ce7c6f50582d69519fdebab0c4d /src/test/perl/TestLib.pm | |
| parent | 6b531cd077eeacce25106f5456876b57ad68a834 (diff) | |
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)
Diffstat (limited to 'src/test/perl/TestLib.pm')
| -rw-r--r-- | src/test/perl/TestLib.pm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/test/perl/TestLib.pm b/src/test/perl/TestLib.pm index 545b2f3e502..fa8e67d0040 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 |