1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
use lib 't', 'lib';
use strict;
use warnings;
use Test::More 'no_plan';
use IO::All;
use File::Spec;
for (grep {! /CVS/ && ! /(?:~|\.swp)$/ && ! /.svn/} io('lib')->All_Files) {
my $name = $_->name;
my ($vol, $path, $file) = File::Spec->splitpath($name);
my @dirs = File::Spec->splitdir($path);
shift @dirs if $dirs[0] eq 'lib';
pop @dirs while @dirs and (not defined $dirs[-1] or $dirs[-1] =~ /^\s*$/);
$file =~ s/\.pm$//;
push @dirs, $file;
$name = join('::', @dirs);
eval "require $name; 1";
is($@, '', "Compile $name");
}
|
