[PATCH] Cleanup output from t/io/defout.t RT#78572

  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>

1 files changed, 4 insertions, 5 deletions

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