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');