1# 2# $Id: jperl.t,v 2.6 2022/04/07 03:06:40 dankogai Exp dankogai $ 3# 4# This script is written in euc-jp 5 6BEGIN { 7 require Config; import Config; 8 if ($Config{'extensions'} !~ /\bEncode\b/) { 9 print "1..0 # Skip: Encode was not built\n"; 10 exit 0; 11 } 12 unless (find PerlIO::Layer 'perlio') { 13 print "1..0 # Skip: PerlIO was not built\n"; 14 exit 0; 15 } 16 if (ord("A") == 193) { 17 print "1..0 # Skip: EBCDIC\n"; 18 exit 0; 19 } 20 if ($] >= 5.025 and !$Config{usecperl}) { 21 print "1..0 # Skip: encoding pragma not supported in Perl 5.25 or later\n"; 22 exit(0); 23 } 24 $| = 1; 25} 26 27no utf8; # we have raw Japanese encodings here 28 29use strict; 30#use Test::More tests => 18; 31use Test::More tests => 15; # black magic tests commented out 32my $Debug = shift; 33 34no warnings "deprecated"; 35no encoding; # ensure 36my $Enamae = "\xbe\xae\xbb\xf4\x20\xc3\xc6"; # euc-jp, with \x escapes 37use encoding "euc-jp"; 38 39my $Namae = "���� ��"; # in Japanese, in euc-jp 40my $Name = "Dan Kogai"; # in English 41# euc-jp in \x format but after the pragma. But this one will be converted! 42my $Ynamae = "\xbe\xae\xbb\xf4\x20\xc3\xc6"; 43 44 45my $str = $Namae; $str =~ s/���� ��/Dan Kogai/o; 46is($str, $Name, q{regex}); 47$str = $Namae; $str =~ s/$Namae/Dan Kogai/o; 48is($str, $Name, q{regex - with variable}); 49is(length($Namae), 4, q{utf8:length}); 50{ 51 use bytes; 52 # converted to UTF-8 so 3*3+1 53 is(length($Namae), 10, q{bytes:length}); 54 # 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)); 59} 60# let's test the scope as well. Must be in utf8 realm 61is(length($Namae), 4, q{utf8:length}); 62 63{ 64 no encoding; 65 ok(! defined(${^ENCODING}), q{no encoding;}); 66} 67# should've been isnt() but no scoping is suported -- yet 68ok(! defined(${^ENCODING}), q{not scoped yet}); 69 70# 71# The following tests are commented out to accomodate 72# Inaba-San's patch to make tr/// work w/o eval qq{} 73#{ 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}); 79#} 80#ok(! defined(${^ENCODING}), q{out of black magic}); 81use bytes; 82is (length($Namae), 10); 83 84# 85# now something completely different! 86# 87{ 88 use encoding "euc-jp", Filter=>1; 89 ok(1, "Filter on"); 90 use utf8; 91 no strict 'vars'; # fools 92 # doesn't work w/ "my" as of this writing. 93 # because of buggy strict.pm and utf8.pm 94 our $�� = 2; 95 # ^^U+4eba, "human" in CJK ideograph 96 $��++; # a child is born 97 *people = \$��; 98 is ($people, 3, "Filter:utf8 identifier"); 99 no encoding; 100 ok(1, "Filter off"); 101} 102 1031; 104__END__ 105 106 107