diff options
author | Inaba Hiroto <inaba@st.rim.or.jp> | 2003-02-02 06:58:20 +0900 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-02-05 17:15:35 +0000 |
commit | 220e2d4e806a3c9c0a9f9b31667e8be830cbc55b (patch) | |
tree | 28905af26db33e5aba4ebee2d01aafaecdd67261 /lib/utf8.t | |
parent | 6efa47225d75a7e88a5d03044ee492ff6e1b7ee0 (diff) | |
download | perl-220e2d4e806a3c9c0a9f9b31667e8be830cbc55b.tar.gz |
[Patch] parsing under encoding (Re: [Encode] HEADS-UP; $Encode::VERSION++ to enhance filter option)([perl #16823])
Message-ID: <3E3BC46B.6C687CFD@st.rim.or.jp>
p4raw-id: //depot/perl@18660
Diffstat (limited to 'lib/utf8.t')
-rw-r--r-- | lib/utf8.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lib/utf8.t b/lib/utf8.t index 8072c8722a..6728238fbf 100644 --- a/lib/utf8.t +++ b/lib/utf8.t @@ -37,7 +37,7 @@ no utf8; # Ironic, no? # # -plan tests => 98; +plan tests => 99; { # bug id 20001009.001 @@ -323,3 +323,8 @@ END is("@i", "60 62 58 50 52 48 70 72 68", "utf8 heredoc index and rindex"); } +{ + use utf8; + eval qq{is(q \xc3\xbc test \xc3\xbc, qq\xc2\xb7 test \xc2\xb7, + "utf8 quote delimiters [perl #16823]");}; +} |