X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=sdlgit%2FSDL_perl.git;a=blobdiff_plain;f=t%2Fcore_video.t;h=ed2e4d5a9e317ac653e9879703351eb03f82858e;hp=a0e45c23259838e10c17f128666d9c6f9c54b814;hb=bc1947c72c2249911b536ba4ba64f8ad642d6e99;hpb=8a2411d0d946d83256c0b781d09ec76eae19275a

diff --git a/t/core_video.t b/t/core_video.t
index a0e45c2..ed2e4d5 100644
--- a/t/core_video.t
+++ b/t/core_video.t
@@ -5,7 +5,7 @@ use SDL::Config;
 
 use Test::More;
 
-plan ( tests => 4 );
+plan ( tests => 6 );
 
 use_ok( 'SDL::Video' ); 
   
@@ -24,6 +24,9 @@ isa_ok(SDL::Video::get_video_surface(), 'SDL::Surface', 'Checking if we get a su
 
 isa_ok(SDL::Video::get_video_info(), 'SDL::VideoInfo', 'Checking if we get videoinfo ref back');
 
+pass 'This is your driver name: '.SDL::Video::video_driver_name(10);
+pass "Are we still alive?";
+
 =skip
 	list_modes
 	video_mode_ok