File: ClutterBehaviourOpacity.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 (9 lines) | stat: -rw-r--r-- 415 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
 
use Clutter::TestHelper tests => 4;

my $behaviour = Clutter::Behaviour::Opacity->new(undef, 0, 0);
isa_ok($behaviour, 'Clutter::Behaviour::Opacity', 'is an opacity');
isa_ok($behaviour, 'Clutter::Behaviour', 'is a behaviour');

$behaviour = Clutter::Behaviour::Opacity->new(undef, 0xff, 0x33);
is($behaviour->get('opacity-start'), 0xff, 'opacity start');
isnt($behaviour->get('opacity-end'), 0x00, 'opacity end');