Remove t/uni/tr_?jis.t

I disabled them a few commits ago, thinking that maybe reworking them
to test y窶冱 utf8 support might be a good idea; but they duplicate tests
already in t/uni/tr_utf8.t, so they are no longer necessary.

1 files changed, 0 insertions, 42 deletions

diff --git a/t/uni/tr_sjis.t b/t/uni/tr_sjis.t
deleted file mode 100644
index ff78e7aece..0000000000
--- a/t/uni/tr_sjis.t
+++ /dev/null
@@ -1,42 +0,0 @@
-#!perl -w
-#
-# This script is written intentionally in Shift JIS
-# -- dankogai
-
-BEGIN {
-    chdir 't' if -d 't';
-    require './test.pl';
-    skip_all("encoding.pm is no longer supported by the perl core");
-}
-
-use strict;
-plan(tests => 6);
-no warnings 'deprecated';
-use encoding 'shiftjis';
-
-my @hiragana =  map {chr} ord("ぁ")..ord("ん");
-my @katakana =  map {chr} ord("ァ")..ord("ン");
-my $hiragana = join('' => @hiragana);
-my $katakana = join('' => @katakana);
-my %h2k; @h2k{@hiragana} = @katakana;
-my %k2h; @k2h{@katakana} = @hiragana;
-
-# print @hiragana, "\n";
-
-my $str;
-
-$str = $hiragana; $str =~ tr/ぁ-ん/ァ-ン/;
-is($str, $katakana, "tr// # hiragana -> katakana");
-$str = $katakana; $str =~ tr/ァ-ン/ぁ-ん/;
-is($str, $hiragana, "tr// # hiragana -> katakana");
-
-$str = $hiragana; eval qq(\$str =~ tr/ぁ-ん/ァ-ン/);
-is($str, $katakana, "eval qq(tr//) # hiragana -> katakana");
-$str = $katakana; eval qq(\$str =~ tr/ァ-ン/ぁ-ん/);
-is($str, $hiragana, "eval qq(tr//) # hiragana -> katakana");
-
-$str = $hiragana; $str =~ s/([ぁ-ん])/$h2k{$1}/go;
-is($str, $katakana, "s/// # hiragana -> katakana");
-$str = $katakana; $str =~ s/([ァ-ン])/$k2h{$1}/go;
-is($str, $hiragana, "s/// # hiragana -> katakana");
-__END__