From 4d2eb54d4d30c9c5b093de9a57c324d5551c58fe Mon Sep 17 00:00:00 2001
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Date: Tue, 26 Oct 2010 22:11:32 +0100
Subject: [PATCH] [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>
---
 t/io/defout.t | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/t/io/defout.t b/t/io/defout.t
index dda3b4c..ea59f72 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($~, '$~');
-- 
2.7.4