Perl test comparison methods

Test::More

use Test::More tests => 23;
# or
use Test::More qw(no_plan); 

ok($got eq $expected, $test_name);

like ($got, qr/expected/, $test_name);

is_deeply($got_complex_structure, $expected_complex_structure, $test_name);

Test::Differences

Compare data structures

eq_or_diff $got, $expected, "description"

Test::Lazy

No descriptions required

# Will evaluate the code and check it:
try('qw/a/' => eq => 'a');

# Don't evaluate, but still compare:
check(1 => is => 1);