use Test::More;
use File::Find;
my @classes = ();
my $skipped = 0;
my @optional = (qw(
Magpie::ConfigReader::XML
));
my $root = -e 'blib/' ? 'blib/lib' : 'lib';
File::Find::find(
sub {
return unless $_ =~ /.pm$/;
my $path = $File::Find::name;
$path =~ s|^$root/||;
$path =~ s|.pm$||;
$path =~ s|/|::|g;
return if $path =~ /::(Resource|Transformer|Plugin)::/;
push @classes, $path;
},
$root
);
ok( scalar( @classes ) > 0 );
foreach my $class ( @classes ) {
if (grep { $_ eq $class } @optional) {
$skipped++;
next;
}
use_ok( $class );
}
done_testing( (scalar( @classes ) + 1) - $skipped );