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
[perl5.git] / dist / Devel-PPPort / t / pv_tools.t
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[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], $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]);