/t/00-load.t

http://github.com/PerlGameDev/SDL · Raku · 114 lines · 89 code · 25 blank · 0 comment · 4 complexity · a9575d8398ecc9f0dd1631b309dc8a8b MD5 · raw file

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