1N/A# This script is written intentionally in ISO-2022-JP
1N/A# requires Encode 1.83 or better to work
1N/A if ($ENV{'PERL_CORE'}){
1N/A unshift @INC, '../lib';
1N/A require Config; import Config;
1N/A if ($Config{'extensions'} !~ /\bEncode\b/) {
1N/A print "1..0 # Skip: Encode was not built\n";
1N/A if (ord("A") == 193) {
1N/A print "1..0 # Skip: EBCDIC\n";
1N/A unless (PerlIO::Layer->find('perlio')){
1N/A print "1..0 # Skip: PerlIO required\n";
1N/A if ($ENV{PERL_CORE_MINITEST}) {
1N/A print "1..0 # Skip: no dynamic loading on miniperl, no Encode\n";
1N/A#use Test::More qw(no_plan);
1N/Ause Test::More tests => 6;
1N/Ause encoding 'iso-2022-jp';
1N/Amy @hiragana = map {chr} ord("$B$!(B")
..ord("$B$s(B");
1N/Amy @katakana = map {chr} ord("$B%!(B")
..ord("$B%s(B");
1N/Amy $hiragana = join('' => @hiragana);
1N/Amy $katakana = join('' => @katakana);
1N/Amy %h2k; @h2k{@hiragana} = @katakana;
1N/Amy %k2h; @k2h{@katakana} = @hiragana;
1N/A# print @hiragana, "\n";
1N/A$str = $hiragana; $str =~ tr/$B$!(B-$B$s(B/$B%!(B-$B%s(B/;
1N/Ais($str, $katakana, "tr// # hiragana -> katakana");
1N/A$str = $katakana; $str =~ tr/$B%!(B-$B%s(B/$B$!(B-$B$s(B/;
1N/Ais($str, $hiragana, "tr// # hiragana -> katakana");
1N/A$str = $hiragana; eval qq(\$str =~ tr/$B$!(B-$B$s(B/$B%!(B-$B%s(B/);
1N/Ais($str, $katakana, "eval qq(tr//) # hiragana -> katakana");
1N/A$str = $katakana; eval qq(\$str =~ tr/$B%!(B-$B%s(B/$B$!(B-$B$s(B/);
1N/Ais($str, $hiragana, "eval qq(tr//) # hiragana -> katakana");
1N/A$str = $hiragana; $str =~ s/([$B$!(B-$B$s(B])/$h2k{$1}/go;
1N/Ais($str, $katakana, "s/// # hiragana -> katakana");
1N/A$str = $katakana; $str =~ s/([$B%!(B-$B%s(B])/$k2h{$1}/go;
1N/Ais($str, $hiragana, "s/// # hiragana -> katakana");