1# 2# $Id$ 3# 4# This script is written intentionally in ISO-2022-JP 5# requires Encode 1.83 or better to work 6# -- dankogai 7 8BEGIN { 9 if ($ENV{'PERL_CORE'}){ 10 chdir 't'; 11 unshift @INC, '../lib'; 12 } 13 require Config; import Config; 14 if ($Config{'extensions'} !~ /\bEncode\b/) { 15 print "1..0 # Skip: Encode was not built\n"; 16 exit 0; 17 } 18 if (ord("A") == 193) { 19 print "1..0 # Skip: EBCDIC\n"; 20 exit 0; 21 } 22 unless (PerlIO::Layer->find('perlio')){ 23 print "1..0 # Skip: PerlIO required\n"; 24 exit 0; 25 } 26 if ($ENV{PERL_CORE_MINITEST}) { 27 print "1..0 # Skip: no dynamic loading on miniperl, no Encode\n"; 28 exit 0; 29 } 30 $| = 1; 31} 32 33use strict; 34#use Test::More qw(no_plan); 35use Test::More tests => 6; 36use Encode; 37use encoding 'iso-2022-jp'; 38 39my @hiragana = map {chr} ord("$B$!(B")..ord("$B$s(B"); 40my @katakana = map {chr} ord("$B%!(B")..ord("$B%s(B"); 41my $hiragana = join('' => @hiragana); 42my $katakana = join('' => @katakana); 43my %h2k; @h2k{@hiragana} = @katakana; 44my %k2h; @k2h{@katakana} = @hiragana; 45 46# print @hiragana, "\n"; 47 48my $str; 49 50$str = $hiragana; $str =~ tr/$B$!(B-$B$s(B/$B%!(B-$B%s(B/; 51is($str, $katakana, "tr// # hiragana -> katakana"); 52$str = $katakana; $str =~ tr/$B%!(B-$B%s(B/$B$!(B-$B$s(B/; 53is($str, $hiragana, "tr// # hiragana -> katakana"); 54 55$str = $hiragana; eval qq(\$str =~ tr/$B$!(B-$B$s(B/$B%!(B-$B%s(B/); 56is($str, $katakana, "eval qq(tr//) # hiragana -> katakana"); 57$str = $katakana; eval qq(\$str =~ tr/$B%!(B-$B%s(B/$B$!(B-$B$s(B/); 58is($str, $hiragana, "eval qq(tr//) # hiragana -> katakana"); 59 60$str = $hiragana; $str =~ s/([$B$!(B-$B$s(B])/$h2k{$1}/go; 61is($str, $katakana, "s/// # hiragana -> katakana"); 62$str = $katakana; $str =~ s/([$B%!(B-$B%s(B])/$k2h{$1}/go; 63is($str, $hiragana, "s/// # hiragana -> katakana"); 64__END__ 65