t/00-compile.t

   1 #!perl
   2
   3 use File::Find::Rule;
   4 use Test::More;
   5
   6 my @files = File::Find::Rule->relative->file->name('*.pm')->in('lib');
   7 plan tests => scalar(@files);
   8
   9 foreach my $file ( @files ) {
  10     my $module = $file;
  11     $module =~ s/[\/\\]/::/g;
  12     $module =~ s/\.pm$//;
  13     is( qx{ $^X -M$module -e "print '$module ok'" }, "$module ok", "$module loaded ok" );
  14 }
  15