Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 45 lines (37 sloc) 0.504 kb
a677489 Kartik Thakore Moved old SDL::Video test to smpeg test
kthakore authored
1 #!perl
2 # basic testing of SDL::SMPEG
3
4 BEGIN {
4979eb1 Jeffrey T. Palmer perltidy
jtpalmer authored
5 unshift @INC, 'blib/lib', 'blib/arch';
a677489 Kartik Thakore Moved old SDL::Video test to smpeg test
kthakore authored
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') ) {
4979eb1 Jeffrey T. Palmer perltidy
jtpalmer authored
14 plan( tests => 2 );
15 } else {
16 plan( skip_all => ( SDL::Config->has('smpeg') ? '' : ' smpeg support not compiled' ) );
e6e146e Kartik Thakore Did perl tidy. Stole rc from padre. bricas++
kthakore authored
17 }
18
19 use_ok('SDL::SMPEG');
a677489 Kartik Thakore Moved old SDL::Video test to smpeg test
kthakore authored
20
e6e146e Kartik Thakore Did perl tidy. Stole rc from padre. bricas++
kthakore authored
21 can_ok(
4979eb1 Jeffrey T. Palmer perltidy
jtpalmer authored
22 'SDL::SMPEG', qw/
23 new
24 error
25 audio
26 video
27 volume
28 display
29 scale
30 play
31 pause
32 stop
33 rewind
34 seek
35 skip
36 loop
37 region
38 frame
39 info
40 status
41 /
e6e146e Kartik Thakore Did perl tidy. Stole rc from padre. bricas++
kthakore authored
42 );
a677489 Kartik Thakore Moved old SDL::Video test to smpeg test
kthakore authored
43
fc90dcd m4gnet time to sleep(2);
m4gnet authored
44 sleep(2);
Something went wrong with that request. Please try again.