use strict;
use warnings;
use Test::More;
my $class;
BEGIN {
use_ok($class='t::AdvancedUsage', qw(Left Right));
}
# ----
# Helpers.
# ----
# Tests.
subtest 'properties' => sub {
is(Left ->delta, -1, 'Left ->delta');
is(Right->delta, 1, 'Right->delta');
};
subtest 'methods' => sub {
is(Left ->move(5), 4, 'Left ->move(5)');
is(Right->move(5), 6, 'Right->move(5)');
};
# ----
done_testing;