Test::Differences Perl module contains test strings and data structures and show differences if not ok.
SYNOPSIS
use Test; ## Or use Test::More
use Test::Differences;
eq_or_diff $got, "anbncn", "testing strings";
eq_or_diff @got, [qw( a b c )], "testing arrays";
## Passing options:
eq_or_diff $got, $expected, $name, { context => 300 }; ## options
## Using with DBI-like data structures
use DBI;
... open connection & prepare statement and @expected_... here...
eq_or_diff $sth->fetchall_arrayref, @expected_arrays "testing DBI arrays";
eq_or_diff $sth->fetchall_hashref, @expected_hashes, "testing DBI hashes";
## To force textual or data line numbering (text lines are numbered 1..):
eq_or_diff_text ...;
eq_or_diff_data ...;
Product's homepage
Requirements:
· Perl