Permalink
Browse files

Fixed tests

  • Loading branch information...
1 parent 15a6855 commit d5a2f5aca8aa348105b7fbcf0664594c9aa35d8b @kthakore kthakore committed Oct 29, 2009
Showing with 10 additions and 10 deletions.
  1. +1 −1 lib/SDL/App.pm
  2. +1 −1 t/core_overlay.t
  3. +1 −1 t/core_palette.t
  4. +1 −1 t/core_surface.t
  5. +1 −1 t/core_video.t
  6. +2 −2 t/intergation1.t
  7. +1 −1 t/mixerpm.t
  8. +2 −2 t/timerpm.t
View
2 lib/SDL/App.pm
@@ -62,7 +62,7 @@ sub new {
my $init = defined $options{-init} ? $options{-init} :
SDL_INIT_EVERYTHING();
- SDL::Init($init);
+ SDL::init($init);
#SDL::Init(SDL::SDL_INIT_EVERYTHING());
View
2 t/core_overlay.t
@@ -6,7 +6,7 @@ use SDL;
use_ok('SDL::Overlay');
-SDL::Init(SDL_INIT_VIDEO);
+SDL::init(SDL_INIT_VIDEO);
my $display = SDL::SetVideoMode(640,480,32, SDL_SWSURFACE );
View
2 t/core_palette.t
@@ -10,7 +10,7 @@ use SDL;
use SDL::Surface;
use SDL::PixelFormat;
-SDL::Init(SDL_INIT_VIDEO);
+SDL::init(SDL_INIT_VIDEO);
my $display = SDL::SetVideoMode(640,480,32, SDL_SWSURFACE );
View
2 t/core_surface.t
@@ -99,4 +99,4 @@ diag( 'This is in surface : ' . SDL::Surface::get_pixels($app) );
pass 'did this pass';
-SDL::Delay(100);
+SDL::delay(100);
View
2 t/core_video.t
@@ -33,7 +33,7 @@ my @done =
can_ok ('SDL::Video', @done);
#testing get_video_surface
-SDL::Init(SDL_INIT_VIDEO);
+SDL::init(SDL_INIT_VIDEO);
my $display = SDL::Video::set_video_mode(640,480,32, SDL_SWSURFACE );
View
4 t/intergation1.t
@@ -79,8 +79,8 @@ can_ok ('SDL::App', qw/
SDL::FillRect( $app, $grect, $col_pixel );
SDL::UpdateRect($app, 0, 0, 640, 480);
- SDL::Delay(10);
+ SDL::delay(10);
}
- SDL::Delay(100);
+ SDL::delay(100);
View
2 t/mixerpm.t
@@ -44,7 +44,7 @@ sub check_fail_mixer
my $ret = 0;
eval
{
- $ret = SDL::Init(SDL_INIT_AUDIO);
+ $ret = SDL::init(SDL_INIT_AUDIO);
};
return 1 if ($@ or $ret == -1);
return 0;
View
4 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');

0 comments on commit d5a2f5a

Please sign in to comment.