use
strict;
use
warnings;
my
@module
=
qw( App::runscript )
;
# Venus operator ("0+") that does numification
plan
tests
=> 0 +
@module
;
note
"Perl $] at $^X"
;
note
'Test::More '
, Test::More->VERSION;
note
'Test::Builder '
, Test::Builder->VERSION;
note
join
"\n "
,
'@INC:'
,
@INC
;
note
join
"\n "
,
'PATH:'
,
split
( /
$Config
{ path_sep }/,
$ENV
{ PATH } );
for
my
$module
(
@module
) {
# if you want to use a module but not import anything, use require_ok()
# instead of use_ok()
use_ok
$module
or BAIL_OUT
"Cannot load module '$module'"
;
no
warnings
'uninitialized'
;
## no critic (ProhibitNoWarnings)
note
"Testing $module "
.
$module
->VERSION;
}