diff options
| author | Dan Kogai <dankogai@dan.co.jp> | 2002-11-19 12:18:44 +0900 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-11-25 02:20:48 +0000 |
| commit | b536bf570905070470ba64c88c9fb4f28bfa54f3 (patch) | |
| tree | 7b0f59ccdc7abdc63569674af522ba272b8d39f7 /t/uni | |
| parent | cb08891181ecbc3fbbda8b8f23b205ec0d0e1cb7 (diff) | |
| download | perl-b536bf570905070470ba64c88c9fb4f28bfa54f3.tar.gz | |
[Encode] 1.83 + bleedperl patch released
Message-Id: <2C132F6D-FB22-11D6-87FC-0003939A104C@dan.co.jp>
p4raw-id: //depot/perl@18175
Diffstat (limited to 't/uni')
| -rw-r--r-- | t/uni/tr_7jis.t | 13 | ||||
| -rw-r--r-- | t/uni/tr_sjis.t | 2 | ||||
| -rw-r--r-- | t/uni/tr_utf8.t | 8 |
3 files changed, 10 insertions, 13 deletions
diff --git a/t/uni/tr_7jis.t b/t/uni/tr_7jis.t index 292a01a798..360ce1c382 100644 --- a/t/uni/tr_7jis.t +++ b/t/uni/tr_7jis.t @@ -1,7 +1,8 @@ # # $Id$ # -# This script is written intentionally in EUC-JP +# This script is written intentionally in ISO-2022-JP +# requires Encode 1.83 or better to work # -- dankogai BEGIN { @@ -23,8 +24,6 @@ BEGIN { exit 0; } $| = 1; - print "1..0 # does not work with iso-2022-jp yet\n"; - exit 0; } use strict; @@ -49,10 +48,10 @@ is($str, $katakana, "tr// # hiragana -> katakana"); $str = $katakana; $str =~ tr/$B%!(B-$B%s(B/$B$!(B-$B$s(B/; is($str, $hiragana, "tr// # hiragana -> katakana"); -$str = $hiragana; eval qq(\$str =~ tr/$B$!(B-$B$s(B/$B%!(B-$B%s(B/); -is($str, $katakana, "eval qq(tr//) # hiragana -> katakana"); -$str = $katakana; eval qq(\$str =~ tr/$B%!(B-$B%s(B/$B$!(B-$B$s(B/); -is($str, $hiragana, "eval qq(tr//) # hiragana -> katakana"); +$str = $hiragana; eval qq{\$str =~ tr/$B$!(B-$B$s(B/$B%!(B-$B%s(B/}; +is($str, $katakana, "eval qq{tr//} # hiragana -> katakana"); +$str = $katakana; eval qq{\$str =~ tr/$B%!(B-$B%s(B/$B$!(B-$B$s(B/}; +is($str, $hiragana, "eval qq{tr//} # hiragana -> katakana"); $str = $hiragana; $str =~ s/([$B$!(B-$B$s(B])/$h2k{$1}/go; is($str, $katakana, "s/// # hiragana -> katakana"); diff --git a/t/uni/tr_sjis.t b/t/uni/tr_sjis.t index f5ad045f0e..0f4a72b055 100644 --- a/t/uni/tr_sjis.t +++ b/t/uni/tr_sjis.t @@ -1,7 +1,7 @@ # # $Id$ # -# This script is written intentionally in EUC-JP +# This script is written intentionally in Shift JIS # -- dankogai BEGIN { diff --git a/t/uni/tr_utf8.t b/t/uni/tr_utf8.t index 54b9b4ff37..b67883a890 100644 --- a/t/uni/tr_utf8.t +++ b/t/uni/tr_utf8.t @@ -1,7 +1,8 @@ # # $Id$ # -# This script is written intentionally in EUC-JP +# This script is written intentionally in UTF-8 +# Requires Encode 1.83 or better # -- dankogai BEGIN { @@ -29,10 +30,7 @@ use strict; #use Test::More qw(no_plan); use Test::More tests => 6; -# use encoding 'utf8'; # you can't uncomment this! -# if you uncomment above, you'll get the following (as of Encode 1.80) -# Assertion ((dst)->sv_flags & 0xff) >= SVt_PV failed: -# file "Encode.xs", line 255 at t/uni/tr_utf8.t line 35. +use encoding 'utf8'; my @hiragana = map {chr} ord("ぁ")..ord("ん"); my @katakana = map {chr} ord("ァ")..ord("ン"); |