summaryrefslogtreecommitdiff
path: root/lib/utf8.t
diff options
context:
space:
mode:
authorInaba Hiroto <inaba@st.rim.or.jp>2003-02-02 06:58:20 +0900
committerJarkko Hietaniemi <jhi@iki.fi>2003-02-05 17:15:35 +0000
commit220e2d4e806a3c9c0a9f9b31667e8be830cbc55b (patch)
tree28905af26db33e5aba4ebee2d01aafaecdd67261 /lib/utf8.t
parent6efa47225d75a7e88a5d03044ee492ff6e1b7ee0 (diff)
downloadperl-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.t7
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]");};
+}