use
strict;
use
Test::More;
$INC
{
'AnyEvent.pm'
} = 1;
my
@packages
;
find (
sub
{
return
unless
/\.pm$/;
return
if
$File::Find::dir
=~ /blib/;
my
$f
=
"$File::Find::dir/$_"
;
$f
=~ s/^.*(Prima.*).pm/$1/;
$f
=~ s[/][::]g;
push
@packages
,
$f
;
},
"$Bin/../../"
);
plan
tests
=>
scalar
@packages
;
require_ok(
$_
)
for
@packages
;