#!/usr/bin/perl -w
use strict;
use SVG;
# test: getElementTypes, getElementsByType, getElementType, getElementsByType, getElementTypes
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 getElementType") and exit(0)
unless $child1->getElementType() eq "text";
print ("Failed on getElementsByType 1") and exit(0)
unless scalar(@{$svg->getElementsByType("g")})==1;
print ("Failed on getElementsByType 2") and exit(0)
unless scalar(@{$svg->getElementsByType("text")})==2;
print ("Failed on getElementsTypes") and exit(0)
unless scalar(@{$svg->getElementTypes()})==3;
exit 1;