use
strict;
use
Test::More;
use
xt::CLI;
subtest
'Carmel::Preload'
=>
sub
{
my
$app
= cli();
$app
->write_cpanfile(
<<EOF);
requires 'JSON', '== 2.94';
EOF
$app
->run_ok(
"install"
);
$app
->run_ok(
"exec"
,
"perl"
,
"-e"
,
'use Carmel::Preload; print $INC{"JSON.pm"}'
);
like
$app
->stdout,
qr!/JSON-.*/blib/lib/JSON\.pm!
or diag
$app
->stderr;
};
done_testing;