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