Permalink
Browse files

Fixed test for surface. Added tests for circle

  • Loading branch information...
1 parent 55cb0ef commit b4dbf65c2333482ccb25924332c496fcbf896927 @kthakore kthakore committed Aug 31, 2010
Showing with 5 additions and 7 deletions.
  1. +5 −7 t/sdlx_surface.t
View
@@ -127,13 +127,11 @@ pass 'draw_gfx_text works';
}
-TODO:
-{
- local $TODO = 'Draw_Circle is not done yet';
- my $cir_color = 0xCCCCCCFF;
- $surfs[0]->draw_circle( [ 100, 10 ], 20, $cir_color ); #no fill
- is( $surfs[0]->[120][10], $cir_color );
-}
+my $cir_color = [255,0,0,255];
+$surfs[0]->draw_circle( [ 100, 10 ], 20, $cir_color ); #no fill
+$surfs[0]->draw_circle_filled( [ 100, 10 ], 20, $cir_color ); #fill
+
+isnt( $surfs[0]->[100][10], 0 );
my $surf_dup = SDLx::Surface::duplicate( $surfs[1] );

0 comments on commit b4dbf65

Please sign in to comment.