1BEGIN { $| = 1; print "1..2\n"; } 2 3use SWF qw(Movie); 4require 't/config.pl'; 5 6 7my $m; 8eval { 9 $m = new SWF::Movie(); 10}; 11 12ok($@); 13 14 15$m->setDimension(640, 480); 16ok(); 17