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