[sdlgit/SDL_perl.git] / t / core_overlay.t

#!perl
use strict;
use warnings;
use Test::More tests => 2;
use SDL;

use_ok('SDL::Overlay');

SDL::Init(SDL_INIT_VIDEO);

my $display = SDL::SetVideoMode(640,480,32,0);

my $overlay = SDL::Overlay->new( 0, 0, 0, $display);

isa_ok( $overlay, 'SDL::Overlay');
Commit	Line	Data
9346cc6b	1	#!perl
	2	use strict;
	3	use warnings;
	4	use Test::More tests => 2;
	5	use SDL;
	6
	7	use_ok('SDL::Overlay');
	8
	9	SDL::Init(SDL_INIT_VIDEO);
	10
	11	my $display = SDL::SetVideoMode(640,480,32,0);
	12
	13	my $overlay = SDL::Overlay->new( 0, 0, 0, $display);
	14
	15	isa_ok( $overlay, 'SDL::Overlay');
	16
	17
	18