1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
use Clutter::TestHelper tests => 7;
my $rectangle = Clutter::Rectangle->new;
isa_ok($rectangle, 'Clutter::Actor', 'is an actor');
my $color = Clutter::Color->new(255, 0, 0, 0);
$rectangle = Clutter::Rectangle->new($color);
is($rectangle->get_color->red, 255, 'check set color (red)');
is($rectangle->get_color->green, 0, 'check set color (green)');
$rectangle->set_size(800, 600);
is($rectangle->get_width, 800, 'check width');
isnt($rectangle->get_height, 800, 'check height');
$rectangle->set_border_width(10);
is($rectangle->get_border_width, 10, 'check border width');
$rectangle->set_border_color($color);
is($rectangle->get_border_color->blue, 0, 'check set border color (blue)');
__END__
Copyright (C) 2006 OpenedHand Ltd. See the file AUTHORS for the full list.
See LICENSE for more information.
|
