projects
/
sdlgit/SDL_perl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Added test for time
[sdlgit/SDL_perl.git]
/
test
/
testtimer.pl
diff --git
a/test/testtimer.pl
b/test/testtimer.pl
index
523d085
..
209c1bf
100644
(file)
--- a/
test/testtimer.pl
+++ b/
test/testtimer.pl
@@
-2,10
+2,11
@@
use SDL;
use SDL::Timer;
+use SDL::Event;
die "usage: $0\n" if in($ARGV[0], qw/ -? -h --help/);
-SDL::Init(SDL_INIT_EVERYTHING());
+SDL::Init(SDL_INIT_TIMER);
print STDERR "Waiting 4 seconds\n";
SDL::Delay(4000);