t/SVG-SpriteMaker.t

   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';