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 /t/uni | |
| 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 't/uni')
| -rw-r--r-- | t/uni/tr_7jis.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/t/uni/tr_7jis.t b/t/uni/tr_7jis.t index 894ff4c87e..6e74f1daa8 100644 --- a/t/uni/tr_7jis.t +++ b/t/uni/tr_7jis.t @@ -53,10 +53,10 @@ is($str, $katakana, "tr// # hiragana -> katakana"); $str = $katakana; $str =~ tr/ァ-ン/ぁ-ん/; is($str, $hiragana, "tr// # hiragana -> katakana"); -$str = $hiragana; eval qq{\$str =~ tr/ぁ-ん/ァ-ン/}; -is($str, $katakana, "eval qq{tr//} # hiragana -> katakana"); -$str = $katakana; eval qq{\$str =~ tr/ァ-ン/ぁ-ん/}; -is($str, $hiragana, "eval qq{tr//} # hiragana -> katakana"); +$str = $hiragana; eval qq(\$str =~ tr/ぁ-ん/ァ-ン/); +is($str, $katakana, "eval qq(tr//) # hiragana -> katakana"); +$str = $katakana; eval qq(\$str =~ tr/ァ-ン/ぁ-ん/); +is($str, $hiragana, "eval qq(tr//) # hiragana -> katakana"); $str = $hiragana; $str =~ s/([ぁ-ん])/$h2k{$1}/go; is($str, $katakana, "s/// # hiragana -> katakana"); |