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>
require './test.pl';
}
-plan tests => 16;
-
+plan tests => 17;
my $stderr = *STDERR;
select($stderr);
ok print(""), 'print';
ok select(), 'select';
-$a = 'fooo';
+next_test();
format STDERR =
#@<<
-$a;
+ok 3
.
-ok ! write(), 'write';
+ok ! write();
ok($^, '$^');
ok($~, '$~');