This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Devel;:PPPort: Skip tests invalid on EBCDIC
authorKarl Williamson <khw@cpan.org>
Wed, 10 Jan 2018 02:49:32 +0000 (19:49 -0700)
committerKarl Williamson <khw@cpan.org>
Wed, 10 Jan 2018 03:01:22 +0000 (20:01 -0700)
I don't think it's worth the effort to port these couple of tests.

dist/Devel-PPPort/parts/inc/pv_tools
dist/Devel-PPPort/t/pv_tools.t

index 41a4907..af75c42 100644 (file)
@@ -262,9 +262,11 @@ ok($r[0], "foobarbaz");
 ok($r[2], $r[3]);
 ok($r[2], '<leftpv_p\retty\nright>');
 ok($r[4], $r[5]);
 ok($r[2], $r[3]);
 ok($r[2], '<leftpv_p\retty\nright>');
 ok($r[4], $r[5]);
-ok($r[4], $uni ? 'N\375 Batter\355' : 'N\303\275 Batter\303');
+skip(ord("A") != 65 ? "Skip for non-ASCII platform" : 0,
+     $r[4], $uni ? 'N\375 Batter\355' : 'N\303\275 Batter\303');
 ok($r[6], $r[7]);
 ok($r[6], $r[7]);
-ok($r[6], $uni ? '\301g\346tis Byrju...' : '\303\201g\303\246t...');
+skip(ord("A") != 65 ? "Skip for non-ASCII platform" : 0,
+     $r[6], $uni ? '\301g\346tis Byrju...' : '\303\201g\303\246t...');
 
 @r = &Devel::PPPort::pv_display();
 ok($r[0], $r[1]);
 
 @r = &Devel::PPPort::pv_display();
 ok($r[0], $r[1]);
index e53beed..c4e5480 100644 (file)
@@ -61,9 +61,11 @@ ok($r[0], "foobarbaz");
 ok($r[2], $r[3]);
 ok($r[2], '<leftpv_p\retty\nright>');
 ok($r[4], $r[5]);
 ok($r[2], $r[3]);
 ok($r[2], '<leftpv_p\retty\nright>');
 ok($r[4], $r[5]);
-ok($r[4], $uni ? 'N\375 Batter\355' : 'N\303\275 Batter\303');
+skip(ord("A") != 65 ? "Skip for non-ASCII platform" : 0,
+     $r[4], $uni ? 'N\375 Batter\355' : 'N\303\275 Batter\303');
 ok($r[6], $r[7]);
 ok($r[6], $r[7]);
-ok($r[6], $uni ? '\301g\346tis Byrju...' : '\303\201g\303\246t...');
+skip(ord("A") != 65 ? "Skip for non-ASCII platform" : 0,
+     $r[6], $uni ? '\301g\346tis Byrju...' : '\303\201g\303\246t...');
 
 @r = &Devel::PPPort::pv_display();
 ok($r[0], $r[1]);
 
 @r = &Devel::PPPort::pv_display();
 ok($r[0], $r[1]);