File: ClutterBehaviourScale.t

package info (click to toggle)
libclutter-perl 1.002-1
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 728 kB
  • ctags: 98
  • sloc: perl: 1,503; ansic: 48; makefile: 9
file content (14 lines) | stat: -rw-r--r-- 571 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
use Clutter::TestHelper tests => 5;

my $behaviour = Clutter::Behaviour::Scale->new(undef,
                                               1.0, 1.0,
                                               2.0, 2.0);

isa_ok($behaviour, 'Clutter::Behaviour::Scale', 'is a scale');
isa_ok($behaviour, 'Clutter::Behaviour', 'is a behaviour');

is($behaviour->get('x-scale-start'), 1.0, 'scale start');
is($behaviour->get('y-scale-end'), 2.0, 'scale end');

$behaviour->set_bounds(1.0, 1.0, 0.5, 0.5);
ok(eq_array($behaviour->get_bounds(), [ 1.0, 1.0, 0.5, 0.5 ]), 'bounds accessor');