1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
use Clutter::TestHelper tests => 7;
my $stage = Clutter::Stage->get_default;
isa_ok($stage, 'Clutter::Actor', 'is a bird');
isa_ok($stage, 'Clutter::Group', 'is a plane');
isa_ok($stage, 'Clutter::Stage', 'no, is a Clutter::Stage');
my $color = Clutter::Color->new(255, 0, 0, 0);
$stage->set_color($color);
is($stage->get_color->red, 255, 'check set color (red)');
isnt($stage->get_color->green, 255, 'check set color (green)');
$stage->set_size(800, 600);
is($stage->get_width, 800, 'check width');
isnt($stage->get_height, 800, 'check height');
__END__
Copyright (C) 2006 OpenedHand Ltd. See the file AUTHORS for the full list.
See LICENSE for more information.
|
