t/smpeg.t

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