This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Silence deprecation warnings in tests
authorMatthew Horsfall <wolfsage@gmail.com>
Mon, 14 Nov 2016 13:52:36 +0000 (08:52 -0500)
committerMatthew Horsfall <wolfsage@gmail.com>
Mon, 14 Nov 2016 13:52:36 +0000 (08:52 -0500)
t/io/utf8.t
t/op/readline.t
t/uni/readline.t

index 3909dc8..2b70059 100644 (file)
@@ -313,6 +313,7 @@ is($failed, undef);
     # [perl #23428] Somethings rotten in unicode semantics
     open F, ">$a_file";
     binmode F, ":utf8";
+    no warnings qw(deprecated);
     syswrite(F, $a = chr(0x100));
     close F;
     is( ord($a), 0x100, '23428 syswrite should not downgrade scalar' );
index bfe90d5..2ee1534 100644 (file)
@@ -214,6 +214,7 @@ SKIP: {
     pipe $in, $out;
     binmode $out, ':utf8';
     binmode $in,  ':utf8';
+    no warnings qw(deprecated);
     syswrite $out, "...\n";
     $line .= readline $in;
 
@@ -226,6 +227,7 @@ SKIP: {
     pipe $in, $out;
     binmode $out, ':utf8';
     binmode $in,  ':utf8';
+    no warnings qw(deprecated);
     syswrite $out, "\x{2080}...\n";
     $line .= readline $in;
 
index c733f69..893a290 100644 (file)
@@ -27,10 +27,13 @@ like($@, qr/Modification of a read-only value attempted/, '[perl #19566]');
 }
 
 use strict;
-
-open ᕝ, '.' and sysread ᕝ, $_, 1;
-my $err = $! + 0;
-close ᕝ;
+my $err;
+{
+  no warnings qw(deprecated);
+  open ᕝ, '.' and sysread ᕝ, $_, 1;
+  $err = $! + 0;
+  close ᕝ;
+}
 
 SKIP: {
   skip "you can read directories as plain files", 2 unless( $err );