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