test compilation of all scripts and modules passes
This commit is contained in:
1
Build.PL
1
Build.PL
@@ -96,6 +96,7 @@ Module::Build->new(
|
||||
test_requires => {
|
||||
'Test::More' => '1.302083',
|
||||
'Env::Path' => '0',
|
||||
'Test::Compile' => '0',
|
||||
'Test::File::ShareDir::Dist' => '0',
|
||||
},
|
||||
script_files => [
|
||||
|
||||
30
xt/00-compile.t
Normal file
30
xt/00-compile.t
Normal file
@@ -0,0 +1,30 @@
|
||||
#!/usr/bin/env perl
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
BEGIN {
|
||||
use FindBin;
|
||||
FindBin::again();
|
||||
|
||||
use Path::Class;
|
||||
|
||||
# stuff useful locations into @INC and $PATH
|
||||
unshift @INC,
|
||||
dir($FindBin::RealBin)->parent->subdir('lib')->stringify,
|
||||
dir($FindBin::RealBin, 'lib')->stringify;
|
||||
}
|
||||
|
||||
# for netdisco app config
|
||||
use App::Netdisco;
|
||||
use Test::Compile;
|
||||
|
||||
my $test = Test::Compile->new();
|
||||
|
||||
my @plfiles = grep {$_ !~ m/(?:sshcollector|graph)/i} $test->all_pl_files();
|
||||
my @pmfiles = grep {$_ !~ m/(?:sshcollector|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();
|
||||
Reference in New Issue
Block a user