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