Permalink
Browse files

time to sleep(2);

  • Loading branch information...
1 parent c050f50 commit fc90dcdc42ca0205847c126f32e7e8d4d274a341 @m4gnet m4gnet committed Dec 2, 2009
View
@@ -35,4 +35,5 @@ SDL::Version
plan tests => scalar @modules;
use_ok $_ foreach @modules;
+
}
View
@@ -62,4 +62,5 @@ my $app = SDL::App->new(-title => "Test", -width => 640, -height => 480, -init
$app->sync;
sleep(1);
+ sleep(2);
View
@@ -31,3 +31,5 @@ is( $orange->b(), 0, 'orange_notcloned b is 0' );
is( $white->r(), 254, 'white (now orange) r is 254' );
is( $white->g(), 153, 'white (now orange) g is 154' );
is( $white->b(), 0, 'white (now orange) b is 0' );
+
+sleep(2);
View
@@ -859,3 +859,4 @@ is( SDL_SVG_FLAG_COMPOSITE, 1, 'SDL_SVG_FLAG_COMPOSITE should be imported' );
is( SDL_SVG_FLAG_COMPOSITE(), 1, 'SDL_SVG_FLAG_COMPOSITE() should also be available' );
done_testing();
+sleep(2);
View
@@ -59,3 +59,4 @@ TODO:
pass 'Are we still alive? Checking for segfaults';
+sleep(2);
View
@@ -90,5 +90,4 @@ TODO:
}
diag $why;
-
-
+sleep(2);
View
@@ -37,3 +37,4 @@ TODO:
diag $why;
done_testing;
+sleep(2);
View
@@ -17,3 +17,4 @@ is( SDL::get_error, 'Hello SDL! Three is 3.', '[get_error] returns Hello SDL! Th
SDL::clear_error();
is( SDL::get_error, '', '[get_error] returns no error' );
+sleep(2);
View
@@ -265,3 +265,4 @@ pass 'Are we still alive? Checking for segfaults';
done_testing;
+sleep(2);
View
@@ -50,3 +50,4 @@ TODO:
diag $why;
done_testing;
+sleep(2);
View
@@ -33,4 +33,4 @@ plan skip_all => 'Test::Valgrind is required to test your distribution with valg
overlay_leak();
-
+sleep(2);
View
@@ -37,3 +37,4 @@ TODO:
diag $why;
done_testing;
+sleep(2);
View
@@ -52,3 +52,4 @@ TODO:
pass 'Are we still alive? Checking for segfaults';
+sleep(2);
View
@@ -18,7 +18,7 @@ isa_ok( $overlay, 'SDL::Overlay');
$overlay = undef;
$display = undef;
-
+sleep(2)
View
@@ -20,4 +20,4 @@ is( $rect->x(), 1, 'x is now 1' );
is( $rect->y(), 2, 'y is now 2' );
is( $rect->w(), 3, 'w is now 3' );
is( $rect->h(), 4, 'h is now 4' );
-
+sleep(2);
View
@@ -62,3 +62,4 @@ TODO:
diag $why;
done_testing;
+sleep(2);
View
@@ -103,5 +103,5 @@ isa_ok( $other_surface, 'SDL::Surface' );
pass 'Final SegFault test';
SDL::delay(100);
-
+sleep(2);
View
@@ -45,3 +45,4 @@ TODO:
pass "\nThe following functions:\n" . join ",", @left;
}
diag $why;
+sleep(2);
View
@@ -272,3 +272,4 @@ TODO:
pass 'Are we still alive? Checking for segfaults';
done_testing();
+sleep(2);
View
@@ -71,4 +71,4 @@ can_ok ('SDL::Game::Event', qw/
button_y /);
-
+sleep(2);
View
@@ -30,3 +30,4 @@ can_ok($rect, qw(new foo));
$rect->x(10);
is($rect->x, 10);
is($rect->foo, 10);
+sleep(2);
View
@@ -50,4 +50,4 @@ use_ok( 'SDL::Font' );
can_ok ('SDL::Font', qw/ new use /);
-
+sleep(2);
View
@@ -84,4 +84,4 @@ can_ok ('SDL::App', qw/
}
SDL::delay(100);
-
+sleep(2);
View
@@ -31,3 +31,4 @@ foreach my $MODULE ( @MODULES ) {
}
manifest_ok();
+sleep(2);
View
@@ -96,3 +96,4 @@ TODO:
diag $why;
done_testing;
+sleep(2);
View
@@ -33,3 +33,4 @@ SDL::MixPlayChannel( -1, $mix_chunk, 0 );
SDL::MixCloseAudio;
ok( 1, 'Got to the end' );
+sleep(2);
View
@@ -33,3 +33,4 @@ SDL::MixPlayMusic( $mix_music, 0 );
SDL::MixCloseAudio;
ok( 1, 'Got to the end' );
+sleep(2);
View
@@ -58,4 +58,4 @@ can_ok ('SDL::Mixer', qw/
# these are exported by default, so main:: should know them:
my $mixer = SDL::Mixer->new();
isa_ok($mixer, 'SDL::Mixer', 'Checking if mixer can be build');
-
+sleep(2);
View
@@ -63,4 +63,4 @@ can_ok ('SDL::MPEG', qw/
time
length /);
-
+sleep(2);
View
@@ -49,3 +49,4 @@ can_ok ('SDL::Music', qw/
/);
+sleep(2);
View
@@ -91,3 +91,5 @@ can_ok('main',qw/
gluNurbsProperty
gluNurbsSurface
gluPwlCurve /);
+
+sleep(2);
View
@@ -51,3 +51,4 @@ can_ok ('SDL::Game::Palette', qw/
blue
color /);
+sleep(2);
View
@@ -144,3 +144,4 @@ is($rect->left, 200, 'midleft() does nothing for X when passed undef');
$rect->midleft(154, 10);
is($rect->centery, 154, 'midleft() can be used as an acessor for y');
is($rect->left, 10, 'midleft() can be used as an acessor for x');
+sleep(2);
View
@@ -54,3 +54,4 @@ is (SDL::in('foo','fab','bar'), 0, "foo isn't in ('fab','bar')");
is (SDL::in('foo','fab',undef,'bar'), 0, "foo isn't in ('fab',undef,'bar')");
is (SDL::in('foo','fab',undef,'foo'), 1, "foo is in ('fab',undef,'foo')");
+sleep(2);
View
@@ -41,3 +41,4 @@ can_ok ('SDL::SMPEG', qw/
status /);
+sleep(2);
View
@@ -49,3 +49,4 @@ can_ok ('SDL::Sound', qw/
volume
/);
+sleep(2);
View
@@ -78,3 +78,4 @@ surface_leak();
+sleep(2);
View
@@ -74,3 +74,4 @@ isa_ok($timer, 'SDL::Timer');
SDL::delay(100);
is ($fired, 1,'timer fired once');
+sleep(2);
View
@@ -80,3 +80,4 @@ my $font = new SDL::Tool::Font
#ok( defined($$bref[0]), "Test for width SDL::TTFSizeUTF8." );
#ok( defined($$bref[1]), "Test for height SDL::TTFSizeUTF8." );
+sleep(2);
View
@@ -55,3 +55,4 @@ can_ok ('SDL::Tool::Graphic', qw/
my $gtool = SDL::Tool::Graphic->new();
isa_ok ($gtool, 'SDL::Tool::Graphic');
+sleep(2);
View
@@ -83,3 +83,4 @@ TODO:
diag $why;
done_testing;
+sleep(2);
View
@@ -32,3 +32,4 @@ TODO:
}
done_testing;
+sleep(2);
View
@@ -70,3 +70,4 @@ can_ok ('SDL::TTFont', qw/
unicode_shaded
unicode_solid
unicode_blended /);
+sleep(2);

0 comments on commit fc90dcd

Please sign in to comment.