1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
|
use strict;
use warnings;
use Test::More;
use FindBin;
use lib "$FindBin::Bin/lib";
use TestHelper;
use ExtUtils::Depends;
my $tmp_inc = temp_inc;
my $dep_info = ExtUtils::Depends->new ('DepTest');
$dep_info->save_config (catfile $tmp_inc, qw(DepTest Install Files.pm));
# --------------------------------------------------------------------------- #
my $info = ExtUtils::Depends->new ('UseTest', 'DepTest');
my %deps = $info->get_deps;
ok (exists $deps{DepTest});
# --------------------------------------------------------------------------- #
$info = ExtUtils::Depends->new ('UseTest');
$info->add_deps ('DepTest');
$info->load_deps;
%deps = $info->get_deps;
ok (exists $deps{DepTest});
# --------------------------------------------------------------------------- #
done_testing;
|