diff options
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"); |