blob: 60900a3bccbbb4102d3c88234841aa69cf3a6edc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
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';
|