Skip to content
Browse files

Changed some numbers and changed some to hex

  • Loading branch information...
1 parent c69445b commit 170510518f30c61ba06e86823645ed3247cb4471 @jtpalmer jtpalmer committed Sep 5, 2010
Showing with 15 additions and 15 deletions.
  1. +15 −15 t/sdlx_surface.t
View
30 t/sdlx_surface.t
@@ -86,14 +86,14 @@ push @surfs,
SDLx::Surface->new(
w => 1,
h => 1,
- color => 0xAABBCCFF,
+ color => 0x204080FF,
);
my $fill = SDL::Video::get_RGBA( $app->format(), $surfs[-1]->[0][0] );
-is( $fill->[0], 0xAA, 'Fill color red worked' );
-is( $fill->[1], 0xBB, 'Fill color green worked' );
-is( $fill->[2], 0xCC, 'Fill color blue worked' );
+is( $fill->[0], 0x20, 'Fill color red worked' );
+is( $fill->[1], 0x40, 'Fill color green worked' );
+is( $fill->[2], 0x80, 'Fill color blue worked' );
is( $fill->[3], 0xFF, 'Fill color alpha worked' );
$surfs[1]->flip();
@@ -108,17 +108,17 @@ $surfs[0]->update( [ SDL::Rect->new( 0, 1, 2, 3 ), SDL::Rect->new( 2, 4, 5, 6 )
pass 'SDL::Rect array update';
my @colors = (
- [ 255, 255, 255, 255 ],
- [ 255, 255, 0, 255 ],
- [ 255, 0, 255, 255 ],
- [ 0, 255, 255, 255 ],
- [ 255, 0, 0, 255 ],
- [ 0, 255, 0, 255 ],
- [ 0, 0, 255, 255 ],
- [ 0, 0, 0, 255 ],
- [ 32, 64, 128, 255 ],
- [ 128, 32, 64, 255 ],
- [ 64, 128, 32, 255 ],
+ [ 0xFF, 0xFF, 0xFF, 0xFF ],
+ [ 0xFF, 0xFF, 0x00, 0xFF ],
+ [ 0xFF, 0x00, 0xFF, 0xFF ],
+ [ 0x00, 0xFF, 0xFF, 0xFF ],
+ [ 0xFF, 0x00, 0x00, 0xFF ],
+ [ 0x00, 0xFF, 0x00, 0xFF ],
+ [ 0x00, 0x00, 0xFF, 0xFF ],
+ [ 0x00, 0x00, 0x00, 0xFF ],
+ [ 0x20, 0x40, 0x80, 0xFF ],
+ [ 0x80, 0x20, 0x40, 0xFF ],
+ [ 0x40, 0x80, 0x20, 0xFF ],
);
foreach my $c (@colors) {

0 comments on commit 1705105

Please sign in to comment.
Something went wrong with that request. Please try again.