20 lines
401 B
Perl
20 lines
401 B
Perl
use strict;
|
|
use warnings;
|
|
|
|
use Test::More;
|
|
|
|
plan skip_all => "File::Find not installed" unless eval { require File::Find };
|
|
plan tests => 1;
|
|
|
|
my @files;
|
|
File::Find::find({ wanted=>sub { push @files, $_ if /\.pm$/ }, no_chdir=>1 }, 'lib');
|
|
|
|
for my $m (sort @files) {
|
|
$m =~ s|[\\/]|::|g;
|
|
$m =~ s|^lib::||;
|
|
$m =~ s|\.pm$||;
|
|
eval "use $m; 1;" or die "ERROR: 'use $m' failed";
|
|
}
|
|
|
|
ok 1, 'all done';
|