Fixed tests

[sdlgit/SDL_perl.git] / t / timerpm.t

diff --git a/t/timerpm.t b/t/timerpm.t
index 51d81d5..8f0a337 100644 (file)
--- a/t/timerpm.t
+++ b/t/timerpm.t
@@ -45,7 +45,7 @@ sub check_fail_timer
        my $ret = 0;
        eval
        {
-               $ret = SDL::Init(SDL_INIT_TIMER);
+               $ret = SDL::init(SDL_INIT_TIMER);
        };
        return 1 if ($@ or $ret == -1);
        return 0;
@@ -72,5 +72,5 @@ my $timer = new SDL::Timer
 
 isa_ok($timer, 'SDL::Timer');
 
-SDL::Delay(100);
+SDL::delay(100);
 is ($fired, 1,'timer fired once');