#!/usr/bin/perl -w
use strict;
use SVG;
# test: getFirstChild, getLastChild, getParent, getChildren
my $svg=new SVG;
my $parent=$svg->group();
my $child1=$parent->text->cdata("I am the first child");
my $child2=$parent->text->cdata("I am the second child");
print ("Failed on hasSiblings") and exit(0)
unless $child1->hasSiblings();
print ("Failed on getNextSibling") and exit(0)
if $child1->getNextSibling() != $child2;
print ("Failed on getPreviousSibling") and exit(0)
if $child2->getPreviousSibling() != $child1;
exit 1;