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