/t/core_overlay.t

http://github.com/PerlGameDev/SDL · Perl · 35 lines · 25 code · 9 blank · 1 comment · 4 complexity · 0e0b29e241f6a3176b120c46c9c2e0c0 MD5 · raw file

  1. #!perl
  2. use strict;
  3. use warnings;
  4. use Test::More;
  5. use SDL;
  6. use SDL::Surface;
  7. use SDL::Video;
  8. use lib 't/lib';
  9. use SDL::TestTool;
  10. my $videodriver = $ENV{SDL_VIDEODRIVER};
  11. $ENV{SDL_VIDEODRIVER} = 'dummy' unless $ENV{SDL_RELEASE_TESTING};
  12. if ( !SDL::TestTool->init(SDL_INIT_VIDEO) ) {
  13. plan( skip_all => 'Failed to init video' );
  14. } else {
  15. plan( tests => 2 );
  16. }
  17. use_ok('SDL::Overlay');
  18. my $display = SDL::Video::set_video_mode( 640, 480, 32, SDL_ANYFORMAT );
  19. my $overlay = SDL::Overlay->new( 100, 100, SDL_YV12_OVERLAY, $display );
  20. isa_ok( $overlay, 'SDL::Overlay' );
  21. if ($videodriver) {
  22. $ENV{SDL_VIDEODRIVER} = $videodriver;
  23. } else {
  24. delete $ENV{SDL_VIDEODRIVER};
  25. }
  26. sleep(2);