BEGIN { $| = 1; print "1..1\n"; }

use SWF;
require 't/config.pl';

eval{
    my $s = new SWF::Shape();
    my $b = new SWF::Bitmap(ming_dir()."/examples/common/png.dbl");
    my $f = $s->addFill($b);
    $s->setRightFill($f);
    
    $s->drawLine(32, 0);
    $s->drawLine(0, 32);
    $s->drawLine(-32, 0);
    $s->drawLine(0, -32);
    
    my $m = new SWF::Movie();
    $m->setDimension(32, 32);
    $m->add($s);
    $m->save('t/png.swf');
};

ok($@);
