use Clutter::TestHelper tests => 29;

my $path = Clutter::Path->new();
isa_ok($path, 'Clutter::Path', 'is a path');

$path->add_move_to(10, 10);
is($path->get_n_nodes(), 1, 'one node');

$path->add_line_to(10, 20);
is($path->get_n_nodes(), 2, 'two nodes');

$path->add_close();
is($path->get_n_nodes(), 3, 'three nodes');

my $node;

$node = $path->get_node(0);
is($node->{type}, 'move-to', 'first node');
is(scalar @{$node->{points}}, 1, 'one point');
is_deeply($node->{points}, [ [ 10, 10 ] ], 'first node coordinates');

$node = $path->get_node(1);
is($node->{type}, 'line-to', 'second node');
is(scalar @{$node->{points}}, 1, 'one point');
is_deeply($node->{points}->[0], [ 10, 20 ], 'second node coordinates');

$node = $path->get_node(2);
is($node->{type}, 'close', 'third node');

$path->replace_node(2, [ 'line-to', [ { x => 20, y => 20 }, ] ]);
is($path->get_n_nodes(), 3, 'still three nodes');
$node = $path->get_node(2);
is($node->{type}, 'line-to', 'third node');
is_deeply($node->{points}->[0], [ 20, 20 ], 'third node coordinates');

$path->add_string("C 20,10 20,10 10,10");
is($path->get_n_nodes(), 4, 'four nodes');
$node = $path->get_node(3);
is($node->{type}, 'curve-to', 'fourth node');
my $points = $node->{points};
is(scalar @{$points}, 3, 'three knots');
is_deeply($points, [ [ 20, 10 ], [ 20, 10 ], [ 10, 10 ] ], 'curve points');

$path->add_close();
is($path->get_n_nodes(), 5, 'five nodes');
$node = $path->get_node(4);
is($node->{type}, 'close', 'last node');
is(scalar keys %{$node}, 2, 'still type and points');
is_deeply($node->{points}, [ ], 'empty points');

my $n = 0;
$path->foreach(sub { $n += 1; });
is($n, 5, 'foreach');

$path->clear(); ok(1);

$path = Clutter::Path->new('M 10,10 C 20,10 20,10 20,20');
is($path->get_n_nodes(), 2, 'new from description');
is($path->get_node(0)->{type}, 'move-to', 'node from description');

$path->clear(); ok(1);

$path = Clutter::Path->new(
    { type => 'move-to', points => [ [ 10, 10 ] ] },
    [ 'line-to', [ [ 10, 20 ] ] ],
    { type => 'line-to', points => [ [ 20, 20 ] ] },
    [ 'line-to', [ [ 10, 10 ] ] ],
);
is($path->get_n_nodes(), 4, 'new from nodes');
is_deeply($path->get_node(2)->{points}->[0], [ 20, 20 ], 'node from data');