This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/op/index.t: Skip now illegal code points on 32 bit builds
authorKarl Williamson <khw@cpan.org>
Mon, 3 Jul 2017 19:52:31 +0000 (13:52 -0600)
committerKarl Williamson <khw@cpan.org>
Thu, 13 Jul 2017 03:14:23 +0000 (21:14 -0600)
These tests use code points that are now illegal on 32-bit platforms, so
skip them there.  The failures these tests were added for did not happen
except on these now-illegal code points.

t/op/index.t

index d1e46dc..996c5e4 100644 (file)
@@ -129,7 +129,8 @@ is(rindex($a, "foo",    ), 0);
     is (rindex($text, $search_octets), -1);
 }
 
-{
+SKIP: {
+    skip("Not a 64-bit machine", 3) if length sprintf("%x", ~0) <= 8;
     no warnings 'deprecated'; # These are above IV_MAX on 32 bit machines
     my $a = eval q{"\x{80000000}"};
     my $s = $a.'defxyz';