b76523b4a43f8f8b0a8eaa462037a8c6961eb73e
[sdlgit/SDL_perl.git] / t / videopm.t
1 #!/usr/bin/perl -w
2 #
3 # Copyright (C) 2003 Tels
4 # Copyright (C) 2004 David J. Goehrig
5 # Copyright (C) 2009 Kartik Thakore
6 # basic testing of SDL::VIDEO
7
8 BEGIN {
9         unshift @INC, 'blib/lib','blib/arch', 'blib/arch/auto/src/SDL/SFont';
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