/t/colorpm.t

 1#!perl
 2use strict;
 3use warnings;
 4use Test::More tests => 15;
 5use_ok('SDL::Color');
 6
 7# check empty: black
 8my $black = SDL::Color->new( 0, 0, 0 );
 9isa_ok( $black, 'SDL::Color' );
10is( $black->r(), 0, 'black r is 0' );
11is( $black->g(), 0, 'black g is 0' );
12is( $black->b(), 0, 'black b is 0' );
13
14# check full: white
15my $white = SDL::Color->new( 0xff, 0xff, 0xff );
16isa_ok( $white, 'SDL::Color' );
17is( $white->r(), 255, 'white r is 255' );
18is( $white->g(), 255, 'white g is 255' );
19is( $white->b(), 255, 'white b is 255' );
20
21# check setting a value
22my $orange = $white;
23$orange->r(254);
24$orange->g(153);
25$orange->b(0);
26is( $orange->r(), 254, 'orange_notcloned r is 254' );
27is( $orange->g(), 153, 'orange_notcloned g is 153' );
28is( $orange->b(), 0,   'orange_notcloned b is 0' );
29
30# check that copies also change
31is( $white->r(), 254, 'white (now orange) r is 254' );
32is( $white->g(), 153, 'white (now orange) g is 154' );
33is( $white->b(), 0,   'white (now orange) b is 0' );
34
35sleep(2);