Permalink
Browse files

Revert "SDLx::Surface::draw_rect tests"

This reverts commit 564c0a9.
  • Loading branch information...
1 parent 564c0a9 commit 45e1ce5e012f25e6bb4ceea0d5be36a52636e0fc @jtpalmer jtpalmer committed Sep 3, 2010
Showing with 2 additions and 27 deletions.
  1. +2 −27 t/sdlx_surface.t
View
@@ -101,33 +101,8 @@ pass 'Single rect update';
$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 ],
-);
-
-foreach my $c (@colors) {
- my $color = ( $c->[0] << 24 ) + ( $c->[1] << 16 ) + ( $c->[2] << 8 ) + $c->[3];
- $surfs[0]->draw_rect( [ 0, 0, 10, 20 ], $color );
-
- my $num = sprintf('0x%08x', $color);
-
- my $rgba = SDL::Video::get_RGB( $app->format(), $surfs[0]->[0][0] );
- is( $rgba->[0], $c->[0], "draw_rect uses correct red for $num" );
- is( $rgba->[1], $c->[1], "draw_rect uses correct green for $num" );
- is( $rgba->[2], $c->[2], "draw_rect uses correct blue for $num" );
-
- #is($rgba->[3], $c->[3], "draw_rect uses correct alpha for $num");
-}
+$surfs[0]->draw_rect( [ 0, 0, 10, 20 ], 0xFF00FFFF );
+pass 'draw_rect works';
SKIP:
{

0 comments on commit 45e1ce5

Please sign in to comment.