1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
use strict;
use warnings;
use Test::Most 'bail';
use File::Spec 'catfile';
BEGIN {
my @modules = qw /
SDL
SDL::Video
SDL::Color
SDL::Surface
SDL::Config
SDL::Overlay
SDL::Rect
SDL::Time
SDL::Events
SDL::Event
SDL::Mouse
SDL::Joystick
SDL::Cursor
SDL::Audio
SDL::AudioCVT
SDL::AudioSpec
SDL::CDROM
SDL::CDTrack
SDL::CD
SDL::MultiThread
SDL::PixelFormat
SDL::VideoInfo
SDL::GFX::BlitFunc
SDL::GFX::Framerate
SDL::GFX::FPSManager
SDL::GFX::ImageFilter
SDL::GFX::Primitives
SDL::GFX::Rotozoom
SDL::Image
SDL::Mixer
SDL::Mixer::Samples
SDL::Mixer::Channels
SDL::Mixer::Groups
SDL::Mixer::Music
SDL::Mixer::Effects
SDL::Mixer::MixChunk
SDL::Mixer::MixMusic
SDL::Pango
SDL::Pango::Context
SDL::TTF
SDL::TTF::Font
SDL::Version
SDLx::App
SDLx::Sprite
SDLx::Sprite::Animated
SDLx::FPS
SDLx::SFont
SDLx::Validate
SDLx::Surface
SDLx::Surface::TiedMatrix
SDLx::Surface::TiedMatrixRow
SDLx::Controller
SDLx::Controller::Interface
SDLx::Controller::State
SDLx::Controller::Timer
SDLx::Sound
/;
my $tests = scalar @modules;
my $load_test_strict = 0;
if( $ENV{RELEASE_TESTING})
{
eval 'require Test::Strict';
$load_test_strict = 1 unless $@;
}
foreach( @modules )
{
use_ok $_ ;
if( $load_test_strict )
{
my $file = $_;
my @files = split /::/, $file;
$file = File::Spec->catfile( 'lib', @files );
$file = $file.'.pm';
eval 'Test::Strict::syntax_ok $file';
pass unless $@;
eval 'Test::Stict::strict_ok $file';
pass unless $@;
eval 'Test::Strict::warnings_ok $file';
pass unless $@;
}
}
}
done_testing();
|
