PageRenderTime 24ms CodeModel.GetById 10ms app.highlight 11ms RepoModel.GetById 2ms app.codeStats 0ms

/t/config.t

http://github.com/PerlGameDev/SDL
Unknown | 28 lines | 24 code | 4 blank | 0 comment | 0 complexity | 36703f359fa14751e0468a6e06d9907c MD5 | raw file
 1# t/002_config.t - test config() functionality
 2
 3use strict;
 4use warnings;
 5use Test::More tests => 2;
 6
 7BEGIN { use_ok('SDL::Config'); }
 8
 9print "Testing SDL::Config\n";
10print "Has SDL                 = " . SDL::Config->has('SDL') . "\n";
11print "Has SDL_mixer           = " . SDL::Config->has('SDL_mixer') . "\n";
12print "Has SDL_image           = " . SDL::Config->has('SDL_image') . "\n";
13print "Has SDL_ttf             = " . SDL::Config->has('SDL_ttf') . "\n";
14print "Has SDL_gfx_framerate   = " . SDL::Config->has('SDL_gfx_framerate') . "\n";
15print "Has SDL_gfx_imagefilter = " . SDL::Config->has('SDL_gfx_imagefilter') . "\n";
16print "Has SDL_gfx_primitives  = " . SDL::Config->has('SDL_gfx_primitives') . "\n";
17print "Has SDL_gfx_rotozoom    = " . SDL::Config->has('SDL_gfx_rotozoom') . "\n";
18print "Has SDL_net             = " . SDL::Config->has('SDL_net') . "\n";
19print "Has SDL_Pango           = " . SDL::Config->has('SDL_Pango') . "\n";
20print "Has SDL_sound           = " . SDL::Config->has('SDL_sound') . "\n";
21print "Has SDL_svg             = " . SDL::Config->has('SDL_svg') . "\n";
22print "Has smpeg               = " . SDL::Config->has('smpeg') . "\n";
23print "Has png                 = " . SDL::Config->has('png') . "\n";
24print "Has jpeg                = " . SDL::Config->has('jpeg') . "\n";
25print "Has tiff                = " . SDL::Config->has('tiff') . "\n";
26
27# we assume that the following are always present
28is( SDL::Config->has('SDL'), 1 );