use Test::Most qw(defer_plan die);
BEGIN { use_ok('Point') }

my $point;
lives_ok {
    $point = Point->new( x => 100, y => 200 );
} 'check Point creation';

cmp_ok( $point->x, '==', 100, 'x is 100' );
cmp_ok( $point->y, '==', 200, 'y is 200' );

dies_ok { Point->new() }      'die because x, y forgotten';
dies_ok { Point->new(x=>10) } 'die because y forgotten';
dies_ok { Point->new(y=>10) } 'die because x forgotten';

all_done();