use strict;
use warnings;
use Test::More;


tie my $s_null,"NULL";

Test::More->builder->output(\ $s_null);


is($_,$_+ int rand 2,"TEST $_") for 1..5;


done_testing;



package NULL;

sub FETCH {""}

sub STORE {
    print $_[1]
      if $_[1] =~ /^not ok \d+ -/;                        # NB: you ma
+y want to another FH
}

sub TIESCALAR {
    return bless \ my $var, shift;
}
[download]

C:/Strawberry/perl/bin\perl.exe -w d:/tmp/pm/test_only_fails.pl 
not ok 2 - TEST 2
#   Failed test 'TEST 2'
#   at d:/tmp/pm/test_only_fails.pl line 11.
#          got: '2'
#     expected: '3'
# Looks like you failed 1 test of 5.
[download]