Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Fixed tests

  • Loading branch information...
commit d5a2f5aca8aa348105b7fbcf0664594c9aa35d8b 1 parent 15a6855
Kartik Thakore kthakore authored
2  lib/SDL/App.pm
@@ -62,7 +62,7 @@ sub new {
62 62 my $init = defined $options{-init} ? $options{-init} :
63 63 SDL_INIT_EVERYTHING();
64 64
65   - SDL::Init($init);
  65 + SDL::init($init);
66 66
67 67 #SDL::Init(SDL::SDL_INIT_EVERYTHING());
68 68
2  t/core_overlay.t
@@ -6,7 +6,7 @@ use SDL;
6 6
7 7 use_ok('SDL::Overlay');
8 8
9   -SDL::Init(SDL_INIT_VIDEO);
  9 +SDL::init(SDL_INIT_VIDEO);
10 10
11 11 my $display = SDL::SetVideoMode(640,480,32, SDL_SWSURFACE );
12 12
2  t/core_palette.t
@@ -10,7 +10,7 @@ use SDL;
10 10 use SDL::Surface;
11 11 use SDL::PixelFormat;
12 12
13   -SDL::Init(SDL_INIT_VIDEO);
  13 +SDL::init(SDL_INIT_VIDEO);
14 14
15 15 my $display = SDL::SetVideoMode(640,480,32, SDL_SWSURFACE );
16 16
2  t/core_surface.t
@@ -99,4 +99,4 @@ diag( 'This is in surface : ' . SDL::Surface::get_pixels($app) );
99 99
100 100 pass 'did this pass';
101 101
102   -SDL::Delay(100);
  102 +SDL::delay(100);
2  t/core_video.t
@@ -33,7 +33,7 @@ my @done =
33 33 can_ok ('SDL::Video', @done);
34 34
35 35 #testing get_video_surface
36   -SDL::Init(SDL_INIT_VIDEO);
  36 +SDL::init(SDL_INIT_VIDEO);
37 37
38 38 my $display = SDL::Video::set_video_mode(640,480,32, SDL_SWSURFACE );
39 39
4 t/intergation1.t
@@ -79,8 +79,8 @@ can_ok ('SDL::App', qw/
79 79 SDL::FillRect( $app, $grect, $col_pixel );
80 80
81 81 SDL::UpdateRect($app, 0, 0, 640, 480);
82   - SDL::Delay(10);
  82 + SDL::delay(10);
83 83 }
84 84
85   - SDL::Delay(100);
  85 + SDL::delay(100);
86 86
2  t/mixerpm.t
@@ -44,7 +44,7 @@ sub check_fail_mixer
44 44 my $ret = 0;
45 45 eval
46 46 {
47   - $ret = SDL::Init(SDL_INIT_AUDIO);
  47 + $ret = SDL::init(SDL_INIT_AUDIO);
48 48 };
49 49 return 1 if ($@ or $ret == -1);
50 50 return 0;
4 t/timerpm.t
@@ -45,7 +45,7 @@ sub check_fail_timer
45 45 my $ret = 0;
46 46 eval
47 47 {
48   - $ret = SDL::Init(SDL_INIT_TIMER);
  48 + $ret = SDL::init(SDL_INIT_TIMER);
49 49 };
50 50 return 1 if ($@ or $ret == -1);
51 51 return 0;
@@ -72,5 +72,5 @@ my $timer = new SDL::Timer
72 72
73 73 isa_ok($timer, 'SDL::Timer');
74 74
75   -SDL::Delay(100);
  75 +SDL::delay(100);
76 76 is ($fired, 1,'timer fired once');

0 comments on commit d5a2f5a

Please sign in to comment.
Something went wrong with that request. Please try again.