Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 43 lines (35 sloc) 0.487 kB
a677489 @kthakore Moved old SDL::Video test to smpeg test
kthakore authored
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
78ce693 SDL_mixer is not necessary
Tobias Leich authored
13 if ( SDL::Config->has('smpeg') ) {
a677489 @kthakore Moved old SDL::Video test to smpeg test
kthakore authored
14 plan ( tests => 2 );
15 } else {
78ce693 SDL_mixer is not necessary
Tobias Leich authored
16 plan ( skip_all => ( SDL::Config->has('smpeg') ? '' : ' smpeg support not compiled') );
a677489 @kthakore Moved old SDL::Video test to smpeg test
kthakore authored
17 }
18
19 use_ok( 'SDL::SMPEG' );
20
21 can_ok ('SDL::SMPEG', qw/
22 new
23 error
24 audio
25 video
26 volume
27 display
28 scale
29 play
30 pause
31 stop
32 rewind
33 seek
34 skip
35 loop
36 region
37 frame
38 info
78ce693 SDL_mixer is not necessary
Tobias Leich authored
39 status
40 /);
a677489 @kthakore Moved old SDL::Video test to smpeg test
kthakore authored
41
fc90dcd @m4gnet time to sleep(2);
m4gnet authored
42 sleep(2);
Something went wrong with that request. Please try again.