Skip to content
This repository
Newer
Older
100644 44 lines (37 sloc) 0.504 kb
a677489e » kthakore
2009-10-23 Moved old SDL::Video test to smpeg test
1 #!perl
2 # basic testing of SDL::SMPEG
3
4 BEGIN {
4979eb13 » jtpalmer
2010-07-30 perltidy
5 unshift @INC, 'blib/lib', 'blib/arch';
a677489e » kthakore
2009-10-23 Moved old SDL::Video test to smpeg test
6 }
7
8 use strict;
9 use SDL::Config;
10
11 use Test::More;
12
78ce693e » Tobias Leich
2010-03-25 SDL_mixer is not necessary
13 if ( SDL::Config->has('smpeg') ) {
4979eb13 » jtpalmer
2010-07-30 perltidy
14 plan( tests => 2 );
15 } else {
16 plan( skip_all => ( SDL::Config->has('smpeg') ? '' : ' smpeg support not compiled' ) );
e6e146ee » kthakore
2010-07-20 Did perl tidy. Stole rc from padre. bricas++
17 }
18
19 use_ok('SDL::SMPEG');
a677489e » kthakore
2009-10-23 Moved old SDL::Video test to smpeg test
20
e6e146ee » kthakore
2010-07-20 Did perl tidy. Stole rc from padre. bricas++
21 can_ok(
4979eb13 » jtpalmer
2010-07-30 perltidy
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 /
e6e146ee » kthakore
2010-07-20 Did perl tidy. Stole rc from padre. bricas++
42 );
a677489e » kthakore
2009-10-23 Moved old SDL::Video test to smpeg test
43
fc90dcdc » m4gnet
2009-12-02 time to sleep(2);
44 sleep(2);
Something went wrong with that request. Please try again.