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