1BEGIN {$| = 1; print "1..4\n"; }
2
3use strict;
4
5use SWF qw(Button Shape Movie);
6use SWF::Constants ':Button';
7require 't/config.pl';
8
9#$Test::Harness::switches = '';
10
11SWF::setVersion(4);
12my $s = new SWF::Shape();
13$s->setRightFill(0xff, 0, 0);
14$s->drawLine(1000,0);
15$s->drawLine(0,1000);
16$s->drawLine(-1000,0);
17$s->drawLine(0,-1000);
18
19my $b;
20eval{
21    $b = new SWF::Button();
22};
23ok($@);
24
25$b->addShape($s, SWFBUTTON_HIT | SWFBUTTON_UP | SWFBUTTON_DOWN | SWFBUTTON_OVER);
26$b->addAction(new SWF::Action("startDrag('/test', 0);"), SWFBUTTON_MOUSEDOWN);
27$b->addAction(new SWF::Action("stopDrag();"), SWFBUTTON_MOUSEUP);
28
29ok();
30
31my $p;
32eval{
33    $p = new SWF::MovieClip();
34};
35
36ok();
37
38$p->add($b);
39$p->nextFrame();
40
41my $m = new SWF::Movie();
42my $i = $m->add($p);
43$i->setName('test');
44$i->moveTo(1000,1000);
45ok();
46