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 | ||
d5a2f5ac | 9 | SDL::init(SDL_INIT_VIDEO); |
9346cc6b | 10 | |
0e583675 | 11 | my $display = SDL::SetVideoMode(640,480,32, SDL_SWSURFACE ); |
9346cc6b | 12 | |
0e583675 | 13 | my $overlay = SDL::Overlay->new( 100, 100, SDL_YV12_OVERLAY, $display); |
9346cc6b | 14 | |
15 | isa_ok( $overlay, 'SDL::Overlay'); | |
16 | ||
c37bd817 | 17 | $overlay = undef; |
18 | ||
19 | $display = undef; | |
20 | ||
21 | ||
9346cc6b | 22 | |
23 |