#!/usr/bin/perl -w
use strict;
use SVG;
# test: fe
my $svg=new SVG;
my $tag = $svg->script(type=>"text/ecmascript");
# populate the script tag with cdata
# be careful to manage the javascript line ends.
# qq│text│ or qq§text§ where text is the script
# works well for this.
my $out;
$tag->CDATA(
qq|function d(){
//simple display function
for(cnt = 0; cnt < d.length; cnt++)
document.write(d[cnt]);//end for loop
document.write("<hr>");//write a line break
document.write('<br>');//write a horizontal rule
}|);
print ("Failed on script 1: create script element") and exit(0)
unless $tag;
$out = $svg->xmlify;
print ("Failed on script 2: specify script type") and exit(0)
unless $out =~ /\"text\/ecmascript\"/;
print ("Failed on script 3: generate script content") and exit(0)
unless $out =~ /function/;
print ("Failed on script 4: handle single quotes") and exit(0)
unless $out =~ /'<br>'/;
print ("Failed on script 5: handle double quotes") and exit(0)
unless $out =~ /"<hr>"/;
#test for adding scripting commands in an element
$out = $svg->xmlify;
my $rect = $svg->rect(x=>10,y=>10,
fill=>'red',stroke=>'black',
width=>'10',height=>'10',
onclick=>"alert('hello'+' '+'world')");
$out = $rect->xmlify;
print ("Failed on script 6: mouse event script call") and exit(0)
unless ($out =~ /'hello'/gs && $out =~ /'world'/gs);
exit 1;