t/videopm.t

   1 #!/usr/bin/perl -w
   2 #
   3 # Copyright (C) 2003 Tels
   4 # Copyright (C) 2004 David J. Goehrig
   5 #
   6 # basic testing of SDL::VIDEO
   7
   8 BEGIN {
   9         unshift @INC, 'blib/lib','blib/arch';
  10 }
  11
  12 use strict;
  13 use SDL::Config;
  14
  15 use Test::More;
  16
  17 if ( SDL::Config->has('smpeg') && SDL::Config->has('SDL_mixer') ) {
  18         plan ( tests => 2 );
  19 } else {
  20         plan ( skip_all =>
  21                 ( SDL::Config->has('smpeg') ? '' : ' smpeg support not compiled')  .
  22                 ( SDL::Config->has('SDL_mixer') ? '' : ' SDL_mixer support not compiled') );
  23 }
  24
  25 use_ok( 'SDL::Video' );
  26
  27 can_ok ('SDL::Video', qw/
  28         new
  29         error
  30         audio
  31         video
  32         volume
  33         display
  34         scale
  35         play
  36         pause
  37         stop
  38         rewind
  39         seek
  40         skip
  41         loop
  42         region
  43         frame
  44         info
  45         status /);
  46
  47