diff options
Diffstat (limited to 't/re')
| -rw-r--r-- | t/re/pat_advanced.t | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/t/re/pat_advanced.t b/t/re/pat_advanced.t index 771e441db0..7408fdff59 100644 --- a/t/re/pat_advanced.t +++ b/t/re/pat_advanced.t @@ -2178,6 +2178,9 @@ EOP "chr(0xFFFF_FFFE) can match a Unicode property"); ok(chr(0xFFFF_FFFF) =~ /\p{Is_32_Bit_Super}/, "chr(0xFFFF_FFFF) can match a Unicode property"); + my $p = qr/^[\x{FFFF_FFFF}]$/; + ok(chr(0xFFFF_FFFF) =~ $p, + "chr(0xFFFF_FFFF) can match itself in a [class]"); } else { no warnings 'overflow'; @@ -2186,6 +2189,10 @@ EOP ok(chr(0xFFFF_FFFF_FFFF_FFFF) =~ qr/^\p{Is_Portable_Super}$/, "chr(0xFFFF_FFFF_FFFF_FFFF) can match a Unicode property"); + my $p = qr/^[\x{FFFF_FFFF_FFFF_FFFF}]$/; + ok(chr(0xFFFF_FFFF_FFFF_FFFF) =~ $p, + "chr(0xFFFF_FFFF_FFFF_FFFF) can match itself in a [class]"); + # This test is because something was declared as 32 bits, but # should have been cast to 64; only a problem where # sizeof(STRLEN) != sizeof(UV) |