Skip when video driver is laggin

PerlGameDev · Nov 26, 2009 · 460b49f · 460b49f
1 parent 34f76e7
commit 460b49f
Showing 1 changed file with 7 additions and 11 deletions.
diff --git a/t/core_palette.t b/t/core_palette.t
@@ -20,23 +20,19 @@ isa_ok($display->format, 'SDL::PixelFormat', 'Are we a SDL::PixelFormat?');
 is( !defined $display->format->palette , 1, 'Palette is not defined as BitPerPixels is greater then 8');
 
 
-SDL::quit();
-
-SDL::init(SDL_INIT_VIDEO);
-
-$display = SDL::Video::set_video_mode(640,480,8, SDL_SWSURFACE );
+my $disp = SDL::Video::set_video_mode(640,480,8, SDL_SWSURFACE );
 
 SKIP:
 {
 
-skip	'Cannot open display: '.SDL::get_error(), 4 unless ($display);
-isa_ok($display->format, 'SDL::PixelFormat', 'Are we a SDL::PixelFormat?');
+skip ('Cannot open display: '.SDL::get_error(), 4) unless ($disp);
+isa_ok($disp->format, 'SDL::PixelFormat', 'Are we a SDL::PixelFormat?');
 
-isa_ok( $display->format->palette , 'SDL::Palette', 'Palette is SDL::Palette when BitPerPixels is 8 ');
+isa_ok( $disp->format->palette , 'SDL::Palette', 'Palette is SDL::Palette when BitPerPixels is 8 ');
 
-is( $display->format->palette->ncolors, 256, '256 colors in palette');
+is( $disp->format->palette->ncolors, 256, '256 colors in palette');
 
-isa_ok( $display->format->palette->colors(), 'ARRAY', 'Palette->colors[x] is a color');
+isa_ok( $disp->format->palette->colors(), 'ARRAY', 'Palette->colors[x] is a color');
 
-isa_ok( $display->format->palette->color_index(23), 'SDL::Color', 'Palette->color_index() is a SDL::Color');
+isa_ok( $disp->format->palette->color_index(23), 'SDL::Color', 'Palette->color_index() is a SDL::Color');
 }