use Test::More; use Test::Differences; # use large enough data sets that this thing chooses context => 3 instead # of "full document context". my $a = ( "\n" x 30 ) . "a\n"; my $b = ( "\n" x 30 ) . "b\n"; my @tests = ( sub { eq_or_diff $a, $b }, sub { eq_or_diff_text $a, $b }, sub { eq_or_diff_data $a, $b }, ); plan tests => scalar @tests; TODO: { local $TODO = 'Force the output to be displayed'; $_->() for @tests; }