t/01load.t

   1 #!/usr/bin/perl
   2 # vim: set ft=perl:
   3 #
   4 # This test attempts to load every .pm file in MANIFEST.
   5 # It might be naive.
   6 #
   7
   8 my @perlmods;
   9
  10 use Test::More;
  11 use SQL::Translator;
  12
  13 unless (open MANIFH, "MANIFEST") {
  14     plan skip_all => "Can't open MANIFEST! ($!)";
  15     exit;
  16 }
  17
  18 while (<MANIFH>) {
  19     chomp;
  20     if (s/\.pm$//) {
  21         s,/,::,g;
  22         push @perlmods, $_
  23     }
  24 }
  25
  26 close MANIFH;
  27
  28 @perlmods = sort @perlmods; # aesthetics
  29 plan tests => scalar @perlmods;
  30
  31 for my $mod (@perlmods) {
  32     use_ok($mod);
  33 }
  34