#!env perl
use strict;
use warnings;
use Test::More;
use lib ".";

BEGIN {
        use_ok( 'Funky' );
}
require_ok( 'Funky' );

subtest 'Vertex' => sub {
    my $t = Funky::Vertex->new("15,22");
    isa_ok($t, 'Funky::Vertex');
    is($t->X(), 15, "x val");
    is($t->Y, 22, "y val");
    done_testing();
};

subtest 'Rectangle' => sub {
    my $t = Funky::Rectangle->new("10,10;15,25");
    isa_ok($t, 'Funky::Rectangle');
    is($t->LL->X, 10, "LL x val");
    is($t->LL->Y, 10, "LL y val");
    is($t->UR->X, 15, "UR x val");
    is($t->UR->Y, 25, "UR y val");
    done_testing();
};