database/postgres
database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-05-06 19:59:18 +03:00
Code

Fix TAP tests with Perl 5.12

Browse Source 
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)
This commit is contained in:
Peter Eisentraut 2014-10-26 10:26:36 -04:00
parent 6b531cd077
commit 76e190d522
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/test/perl/TestLib.pm
View File

@ -44,6 +44,14 @@ BEGIN
{ {
plan skip_all => "version of Test::More is too old to support subplans"; 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 # Set to untranslated messages, to be able to compare program output