Move Encode from ext/ to cpan/
[perl.git] / cpan / Encode / t / jperl.t
1 #
2 # $Id: jperl.t,v 2.1 2006/05/03 18:24:10 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 use Test::More tests => 15; # black magic tests commented out
28 my $Debug = shift;
29
30 no encoding; # ensure
31 my $Enamae = "\xbe\xae\xbb\xf4\x20\xc3\xc6"; # euc-jp, with \x escapes
32 use encoding "euc-jp";
33
34 my $Namae  = "���� ��";   # in Japanese, in euc-jp
35 my $Name   = "Dan Kogai"; # in English
36 # euc-jp in \x format but after the pragma.  But this one will be converted!
37 my $Ynamae = "\xbe\xae\xbb\xf4\x20\xc3\xc6"; 
38
39
40 my $str = $Namae; $str =~ s/���� ��/Dan Kogai/o;
41 is($str, $Name, q{regex});
42 $str = $Namae; $str =~ s/$Namae/Dan Kogai/o;
43 is($str, $Name, q{regex - with variable});
44 is(length($Namae), 4, q{utf8:length});
45 {
46     use bytes;
47     # converted to UTF-8 so 3*3+1
48     is(length($Namae),   10, q{bytes:length}); 
49     # 
50     is(length($Enamae),   7, q{euc:length}); # 2*3+1
51     is ($Namae, $Ynamae,     q{literal conversions});
52     isnt($Enamae, $Ynamae,   q{before and after}); 
53     is($Enamae, Encode::encode('euc-jp', $Namae)); 
54 }
55 # let's test the scope as well.  Must be in utf8 realm
56 is(length($Namae), 4, q{utf8:length});
57
58 {
59     no encoding;
60     ok(! defined(${^ENCODING}), q{no encoding;});
61 }
62 # should've been isnt() but no scoping is suported -- yet
63 ok(! defined(${^ENCODING}), q{not scoped yet});
64
65 #
66 # The following tests are commented out to accomodate
67 # Inaba-San's patch to make tr/// work w/o eval qq{}
68 #{
69 #    # now let's try some real black magic!
70 #    local(${^ENCODING}) = Encode::find_encoding("euc-jp");
71 #    my $str = "\xbe\xae\xbb\xf4\x20\xc3\xc6";
72 #   is (length($str), 4, q{black magic:length});
73 #   is ($str, $Enamae,   q{black magic:eq});
74 #}
75 #ok(! defined(${^ENCODING}), q{out of black magic});
76 use bytes;
77 is (length($Namae), 10);
78
79 #
80 # now something completely different!
81 #
82 {
83     use encoding "euc-jp", Filter=>1;
84     ok(1, "Filter on");
85     use utf8;
86     no strict 'vars'; # fools
87     # doesn't work w/ "my" as of this writing.
88     # because of  buggy strict.pm and utf8.pm
89     our $�� = 2; 
90     #   ^^U+4eba, "human" in CJK ideograph
91     $��++; # a child is born
92     *people = \$��;
93     is ($people, 3, "Filter:utf8 identifier");
94     no encoding;
95     ok(1, "Filter off");
96 }
97
98 1;
99 __END__
100
101