/t/config.t

http://github.com/PerlGameDev/SDL · Raku · 28 lines · 22 code · 4 blank · 2 comment · 0 complexity · 36703f359fa14751e0468a6e06d9907c MD5 · raw file

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