You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
23 lines
399 B
23 lines
399 B
#!/usr/bin/env perl
|
|
use warnings;
|
|
use strict;
|
|
use Test::More;
|
|
use File::Find;
|
|
|
|
my @NO_TEST = ( qw( ) );
|
|
|
|
find(
|
|
sub {
|
|
return unless $_ =~ /\.pm$/;
|
|
my $module = $File::Find::name;
|
|
|
|
$module =~ s/\.pm//;
|
|
$module =~ s/lib\///;
|
|
$module =~ s/\//::/g;
|
|
|
|
next if grep { $_ eq $module } @NO_TEST;
|
|
use_ok( $module );
|
|
}, 'lib'
|
|
);
|
|
|
|
done_testing();
|
|
|