From: Kartik Thakore <thakore.kartik@gmail.com>
Date: Mon, 9 Nov 2009 13:59:51 +0000 (-0500)
Subject: Cleaned up t/core_video.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dd114b9bd2003c05d03b2f47370df1244d46c3bf;p=sdlgit%2FSDL_perl.git

Cleaned up t/core_video.t
---

diff --git a/t/00-load.t b/t/00-load.t
index 3b49559..66b42a3 100644
--- a/t/00-load.t
+++ b/t/00-load.t
@@ -1,17 +1,19 @@
-
 use strict;
 use warnings;
-
 use Test::Most 'bail';
 
 
 
 BEGIN {
     my @modules = 
- 
 qw /
 SDL 
 SDL::Video 
+SDL::Color
+SDL::Surface
+SDL::Config
+SDL::Overlay
+SDL::Rect
 SDL::Events 
 SDL::Event 
 SDL::ActiveEvent 
diff --git a/t/core_video.t b/t/core_video.t
index 34555a1..9d0d87d 100644
--- a/t/core_video.t
+++ b/t/core_video.t
@@ -8,9 +8,7 @@ use SDL::Overlay;
 use Test::More;
 use SDL::Rect;
 
-plan ( tests => 50);
-
-use_ok( 'SDL::Video' ); 
+use SDL::Video;
 
 my @done =
 	qw/ 
@@ -227,3 +225,5 @@ TODO:
 
 
 pass 'Are we still alive? Checking for segfaults';
+
+done_testing();