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 my $count = 0;
  10
  11 unless (open MANIFH, "MANIFEST") {
  12     print "1..1\n";
  13     print "not ok 1\n";
  14     exit;
  15 }
  16 while (<MANIFH>) {
  17     chomp;
  18     if (s/\.pm$//) {
  19         s,/,::,g;
  20         s/^lib:://;
  21         push @perlmods, $_
  22     }
  23 }
  24
  25 print "1.." . scalar @perlmods . "\n";
  26
  27 close MANIFH;
  28
  29 for my $mod (@perlmods) {
  30     $count++;
  31     $mod =~ s,/,::,g;
  32     eval "use $mod;";
  33     print "not " if ($@);
  34     print "ok $count # $mod\n";
  35 }
  36