From: Kartik Thakore Date: Fri, 23 Oct 2009 22:07:08 +0000 (-0400) Subject: Clean up test X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e4259ddb8b51b7d79840a1d57fb69249cdbfafed;p=sdlgit%2FSDL_perl.git Clean up test --- diff --git a/t/core_video.t b/t/core_video.t index ffa642d..16a7da0 100644 --- a/t/core_video.t +++ b/t/core_video.t @@ -20,15 +20,17 @@ SDL::Init(SDL_INIT_VIDEO); my $display = SDL::SetVideoMode(640,480,32, SDL_SWSURFACE ); -isa_ok(SDL::Video::get_video_surface(), 'SDL::Surface', 'Checking if we get a surface ref back'); +diag('Testing SDL::Video'); -isa_ok(SDL::Video::get_video_info(), 'SDL::VideoInfo', 'Checking if we get videoinfo ref back'); +isa_ok(SDL::Video::get_video_surface(), 'SDL::Surface', '[get_video_surface] Checking if we get a surface ref back'); + +isa_ok(SDL::Video::get_video_info(), 'SDL::VideoInfo', '[get_video_info] Checking if we get videoinfo ref back'); my $driver_name = SDL::Video::video_driver_name(); -pass 'This is your driver name: '.$driver_name; +pass '[video_driver_name] This is your driver name: '.$driver_name; -#Dump( $driver_name); +#Dump( SDL::Video::video_driver_name() ); pass "Are we still alive?";