This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
82f7a84dd6ce808b6a9d951e740dc864e55a7e56
[perl5.git] / ext / Encode / t / jperl.t
1 #
2 # $Id: jperl.t,v 1.24 2002/04/26 03:02:04 dankogai Exp $
3 #
4 # This script is written in euc-jp
5
6 BEGIN {
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     $| = 1;
21 }
22
23 no utf8; # we have raw Japanese encodings here
24
25 use strict;
26 use Test::More tests => 18;
27 my $Debug = shift;
28
29 no encoding; # ensure
30 my $Enamae = "\xbe\xae\xbb\xf4\x20\xc3\xc6"; # euc-jp, with \x escapes
31 use encoding "euc-jp";
32
33 my $Namae  = "¾®»ô ÃÆ";   # in Japanese, in euc-jp
34 my $Name   = "Dan Kogai"; # in English
35 # euc-jp in \x format but after the pragma.  But this one will be converted!
36 my $Ynamae = "\xbe\xae\xbb\xf4\x20\xc3\xc6"; 
37
38
39 my $str = $Namae; $str =~ s/¾®»ô ÃÆ/Dan Kogai/o;
40 is($str, $Name, q{regex});
41 $str = $Namae; $str =~ s/$Namae/Dan Kogai/o;
42 is($str, $Name, q{regex - with variable});
43 is(length($Namae), 4, q{utf8:length});
44 {
45     use bytes;
46     # converted to UTF-8 so 3*3+1
47     is(length($Namae),   10, q{bytes:length}); 
48     # 
49     is(length($Enamae),   7, q{euc:length}); # 2*3+1
50     is ($Namae, $Ynamae,     q{literal conversions});
51     isnt($Enamae, $Ynamae,   q{before and after}); 
52     is($Enamae, Encode::encode('euc-jp', $Namae)); 
53 }
54 # let's test the scope as well.  Must be in utf8 realm
55 is(length($Namae), 4, q{utf8:length});
56
57 {
58     no encoding;
59     ok(! defined(${^ENCODING}), q{no encoding;});
60 }
61 # should've been isnt() but no scoping is suported -- yet
62 ok(! defined(${^ENCODING}), q{not scoped yet});
63 {
64     # now let's try some real black magic!
65     local(${^ENCODING}) = Encode::find_encoding("euc-jp");
66     my $str = "\xbe\xae\xbb\xf4\x20\xc3\xc6";
67    is (length($str), 4, q{black magic:length});
68    is ($str, $Enamae,   q{black magic:eq});
69 }
70 ok(! defined(${^ENCODING}), q{out of black magic});
71 use bytes;
72 is (length($Namae), 10);
73
74 #
75 # now something completely different!
76 #
77 {
78     use encoding "euc-jp", Filter=>1;
79     ok(1, "Filter on");
80     use utf8;
81     no strict 'vars'; # fools
82     # doesn't work w/ "my" as of this writing.
83     # because of  buggy strict.pm and utf8.pm
84     our $¿Í = 2; 
85     #   ^^U+4eba, "human" in CJK ideograph
86     $¿Í++; # a child is born
87     *people = \$¿Í;
88     is ($people, 3, "Filter:utf8 identifier");
89     no encoding;
90     ok(1, "Filter off");
91 }
92
93 1;
94 __END__
95
96