Silence encoding.pm deprecation warnings in the core test suite

diff --git a/t/op/tr.t b/t/op/tr.t
index 057be47..53530f2 100644 (file)
--- a/t/op/tr.t
+++ b/t/op/tr.t
@@ -512,6 +512,7 @@ SKIP: {
 eval q{ $a ~= tr/a/b/; };
 ok 1;
 SKIP: {
+    no warnings "deprecated";
     skip "no encoding", 1 unless eval { require encoding; 1 };
     eval q{ use encoding "utf8"; $a ~= tr/a/b/; };
     ok 1;

diff --git a/t/re/pat_advanced.t b/t/re/pat_advanced.t
index 29a64dd..b63491e 100644 (file)
--- a/t/re/pat_advanced.t
+++ b/t/re/pat_advanced.t
@@ -1804,6 +1804,7 @@ EOP
           'IsPunct disagrees with [:punct:] outside ASCII');
 
         my @isPunctLatin1 = eval q {
+            no warnings 'deprecated';
             use encoding 'latin1';
             grep {/[[:punct:]]/ != /\p{IsPunct}/} map {chr} 0x80 .. 0xff;
         };

diff --git a/t/uni/chr.t b/t/uni/chr.t
index 854d725..9445d32 100644 (file)
--- a/t/uni/chr.t
+++ b/t/uni/chr.t
@@ -9,6 +9,7 @@ BEGIN {
 
 use strict;
 plan (tests => 8);
+no warnings 'deprecated';
 use encoding 'johab';
 
 ok(chr(0x7f) eq "\x7f");

diff --git a/t/uni/greek.t b/t/uni/greek.t
index 1737a67..5326ab9 100644 (file)
--- a/t/uni/greek.t
+++ b/t/uni/greek.t
@@ -9,6 +9,7 @@ BEGIN {
 
 plan tests => 72;
 
+no warnings 'deprecated';
 use encoding "greek"; # iso 8859-7
 
 # U+0391, \xC1, \301, GREEK CAPITAL LETTER ALPHA

diff --git a/t/uni/latin2.t b/t/uni/latin2.t
index 1527471..6e7d980 100644 (file)
--- a/t/uni/latin2.t
+++ b/t/uni/latin2.t
@@ -9,6 +9,7 @@ BEGIN {
 
 plan tests => 94;
 
+no warnings 'deprecated';
 use encoding "latin2"; # iso 8859-2
 
 # U+00C1, \xC1, \301, LATIN CAPITAL LETTER A WITH ACUTE

diff --git a/t/uni/tr_7jis.t b/t/uni/tr_7jis.t
index 2118070..2108319 100644 (file)
--- a/t/uni/tr_7jis.t
+++ b/t/uni/tr_7jis.t
@@ -13,6 +13,7 @@ BEGIN {
 
 use strict;
 plan(tests => 6);
+no warnings 'deprecated';
 use encoding 'iso-2022-jp';
 
 my @hiragana =  map {chr} ord("\e$B$!\e(B")..ord("\e$B$s\e(B");

diff --git a/t/uni/tr_eucjp.t b/t/uni/tr_eucjp.t
index 27daf32..a317bb1 100644 (file)
--- a/t/uni/tr_eucjp.t
+++ b/t/uni/tr_eucjp.t
@@ -12,6 +12,7 @@ BEGIN {
 
 use strict;
 plan(tests => 6);
+no warnings 'deprecated';
 use encoding 'euc-jp';
 
 my @hiragana =  map {chr} ord("¤¡")..ord("¤ó");

diff --git a/t/uni/tr_sjis.t b/t/uni/tr_sjis.t
index 290dd8c..a82b35c 100644 (file)
--- a/t/uni/tr_sjis.t
+++ b/t/uni/tr_sjis.t
@@ -12,6 +12,7 @@ BEGIN {
 
 use strict;
 plan(tests => 6);
+no warnings 'deprecated';
 use encoding 'shiftjis';
 
 my @hiragana =  map {chr} ord("‚Ÿ")..ord("‚ñ");

diff --git a/t/uni/tr_utf8.t b/t/uni/tr_utf8.t
index 25a6753..2a566d9 100644 (file)
--- a/t/uni/tr_utf8.t
+++ b/t/uni/tr_utf8.t
@@ -13,6 +13,7 @@ BEGIN {
 
 use strict;
 plan(tests => 8);
+no warnings 'deprecated';
 use encoding 'utf8';
 
 my @hiragana =  map {chr} ord("ぁ")..ord("ん");