setting delay to 500ms

PerlGameDev · Aug 5, 2010 · f5afcfc · f5afcfc
1 parent 152dd57
commit f5afcfc
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/t/mixer_channels.t b/t/mixer_channels.t
@@ -46,7 +46,7 @@ my $callback = sub {
 SDL::Mixer::Channels::channel_finished($callback);
 pass '[channel_finished] registered callback';
 
-my $delay           = 100;
+my $delay           = 500;
 my $audio_test_file = 'test/data/silence.wav';
 
 if ( $ENV{'SDL_RELEASE_TESTING'} ) {
@@ -178,12 +178,12 @@ is( $finished > 0,
 	1, '[callback_finished] called the callback got ' . $finished
 );
 
-sleep 1;
-
 if ($audiodriver) {
 	$ENV{SDL_AUDIODRIVER} = $audiodriver;
 } else {
 	delete $ENV{SDL_AUDIODRIVER};
 }
 
+sleep(1);
+
 done_testing();