diff options
Diffstat (limited to 'ext/Encode/t/jperl.t')
| -rw-r--r-- | ext/Encode/t/jperl.t | 57 |
1 files changed, 57 insertions, 0 deletions
diff --git a/ext/Encode/t/jperl.t b/ext/Encode/t/jperl.t new file mode 100644 index 0000000000..333e1881c2 --- /dev/null +++ b/ext/Encode/t/jperl.t @@ -0,0 +1,57 @@ +# +# $Id: jperl.t,v 1.11 2002/03/31 22:12:13 dankogai Exp dankogai $ +# +# This script is written in euc-jp + +use strict; +use Test::More tests => 15; +my $Debug = shift; + +no encoding; # ensure +my $Enamae = "\xbe\xae\xbb\xf4\x20\xc3\xc6"; # euc-jp, with \x escapes +use encoding "euc-jp"; + +my $Namae = "¾®»ô ÃÆ"; # in Japanese, in euc-jp +my $Name = "Dan Kogai"; # in English +# euc-jp in \x format but after the pragma. But this one will be converted! +my $Ynamae = "\xbe\xae\xbb\xf4\x20\xc3\xc6"; + + +my $str = $Namae; $str =~ s/¾®»ô ÃÆ/Dan Kogai/o; +is($str, $Name, q{regex}); +$str = $Namae; $str =~ s/$Namae/Dan Kogai/o; +is($str, $Name, q{regex - with variable}); +is(length($Namae), 4, q{utf8:length}); +{ + use bytes; + # converted to UTF-8 so 3*3+1 + is(length($Namae), 10, q{bytes:length}); + # + is(length($Enamae), 7, q{euc:length}); # 2*3+1 + is ($Namae, $Ynamae, q{literal conversions}); + isnt($Enamae, $Ynamae, q{before and after}); + is($Enamae, Encode::encode('euc-jp', $Namae)); +} +# let's test the scope as well. Must be in utf8 realm +is(length($Namae), 4, q{utf8:length}); + +{ + no encoding; + ok(! defined(${^ENCODING}), q{no encoding;}); +} +# should've been isnt() but no scoping is suported -- yet +ok(! defined(${^ENCODING}), q{not scoped yet}); +{ + # now let's try some real black magic! + local(${^ENCODING}) = Encode::find_encoding("euc-jp"); + my $str = "\xbe\xae\xbb\xf4\x20\xc3\xc6"; + is (length($str), 4, q{black magic:length}); + is ($str, $Enamae, q{black magic:eq}); +} +ok(! defined(${^ENCODING}), q{out of black magic}); +use bytes; +is (length($Namae), 10); +1; +__END__ + + |