diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-09 06:52:36 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-09 06:52:36 +0000 |
| commit | 89d0f8e1791f63975577c623564080289e4e5ccb (patch) | |
| tree | 46fc606c7b4a56946e0ebf4580aad511c15b06f7 /t | |
| parent | 5dab1207de1f24b66daa019a365ada0ee1faa6f9 (diff) | |
| download | perl-89d0f8e1791f63975577c623564080289e4e5ccb.tar.gz | |
Two more tests for #20566/#20568.
p4raw-id: //depot/perl@20570
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/pat.t | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index 7be0afc4cb..2c96fe2567 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -6,7 +6,7 @@ $| = 1; -print "1..1010\n"; +print "1..1012\n"; BEGIN { chdir 't' if -d 't'; @@ -3196,11 +3196,21 @@ ok("abcde" eq "$`", '# TODO #19049 - global match not setting $`'); ok("123\x{100}" =~ /^.*1.*23\x{100}$/, 'uft8 + multiple floating substr'); +# LATIN SMALL/CAPITAL LETTER A WITH MACRON ok(" \x{101}" =~ qr/\x{100}/i, "<20030808193656.5109.1@llama.ni-s.u-net.com>"); +# LATIN SMALL/CAPITAL LETTER A WITH RING BELOW ok(" \x{1E01}" =~ qr/\x{1E00}/i, "<20030808193656.5109.1@llama.ni-s.u-net.com>"); -# last test 1010 +# DESERET SMALL/CAPITAL LETTER LONG I +ok(" \x{10428}" =~ qr/\x{10400}/i, + "<20030808193656.5109.1@llama.ni-s.u-net.com>"); + +# LATIN SMALL/CAPITAL LETTER A WITH RING BELOW + 'X' +ok(" \x{1E01}x" =~ qr/\x{1E00}X/i, + "<20030808193656.5109.1@llama.ni-s.u-net.com>"); + +# last test 1012 |