1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
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 );
|
