t/uni/tr_sjis.t

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