blob: 43061b9aee27c8fb034b0a7e95f7bb049da58a3b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
use strict;
use warnings;
use Test::More;
use File::Find;
my @modules;
find( sub { push @modules, $File::Find::name if /\.pm$/ }, 'blib/lib' );
plan tests => scalar @modules;
use_ok($_)
for reverse sort map { s!/!::!g; s/\.pm$//; s/^blib::lib:://; $_ }
@modules;
diag("Tested Test::Database $Test::Database::VERSION, Perl $], $^X");
|