use warnings;
use strict;

use My::Module;

my ($x, $y) = My::Module->pairs();

print "ok" if $x == $y;

##</code><code>##

use warnings;
use strict;

use Test::More;

use_ok('My::Module');

my ($x, $y) = My::Module->pairs();

is ($x, $y, "pairs() returns a pair that match");

done_testing();

##</code><code>##

ok 1 - use My::Module;
not ok 2 - pairs() returns a pair that match
#   Failed test 'pairs() returns a pair that match'
#   at pairs.t line 11.
#          got: '1'
#     expected: '2'
1..2
# Looks like you failed 1 test of 2.

##</code><code>##

sub pairs {
    return (1, 2);
}