XXX parts/inc/ppphtest: Update

Changes in this distribution have caused certain things to change
slightly.  Update so the tests pass again.

(cherry picked from commit 53824f57c7b96239c40fa20a89f6b184cca12b77)
Signed-off-by: Nicolas R <atoomic@cpan.org>

diff --git a/dist/Devel-PPPort/parts/inc/ppphtest b/dist/Devel-PPPort/parts/inc/ppphtest
index 8b50078..0f8bf34 100644 (file)
--- a/dist/Devel-PPPort/parts/inc/ppphtest
+++ b/dist/Devel-PPPort/parts/inc/ppphtest
@@ -659,13 +659,13 @@ my %found = map {($_ => 1)} $o =~ /^===\s+(\w+)\s+===/mg;
 ok(scalar keys %found, 1);
 ok(exists $found{INT2PTR});
 ok(matches($o, '^Supported at least starting from perl-5\.6\.0\.', 'm'), 1);
-ok(matches($o, '^Support by .*ppport.* provided back to perl-5\.003', 'm'), 1);
+ok(matches($o, '^Support by .*ppport.* provided at least back to perl-5\.003', 'm'), 1, "Supported with ppport.h to 5.003");
 
 $o = ppport(qw(--api-info=Zero));
 %found = map {($_ => 1)} $o =~ /^===\s+(\w+)\s+===/mg;
 ok(scalar keys %found, 1);
 ok(exists $found{Zero});
-ok(matches($o, '^No portability information available\.', 'm'), 1);
+ok(matches($o, '^Supported at least starting from perl-5.003', 'm'), 1, __LINE__);
 
 $o = ppport(qw(--api-info=/Zero/));
 %found = map {($_ => 1)} $o =~ /^===\s+(\w+)\s+===/mg;

diff --git a/dist/Devel-PPPort/t/ppphtest.t b/dist/Devel-PPPort/t/ppphtest.t
index 5cf15e5..dc5c1f8 100644 (file)
--- a/dist/Devel-PPPort/t/ppphtest.t
+++ b/dist/Devel-PPPort/t/ppphtest.t
@@ -696,13 +696,13 @@ my %found = map {($_ => 1)} $o =~ /^===\s+(\w+)\s+===/mg;
 ok(scalar keys %found, 1);
 ok(exists $found{INT2PTR});
 ok(matches($o, '^Supported at least starting from perl-5\.6\.0\.', 'm'), 1);
-ok(matches($o, '^Support by .*ppport.* provided back to perl-5\.003', 'm'), 1);
+ok(matches($o, '^Support by .*ppport.* provided at least back to perl-5\.003', 'm'), 1, "Supported with ppport.h to 5.003");
 
 $o = ppport(qw(--api-info=Zero));
 %found = map {($_ => 1)} $o =~ /^===\s+(\w+)\s+===/mg;
 ok(scalar keys %found, 1);
 ok(exists $found{Zero});
-ok(matches($o, '^No portability information available\.', 'm'), 1);
+ok(matches($o, '^Supported at least starting from perl-5.003', 'm'), 1, __LINE__);
 
 $o = ppport(qw(--api-info=/Zero/));
 %found = map {($_ => 1)} $o =~ /^===\s+(\w+)\s+===/mg;