#!/usr/bin/perl -w
use strict;
use SVG;
# test: fe
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");
my $fe = $svg->fe(
-type => 'diffuselighting', # required - element name omiting 'fe'
id => 'filter_1',
style => {
'font' => [ qw(Arial Helvetica sans) ],
'font-size' => 10,
'fill' => 'red',
},
transform => 'rotate(-45)'
);
print ("Failed on fe 1: generation ") and exit(0) unless $fe;
my $out = $svg->xmlify;
print ("Failed on fe 2: result ") and exit(0) unless $out =~ /feDiffuseLighting/;
exit 1;