1use Test::More tests => 6; 2 3BEGIN { 4 use_ok('Geometry::Primitive::Point'); 5 use_ok('Geometry::Primitive::Bezier'); 6}; 7 8my $point1 = Geometry::Primitive::Point->new(x => 0, y => 0); 9my $point2 = Geometry::Primitive::Point->new(x => 0, y => 10); 10 11my $c1 = Geometry::Primitive::Point->new(x => 5, y => 5); 12my $c2 = Geometry::Primitive::Point->new(x => 7, y => 6); 13 14my $bezier = Geometry::Primitive::Bezier->new( 15 start => $point1, 16 end => $point2, 17 control1 => [5, 5], 18 control2 => $c2 19); 20isa_ok($bezier, 'Geometry::Primitive::Bezier'); 21 22ok($bezier->point_start->equal_to($point1), 'point_start'); 23ok($bezier->point_end->equal_to($point2), 'point_end'); 24ok($bezier->control1->equal_to($c1), 'coerced control point');