require
q[t/helper.pm]
;
my
$pwd
= cwd;
my
$tmpdir
= tempdir(
TEMPLATE
=> File::Spec->tmpdir .
"/mechacpan_t_XXXXXXXX"
,
CLEANUP
=> 1 );
chdir
$tmpdir
;
my
$dir
= cwd;
my
$lib
=
'ConfigDeps'
;
my
$deplib
=
'Try/Tiny'
;
my
$options
= {
source
=> {
$lib
=>
"$pwd/test_dists/$lib/$lib-1.0.tar.gz"
,
'Try::Tiny'
=>
'E/ET/ETHER/Try-Tiny-0.24.tar.gz'
,
},
};
is( App::MechaCPAN::Install->go(
$options
,
"$lib"
), 0,
'Can use a source'
);
is( cwd,
$dir
,
'Returned to whence it started'
);
ok( -e
"$dir/local/lib/perl5/$lib.pm"
,
"Library file $lib exists"
);
ok( -e
"$dir/local/lib/perl5/$lib.pm"
,
"Library file $deplib exists"
);
require_ok(
"$dir/local/lib/perl5/$deplib.pm"
);
is(
$Try::Tiny::VERSION
,
'0.24'
,
"The correct version was installed"
);
chdir
$pwd
;
done_testing;