/xt/05_manifest.t

http://github.com/PerlGameDev/SDL · Perl · 32 lines · 21 code · 7 blank · 4 comment · 1 complexity · 35b937e9909f65b6c664cef9e7fe41da MD5 · raw file

  1. #!/usr/bin/perl
  2. # Test that our MANIFEST describes the distribution
  3. use strict;
  4. BEGIN {
  5. use English qw(-no_match_vars);
  6. $OUTPUT_AUTOFLUSH = 1;
  7. $WARNING = 1;
  8. }
  9. my @MODULES = ( 'Test::DistManifest 1.001003', );
  10. # Don't run tests for installs
  11. use Test::More;
  12. unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) {
  13. plan( skip_all => "Author tests not required for installation" );
  14. }
  15. # Load the testing modules
  16. foreach my $MODULE (@MODULES) {
  17. eval "use $MODULE";
  18. if ($EVAL_ERROR) {
  19. $ENV{RELEASE_TESTING}
  20. ? BAIL_OUT("Failed to load required release-testing module $MODULE")
  21. : plan( skip_all => "$MODULE not available for testing" );
  22. }
  23. }
  24. manifest_ok();
  25. sleep(2);