1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
use Clutter::TestHelper tests => 14;
my $behaviour = Clutter::Behaviour::Ellipse->new(
undef, # alpha
[ 0, 0 ], # center
[ 100, 100 ], # size
'cw', # direction
[ 0.0, 360.0 ] # angles
);
isa_ok($behaviour, 'Clutter::Behaviour::Ellipse', 'is an ellipse');
isa_ok($behaviour, 'Clutter::Behaviour', 'is a behaviour');
ok(eq_array($behaviour->get_center(), [ 0, 0 ]), 'center');
is(int($behaviour->get_angle_start()), 0, 'angle start');
is(int($behaviour->get_angle_end()), 360, 'angle end');
my @angles = $behaviour->get_angles();
is(@angles, 2, 'two angles');
$behaviour->set_tilt(0.0, 180.0, 270.0);
my @tilts = $behaviour->get_tilt();
is(@tilts, 3, 'tilting on three axis');
is( int($tilts[0]), 0, 'no tilt on X');
isnt(int($tilts[1]), 90, 'wrong tilt on Y');
is( int($tilts[2]), 270, 'correct tilt on Z');
is(int($behaviour->get_angle_tilt('x-axis')), 0, 'X tilt');
is(int($behaviour->get_angle_tilt('y-axis')), 180, 'Y tilt');
isnt(int($behaviour->get_angle_tilt('z-axis')), 360, 'Z tilt');
$behaviour->set_angle_tilt('x-axis', 90.0);
is(int($behaviour->get_angle_tilt('x-axis')), 90, 'X tilt');
|
