2 # $Id: jperl.t,v 2.2 2013/02/18 02:23:56 dankogai Exp $
4 # This script is written in euc-jp
7 require Config; import Config;
8 if ($Config{'extensions'} !~ /\bEncode\b/) {
9 print "1..0 # Skip: Encode was not built\n";
12 unless (find PerlIO::Layer 'perlio') {
13 print "1..0 # Skip: PerlIO was not built\n";
16 if (ord("A") == 193) {
17 print "1..0 # Skip: EBCDIC\n";
21 print "1..0 # encoding pragma not supported in Perl 5.26\n";
27 no utf8; # we have raw Japanese encodings here
30 #use Test::More tests => 18;
31 use Test::More tests => 15; # black magic tests commented out
34 no warnings "deprecated";
36 my $Enamae = "\xbe\xae\xbb\xf4\x20\xc3\xc6"; # euc-jp, with \x escapes
37 use encoding "euc-jp";
39 my $Namae = "¾®»ô ÃÆ"; # in Japanese, in euc-jp
40 my $Name = "Dan Kogai"; # in English
41 # euc-jp in \x format but after the pragma. But this one will be converted!
42 my $Ynamae = "\xbe\xae\xbb\xf4\x20\xc3\xc6";
45 my $str = $Namae; $str =~ s/¾®»ô ÃÆ/Dan Kogai/o;
46 is($str, $Name, q{regex});
47 $str = $Namae; $str =~ s/$Namae/Dan Kogai/o;
48 is($str, $Name, q{regex - with variable});
49 is(length($Namae), 4, q{utf8:length});
52 # converted to UTF-8 so 3*3+1
53 is(length($Namae), 10, q{bytes:length});
55 is(length($Enamae), 7, q{euc:length}); # 2*3+1
56 is ($Namae, $Ynamae, q{literal conversions});
57 isnt($Enamae, $Ynamae, q{before and after});
58 is($Enamae, Encode::encode('euc-jp', $Namae));
60 # let's test the scope as well. Must be in utf8 realm
61 is(length($Namae), 4, q{utf8:length});
65 ok(! defined(${^ENCODING}), q{no encoding;});
67 # should've been isnt() but no scoping is suported -- yet
68 ok(! defined(${^ENCODING}), q{not scoped yet});
71 # The following tests are commented out to accomodate
72 # Inaba-San's patch to make tr/// work w/o eval qq{}
74 # # now let's try some real black magic!
75 # local(${^ENCODING}) = Encode::find_encoding("euc-jp");
76 # my $str = "\xbe\xae\xbb\xf4\x20\xc3\xc6";
77 # is (length($str), 4, q{black magic:length});
78 # is ($str, $Enamae, q{black magic:eq});
80 #ok(! defined(${^ENCODING}), q{out of black magic});
82 is (length($Namae), 10);
85 # now something completely different!
88 use encoding "euc-jp", Filter=>1;
91 no strict 'vars'; # fools
92 # doesn't work w/ "my" as of this writing.
93 # because of buggy strict.pm and utf8.pm
95 # ^^U+4eba, "human" in CJK ideograph
96 $¿Í++; # a child is born
98 is ($people, 3, "Filter:utf8 identifier");