use Test::More tests=>5;
use strict;
use SVG qw(-inline 1);
# test: -inline
ok(my $svg1=new SVG(),"inline constructor");
$svg1->text->cdata("An inline document");
my $xml1a=$svg1->render();
ok($xml1a !~ /DOCTYPE/,"render inline document");
my $xml1b=$svg1->render(-inline => 0);
ok($xml1b =~ /DOCTYPE/,"2 render not inline");
my $svg2=new SVG(-inline => 0);
my $xml2a=$svg2->render();
ok($xml2a=~/DOCTYPE/,"3 render for not inline");
my $xml2b=$svg2->render(-inline => 1);
ok($xml2b!~/DOCTYPE/,"4 render inline render");