Commit | Line | Data |
a677489e |
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 | |