t/mpegpm.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::MPEG
   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::MPEG' );
  26
  27 can_ok ('SDL::MPEG', qw/
  28         new
  29         has_audio
  30         has_video
  31         width
  32         height
  33         size
  34         offset
  35         frame
  36         fps
  37         time
  38         length /);
  39
  40