view release on metacpan or  search on metacpan

t/10-sparkline.t  view on Meta::CPAN

{
  my $sl = GD::Sparkline->new({
			       s   => q[10,0,10],
			       l   => '000000',
			       a   => '003366',
			       b   => 'transparent',
			       w   => 100,
			       h   => 20,
			      });
  my $image = $sl->draw();
  my $gd = GD::Image->newFromPngData($image);
  my $transparent = $gd->transparent();
  isnt($transparent, -1, 'image has transparency index set');
}