1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
|
use Test2::V0;
use File::Find;
use Test2::Harness;
use Test2::Harness::Util qw/file2mod/;
find(\&wanted, 'lib/');
sub wanted {
my $file = $File::Find::name;
return unless $file =~ m/\.pm$/;
$file =~ s{^.*lib/}{}g;
my $ok = eval { require($file); 1 };
my $err = $@;
ok($ok, "require $file", $ok ? () : $err);
my $mod = file2mod($file);
my $sym = "$mod\::VERSION";
no strict 'refs';
is($$sym, $Test2::Harness::VERSION, "Package $mod ($file) has the version number");
};
done_testing;
|