t/op/index.t: Skip now illegal code points on 32 bit builds

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.

diff --git a/t/op/index.t b/t/op/index.t
index d1e46dc..996c5e4 100644 (file)
--- a/t/op/index.t
+++ b/t/op/index.t
@@ -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';