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