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
|
use Test::More tests => 14;
use Clutter;
my $color = Clutter::Color->new(0x00, 0x00, 0x00, 0x00);
isa_ok($color, 'Clutter::Color', 'color is a Clutter::Color');
is($color->red, 0x00, 'no red');
is($color->blue, 0x00, 'no blue');
is($color->green, 0x00, 'no green');
isnt($color->alpha, 255, 'no alpha');
eq_array($color->values, [ 0x00, 0x00, 0x00, 0x00 ], 'black');
is($color->red(255), 0, 'change red');
is($color->red, 255, 'check change');
my $geometry = Clutter::Geometry->new(0, 0, 100, 100);
isa_ok($geometry, 'Clutter::Geometry', 'geometry is a Clutter::Geometry');
is($geometry->x, 0, 'right');
is($geometry->y, 0, 'up');
is($geometry->width, 100, 'width');
is($geometry->height, 100, 'height');
is($geometry->width(200), 100, 'change width');
isnt($geometry->width, 100, 'check change');
__END__
Copyright (C) 2006 OpenedHand Ltd. See the file AUTHORS for the full list.
See LICENSE for more information.
|
