3 # Copyright (C) 2003 Tels
4 # Copyright (C) 2004 David J. Goehrig
6 # basic testing of SDL::Timer
9 unshift @INC, 'blib/lib','blib/arch';
20 use_ok( 'SDL::Timer' );
22 can_ok ('SDL::Timer', qw/
28 SDL::Init(SDL_INIT_TIMER);
30 my $timer = new SDL::Timer
31 sub { $fired++ }, -delay => 30, -times => 1;
33 isa_ok($timer, 'SDL::Timer');
36 is ($fired, 1,'timer fired once');