t/uni/tr_sjis.t

   1 #!perl -w
   2 #
   3 # This script is written intentionally in Shift JIS
   4 # -- dankogai
   5
   6 BEGIN {
   7     require './test.pl';
   8     skip_all_without_dynamic_extension('Encode');
   9     skip_all("EBCDIC") if $::IS_EBCDIC;
  10     skip_all_without_perlio();
  11 }
  12
  13 use strict;
  14 plan(tests => 6);
  15 no warnings 'deprecated';
  16 use encoding 'shiftjis';
  17
  18 my @hiragana =  map {chr} ord("\82\9f")..ord("\82ñ");
  19 my @katakana =  map {chr} ord("\83@")..ord("\83\93");
  20 my $hiragana = join('' => @hiragana);
  21 my $katakana = join('' => @katakana);
  22 my %h2k; @h2k{@hiragana} = @katakana;
  23 my %k2h; @k2h{@katakana} = @hiragana;
  24
  25 # print @hiragana, "\n";
  26
  27 my $str;
  28
  29 $str = $hiragana; $str =~ tr/\82\9f-\82ñ/\83@-\83\93/;
  30 is($str, $katakana, "tr// # hiragana -> katakana");
  31 $str = $katakana; $str =~ tr/\83@-\83\93/\82\9f-\82ñ/;
  32 is($str, $hiragana, "tr// # hiragana -> katakana");
  33
  34 $str = $hiragana; eval qq(\$str =~ tr/\82\9f-\82ñ/\83@-\83\93/);
  35 is($str, $katakana, "eval qq(tr//) # hiragana -> katakana");
  36 $str = $katakana; eval qq(\$str =~ tr/\83@-\83\93/\82\9f-\82ñ/);
  37 is($str, $hiragana, "eval qq(tr//) # hiragana -> katakana");
  38
  39 $str = $hiragana; $str =~ s/([\82\9f-\82ñ])/$h2k{$1}/go;
  40 is($str, $katakana, "s/// # hiragana -> katakana");
  41 $str = $katakana; $str =~ s/([\83@-\83\93])/$k2h{$1}/go;
  42 is($str, $hiragana, "s/// # hiragana -> katakana");
  43 __END__