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, SDL_SWSURFACE );
  12
  13 my $overlay = SDL::Overlay->new( 100, 100, SDL_YV12_OVERLAY, $display);
  14
  15 isa_ok( $overlay, 'SDL::Overlay');
  16
  17 $overlay = undef;
  18
  19 $display = undef;
  20
  21
  22
  23