projects
/
sdlgit/SDL_perl.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
2b0660b320d53419d1bc8535682b75b289aa54bb
[sdlgit/SDL_perl.git]
/
t
/
core_overlay.t
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