This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[PATCH] Cleanup output from t/io/defout.t RT#78572
authorJerry D. Hedden <jdhedden@cpan.org>
Tue, 26 Oct 2010 21:11:32 +0000 (22:11 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Tue, 26 Oct 2010 21:11:32 +0000 (22:11 +0100)
  t/io/defout.t pollutes the output of 'make test':

  t/io/defout....................................................$a;
  # write
  ok

  The attached patch fixes this.

Signed-off-by: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
t/io/defout.t

index dda3b4c..ea59f72 100644 (file)
@@ -12,8 +12,7 @@ BEGIN {
     require './test.pl';
 }
 
     require './test.pl';
 }
 
-plan tests => 16;
-
+plan tests => 17;
 
 my $stderr = *STDERR;
 select($stderr);
 
 my $stderr = *STDERR;
 select($stderr);
@@ -25,12 +24,12 @@ $stderr = 1; # whoops, PL_defoutgv no longer a GV!
 
 ok print(""), 'print';
 ok select(), 'select';
 
 ok print(""), 'print';
 ok select(), 'select';
-$a = 'fooo';
+next_test();
 format STDERR =
 #@<<
 format STDERR =
 #@<<
-$a;
+ok 3
 .
 .
-ok ! write(), 'write';
+ok ! write();
 
 ok($^, '$^');
 ok($~, '$~');
 
 ok($^, '$^');
 ok($~, '$~');