t/videopm.t

   1 #!/usr/bin/perl -w
   2 #
   3 # Copyright (C) 2003 Tels
   4 # Copyright (C) 2004 David J. Goehrig
   5 #
   6 # Copyright (C) 2005 David J. Goehrig <dgoehrig\@cpan.org>
   7 #
   8 # ------------------------------------------------------------------------------
   9 #
  10 # This library is free software; you can redistribute it and/or
  11 # modify it under the terms of the GNU Lesser General Public
  12 # License as published by the Free Software Foundation; either
  13 # version 2.1 of the License, or (at your option) any later version.
  14 #
  15 # This library is distributed in the hope that it will be useful,
  16 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  18 # Lesser General Public License for more details.
  19 #
  20 # You should have received a copy of the GNU Lesser General Public
  21 # License along with this library; if not, write to the Free Software
  22 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
  23 #
  24 # ------------------------------------------------------------------------------
  25 #
  26 # Please feel free to send questions, suggestions or improvements to:
  27 #
  28 #       David J. Goehrig
  29 #       dgoehrig\@cpan.org
  30 #
  31 #
  32 # basic testing of SDL::VIDEO
  33
  34 BEGIN {
  35         unshift @INC, 'blib/lib','blib/arch';
  36 }
  37
  38 use strict;
  39 use SDL::Config;
  40
  41 use Test::More;
  42
  43 if ( SDL::Config->has('smpeg') && SDL::Config->has('SDL_mixer') ) {
  44         plan ( tests => 2 );
  45 } else {
  46         plan ( skip_all =>
  47                 ( SDL::Config->has('smpeg') ? '' : ' smpeg support not compiled')  .
  48                 ( SDL::Config->has('SDL_mixer') ? '' : ' SDL_mixer support not compiled') );
  49 }
  50
  51 use_ok( 'SDL::Video' );
  52
  53 can_ok ('SDL::Video', qw/
  54         new
  55         error
  56         audio
  57         video
  58         volume
  59         display
  60         scale
  61         play
  62         pause
  63         stop
  64         rewind
  65         seek
  66         skip
  67         loop
  68         region
  69         frame
  70         info
  71         status /);
  72
  73