use strict;
use warnings;
use Test::More;

my $class;
BEGIN {
    use_ok($class='t::OverrideDefaultProperties', qw(Left Center Right));
}

# ----
# Helpers.

# ----
# Tests.
subtest 'default properties' => sub {
    is(Left  ->ordinal, -1, 'Left  ->ordinal');
    is(Center->ordinal,  0, 'Center->ordinal');
    is(Right ->ordinal,  1, 'Right ->ordinal');
    is(Left  ->name, 'L', 'Left  ->name');
    is(Center->name, 'C', 'Center->name');
    is(Right ->name, 'R', 'Right ->name');
};

# ----
done_testing;