1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
use strict;
use warnings;
use Test::More tests => 18;
use SVG;
# test: getFirstChild, getLastChild, getParent, getChildren
my $svg = SVG->new;
my $parent = $svg->group();
my $child1 = $parent->text->cdata("I am the first child");
my $child2 = $parent->text->cdata("I am the second child");
my $child3 = $parent->text->cdata("I am the third child");
is($parent->getFirstChild(), $child1, "getFirstChild");
is($child1->getParent(), $parent, "getParent 1");
is($parent->getLastChild(), $child3, "getLastChild");
is($child2->getParent(), $parent, "getParent 2");
ok($parent->hasChildren(), "hasChildren");
my @children = $parent->getChildren();
is(scalar(@children), 3,"correct number of children");
is($children[0], $child1, "getChildren 1");
is($children[1], $child2, "getChildren 2");
is($children[2], $child3, "getChildren 3");
is($parent->removeChild($child1), $child1, 'removeChild1');
is($parent->removeChild($child3), $child3, 'removeChild3');
is($parent->removeChild($child2), $child2, 'removeChild2');
is($parent->removeChild($child1), 0, 'no such child');
is($parent->findChildIndex($child1), -1, 'child1 is gone');
is($parent->insertAtIndex($child1,0), 1);
is($parent->findChildIndex($child1), 0, 'child1 is back');
is($parent->removeAtIndex(0), $child1);
is($parent->findChildIndex($child1), -1, 'child1 is gone again');
|
