1use Test::More tests => 5;
2
3BEGIN {
4    use_ok('Geometry::Primitive::Point');
5};
6
7my $point = Geometry::Primitive::Point->new();
8$point->x(1);
9$point->y(2);
10cmp_ok($point->x, '==', 1, 'x value');
11cmp_ok($point->y, '==', 2, 'y value');
12
13my $point2 = Geometry::Primitive::Point->new(x => 1, y => 2);
14ok($point->equal_to($point2), 'point equality');
15$point2->x(0);
16ok(!$point->equal_to($point2), 'point inequality');