From: Kartik Thakore <thakore.kartik@gmail.com>
Date: Mon, 26 Oct 2009 16:13:18 +0000 (-0400)
Subject: Added percentage done counter
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=494f077a232ea71920d523bb4f42dae33c9a8c33;p=sdlgit%2FSDL_perl.git

Added percentage done counter
---

diff --git a/t/core_video.t b/t/core_video.t
index d7cf955..ac3e0b6 100644
--- a/t/core_video.t
+++ b/t/core_video.t
@@ -11,8 +11,9 @@ use SDL::Rect;
 plan ( tests => 10 );
 
 use_ok( 'SDL::Video' ); 
-  
-can_ok ('SDL::Video', qw/
+
+my @done =
+	qw/ 
 	get_video_surface
 	get_video_info
 	video_driver_name
@@ -22,7 +23,8 @@ can_ok ('SDL::Video', qw/
 	update_rect
 	update_rects
 	flip
-	/);
+	/;
+can_ok ('SDL::Video', @done); 
 
 #testing get_video_surface
 SDL::Init(SDL_INIT_VIDEO);                                                                          
@@ -59,18 +61,10 @@ SDL::Video::update_rects($display, SDL::Rect->new(0, 10, 20, 20));
 my $value = SDL::Video::flip($display);
 is( ($value == 0)  ||  ($value == -1), 1,  '[flip] returns 0 or -1'  );
 
-pass "Are we still alive?";
 
-=skip
-	get_video_surface
-	get_video_info
-	video_driver_name
-	list_modes
-	set_video_mode
-	video_mode_ok
-	update_rect
-	update_rects
-	flip
+
+
+my @left = qw/
 	set_colors
 	set_palette
 	set_gamma
@@ -103,5 +97,13 @@ pass "Are we still alive?";
 	lock_YUV_overlay
 	unlock_YUV_overlay
 	display_YUV_overlay
-	/);
+	/;
+
+my $why = '[Percentage Completion] '.int( 100 * $#done / ($#done + $#left) ) ."\% implementation. $#done / ".($#done+$#left); 
+
+TODO:
+{
+	local $TODO = 'Implementation not completed';
+	pass $why."\nThe following functions:\n".join "\n", @left; 
+}