This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Cleanup output from t/io/defout.t RT#78572
authorJerry D. Hedden <jdhedden@cpan.org>
Tue, 26 Oct 2010 22:58:55 +0000 (15:58 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 26 Oct 2010 22:58:55 +0000 (15:58 -0700)
t/io/defout.t pollutes the output of 'make test':

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

  The attached patch fixes this.

t/io/defout.t

index dda3b4c..a36872e 100644 (file)
@@ -25,12 +25,13 @@ $stderr = 1; # whoops, PL_defoutgv no longer a GV!
 
 ok print(""), 'print';
 ok select(), 'select';
+
 $a = 'fooo';
 format STDERR =
-#@<<
-$a;
+@<<
+"#", $a
 .
-ok ! write(), 'write';
+ok((write())[0], 'write');
 
 ok($^, '$^');
 ok($~, '$~');