X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcore_time.t;fp=t%2Fcore_time.t;h=71884274dda8a177496d226107d80c5a5773d191;hb=a92ef32bacfadab1502694b3f09cc70815acb74f;hp=613b259ac545452696670208e1fc98f81c36ebc4;hpb=8cce3f72c4f3e87cdd163a5c14366462c5584ddd;p=sdlgit%2FSDL_perl.git

diff --git a/t/core_time.t b/t/core_time.t
index 613b259..7188427 100644
--- a/t/core_time.t
+++ b/t/core_time.t
@@ -3,17 +3,24 @@ use strict;
 use SDL;
 use Test::More;
 use Test::Trap;
+use Data::Dumper;
 
 plan ( tests => 4 );
 my @done =qw/ none /;
 
 SKIP:
 {
-	skip 'Not implemented', 2;
+skip 'Not implemented', 2;
 use_ok( 'SDL::Time' ); 
 can_ok ('SDL::Time', @done); 
 }
 
+my @timerInit = trap { SDL::init(SDL_INIT_TIMER) };
+
+#diag  $trap->leaveby;
+#diag  Dumper $trap->return;
+#diag @timerInit[0];
+
 my @left = qw/
 	add_timer
 	delay