#!/usr/bin/perl
use strict;
use warnings;
use Test::Most;
use App::Prove::Plugin::TraceUse;
my @present_modules = qw
/
App::Prove
Test::Perl::Critic
Test::Pod::Coverage
Test::Most
Set::Object
Test::Pod
File::Slurp
Tree::Simple
/;
my @not_present_modules =
qw/
CGI
Moose
LWP::UserAgent
/;
plan tests => $#present_modules +
$#not_present_modules +
2;
for (@present_modules) {
ok( App::Prove::Plugin::TraceUse::_check_build_pl_for_module($_), "$_ found in Build.PL" );
}
for (@not_present_modules) {
ok( !App::Prove::Plugin::TraceUse::_check_build_pl_for_module($_), "$_ not found in Build.PL" );
}
done_testing();