1BEGIN { $| = 1; print "1..4\n"; } 2 3use SWF qw(Shape Movie Gradient); 4require 't/config.pl'; 5 6my $m = new SWF::Movie(); 7$m->setDimension(320, 240); 8my $s = new SWF::Shape(); 9 10 11# first gradient- black to white 12my $g; 13eval{ 14 $g = new SWF::Gradient(); 15}; 16 17ok($@); 18 19$g->addEntry(0.0, 0, 0, 0); 20$g->addEntry(1.0, 0xff, 0xff, 0xff); 21 22my $f; 23eval{ 24 $f = $s->addFill($g); 25}; 26 27ok($@); 28 29$f->scaleTo(0.01); 30 31$f->moveTo(160, 120); 32$s->setRightFill($f); 33$s->drawLine(320, 0); 34$s->drawLine(0, 240); 35$s->drawLine(-320, 0); 36$s->drawLine(0, -240); 37 38$m->add($s); 39 40ok(); 41 42eval{ 43 $m->save('t/gradient.swf'); 44}; 45 46ok($@); 47