[svg-spritemaker.git] / t / SVG-SpriteMaker.t

#!/usr/bin/perl
use strict;
use warnings;

use Test::More tests => 3;
BEGIN { use_ok('SVG::SpriteMaker') };

my $sprite = make_sprite frag => <t/*.svg>;
my @elements = $sprite->getFirstChild->getChildren;

ok $sprite->getElementByID('frag-rect'), 'sprite contains #frag-rect';
ok $sprite->getElementByID('frag-circle'), 'sprite contains #frag-circle';
Commit	Line	Data
b1b509f4 MG	1	#!/usr/bin/perl
	2	use strict;
	3	use warnings;
	4
	5	use Test::More tests => 3;
	6	BEGIN { use_ok('SVG::SpriteMaker') };
	7
	8	my $sprite = make_sprite frag => <t/*.svg>;
	9	my @elements = $sprite->getFirstChild->getChildren;
	10
	11	ok $sprite->getElementByID('frag-rect'), 'sprite contains #frag-rect';
	12	ok $sprite->getElementByID('frag-circle'), 'sprite contains #frag-circle';