1BEGIN { $| = 1; print "1..3\n"; }
2
3use SWF qw(Shape);
4require 't/config.pl';
5
6my $s;
7eval {
8    $s = new SWF::Shape();
9};
10
11ok($@);
12
13$s->setLine(20, 0xff, 0, 0, 0);
14$s->drawLine(400,0);
15$s->drawLine(0,400);
16$s->drawLine(-400,0);
17#$s->drawLine(0,-400);
18
19ok();
20
21$s->setLeftFill($s->addFill(0xff, 0, 0));
22
23ok();
24
25
26#ok($y!=400);
27