projects
/
sdlgit/SDL_perl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Fixed test for hardware or underlying fails
[sdlgit/SDL_perl.git]
/
t
/
timerpm.t
diff --git
a/t/timerpm.t
b/t/timerpm.t
index
3e3624b
..
b94b1ee
100644
(file)
--- a/
t/timerpm.t
+++ b/
t/timerpm.t
@@
-51,7
+51,11
@@
can_ok ('SDL::Timer', qw/
my $fired = 0;
-SDL::Init(SDL_INIT_TIMER);
+if (SDL::Init(SDL_INIT_TIMER) < 0 )
+{
+ plan( skip_all => "Cannot initialize timer!!" );
+
+}
my $timer = new SDL::Timer
sub { $fired++ }, -delay => 30, -times => 1;