diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-06 03:05:34 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-06 03:05:34 +0000 |
| commit | a72c75842468bcd2a7cf17032844c4040a5a31e2 (patch) | |
| tree | f1d67259d9b154926eb495b329d3239f96b9be7c /lib/encoding.t | |
| parent | 545666dba9cc33d16d0b8341e36facdb43c44913 (diff) | |
| download | perl-a72c75842468bcd2a7cf17032844c4040a5a31e2.tar.gz | |
Implement the encoding pragma for regex literals.
p4raw-id: //depot/perl@12864
Diffstat (limited to 'lib/encoding.t')
| -rw-r--r-- | lib/encoding.t | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/lib/encoding.t b/lib/encoding.t index 03634410f4..8b14c8881a 100644 --- a/lib/encoding.t +++ b/lib/encoding.t @@ -1,4 +1,4 @@ -print "1..15\n"; +print "1..19\n"; use encoding "latin1"; # ignored (overwritten by the next line) use encoding "greek"; # iso 8859-7 (no "latin" alias, surprise...) @@ -68,3 +68,17 @@ print "ok 14\n"; print "not " unless ord(substr($c, 2, 1)) == 0x3af; print "ok 15\n"; +# regex literals + +print "not " unless "\xDF" =~ /\x{3AF}/; +print "ok 16\n"; + +print "not " unless "\x{3AF}" =~ /\xDF/; +print "ok 17\n"; + +print "not " unless "\xDF" =~ /\xDF/; +print "ok 18\n"; + +print "not " unless "\x{3AF}" =~ /\x{3AF}/; +print "ok 19\n"; + |