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;