cpan/Module-Build/t/00-compile.t

   1 use strict;
   2 use warnings;
   3 use lib 't/lib';
   4 use MBTest;
   5 use File::Find qw/find/;
   6
   7 my @files;
   8 find( sub { -f && /\.pm$/ && push @files, $File::Find::name }, 'lib' );
   9
  10 plan tests => scalar @files;
  11
  12 for my $f ( sort @files ) {
  13   my $ec;
  14   my $output = stdout_stderr_of( sub { $ec = system( $^X, '-c', $f ) } );
  15   ok( ! $ec, "compiling $f" ) or diag $output;
  16 }
  17