1BEGIN { $| = 1; } 2 3use SWF qw(Shape Bitmap); 4require 't/config.pl'; 5 6my $filename = ming_dir() . "/examples/common/png.dbl"; 7skip_test() unless (-e $filename); 8 9print "1..1\n"; 10 11eval{ 12 my $s = new SWF::Shape(); 13 my $b = new SWF::Bitmap($filename); 14 my $f = $s->addFill($b); 15 $s->setRightFill($f); 16 17 $s->drawLine(32, 0); 18 $s->drawLine(0, 32); 19 $s->drawLine(-32, 0); 20 $s->drawLine(0, -32); 21 22 my $m = new SWF::Movie(); 23 $m->setDimension(32, 32); 24 $m->add($s); 25 $m->save('t/png.swf'); 26}; 27 28ok($@); 29