This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
XXX parts/inc/ppphtest: Update
authorKarl Williamson <khw@cpan.org>
Sun, 28 Jul 2019 17:12:24 +0000 (11:12 -0600)
committerNicolas R <atoomic@cpan.org>
Fri, 27 Sep 2019 22:51:27 +0000 (16:51 -0600)
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>
dist/Devel-PPPort/parts/inc/ppphtest
dist/Devel-PPPort/t/ppphtest.t

index 8b50078..0f8bf34 100644 (file)
@@ -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;
index 5cf15e5..dc5c1f8 100644 (file)
@@ -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;