Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

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