|
#!/usr/bin/env perl
BEGIN {
FindBin::again();
unshift @INC ,
dir( $FindBin::RealBin )->parent->subdir( 'lib' )->stringify,
dir( $FindBin::RealBin , 'lib' )->stringify;
$ENV {DANCER_ENVDIR} = '/dev/null' ;
}
my $test = Test::Compile->new();
my @plfiles = grep { $_ !~ m/(?:graph)/i} $test ->all_pl_files();
my @pmfiles = grep { $_ !~ m/(?:graph)/i} $test ->all_pm_files();
$test ->ok( $test ->pl_file_compiles( $_ ), "$_ compiles" ) for @plfiles ;
$test ->ok( $test ->pm_file_compiles( $_ ), "$_ compiles" ) for @pmfiles ;
$test ->done_testing();
|