Skip to content
This repository
Fetching contributors…

Cannot retrieve contributors at this time

file 114 lines (89 sloc) 1.676 kb
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();
Something went wrong with that request. Please try again.