diff options
| author | Karl Williamson <khw@cpan.org> | 2016-07-11 21:40:13 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2016-07-16 17:42:39 -0600 |
| commit | ecfe5375bc04ce2ebb56d6452d1c18ec1a54a68f (patch) | |
| tree | 5bef2dbc34d3e2bdf949e231691c8ea76e023d56 | |
| parent | 753b2c6a60a81dacbe59e2041e30e8302484dc2d (diff) | |
| download | perl-ecfe5375bc04ce2ebb56d6452d1c18ec1a54a68f.tar.gz | |
anyof.t: Add tests for previous commit
The tests are being kept separate in case we want to put the previous
commit into a maintenance release. The tests need infrastructure added
since the release of 5.24, so can't easily be backported.
| -rw-r--r-- | t/re/anyof.t | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/t/re/anyof.t b/t/re/anyof.t index 181028d6e0..2980cc8273 100644 --- a/t/re/anyof.t +++ b/t/re/anyof.t @@ -43,6 +43,12 @@ my @tests = ( '(?l:[\s\x{212A}])' => 'ANYOFL[\s][1680 2000-200A 2028-2029 202F 205F 212A 3000]', '(?l:[^\S\x{202F}])' => 'ANYOFL[^\\S][1680 2000-200A 2028-2029 205F 3000]', '(?i:[^:])' => 'ANYOF[^:][0100-INFINITY]', + '[\p{Any}]' => 'ANYOF[\x00-\xFF][0100-10FFFF]', + '[\p{IsMyRuntimeProperty}]' => 'ANYOF[+utf8::IsMyRuntimeProperty]', + '[^\p{IsMyRuntimeProperty}]' => 'ANYOF[^{+utf8::IsMyRuntimeProperty}]', + '[a\p{IsMyRuntimeProperty}]' => 'ANYOF[a][+utf8::IsMyRuntimeProperty]', + '[^a\p{IsMyRuntimeProperty}]' => 'ANYOF[^a{+utf8::IsMyRuntimeProperty}]', + '[^a\x{100}\p{IsMyRuntimeProperty}]' => 'ANYOF[^a{+utf8::IsMyRuntimeProperty}0100]', ); # 2**32-1 or 2**64-1 |