use strict;
use warnings;
use Test::More;
use IO::Null;
use Data::Dump;

my $fh = IO::Null->new;

Test::More->builder->output($fh);

is($_,$_,"equality $_") for 1..5;

is(1,0,"FAIL"); 

done_testing;

##</code><code>##

    
C:/Strawberry/perl/bin\perl.exe -w d:/tmp/pm/redirect_Tests.pl 
print() on unopened filehandle GLOB at C:/Strawberry/perl/lib/Test2/Formatter/TAP.pm line 156.
print() on unopened filehandle GLOB at C:/Strawberry/perl/lib/Test2/Formatter/TAP.pm line 156.
print() on unopened filehandle GLOB at C:/Strawberry/perl/lib/Test2/Formatter/TAP.pm line 156.
print() on unopened filehandle GLOB at C:/Strawberry/perl/lib/Test2/Formatter/TAP.pm line 156.
print() on unopened filehandle GLOB at C:/Strawberry/perl/lib/Test2/Formatter/TAP.pm line 156.
print() on unopened filehandle GLOB at C:/Strawberry/perl/lib/Test2/Formatter/TAP.pm line 125.
#   Failed test 'FAIL'
#   at d:/tmp/pm/redirect_Tests.pl line 13.
#          got: '1'
#     expected: '0'
print() on unopened filehandle GLOB at C:/Strawberry/perl/lib/Test2/Formatter/TAP.pm line 125.
# Looks like you failed 1 test of 6.

Compilation exited abnormally with code 1 at Sat Nov  6 22:35:40