/t/core_overlay.t
http://github.com/PerlGameDev/SDL · Perl · 35 lines · 25 code · 9 blank · 1 comment · 4 complexity · 0e0b29e241f6a3176b120c46c9c2e0c0 MD5 · raw file
- #!perl
- use strict;
- use warnings;
- use Test::More;
- use SDL;
- use SDL::Surface;
- use SDL::Video;
- use lib 't/lib';
- use SDL::TestTool;
- my $videodriver = $ENV{SDL_VIDEODRIVER};
- $ENV{SDL_VIDEODRIVER} = 'dummy' unless $ENV{SDL_RELEASE_TESTING};
- if ( !SDL::TestTool->init(SDL_INIT_VIDEO) ) {
- plan( skip_all => 'Failed to init video' );
- } else {
- plan( tests => 2 );
- }
- use_ok('SDL::Overlay');
- my $display = SDL::Video::set_video_mode( 640, 480, 32, SDL_ANYFORMAT );
- my $overlay = SDL::Overlay->new( 100, 100, SDL_YV12_OVERLAY, $display );
- isa_ok( $overlay, 'SDL::Overlay' );
- if ($videodriver) {
- $ENV{SDL_VIDEODRIVER} = $videodriver;
- } else {
- delete $ENV{SDL_VIDEODRIVER};
- }
- sleep(2);