Blame t/8-check_duplicated_entries.t
|
Packit |
82cce8 |
#!/usr/bin/perl
|
|
Packit |
82cce8 |
|
|
Packit |
82cce8 |
use strict;
|
|
Packit |
82cce8 |
use warnings;
|
|
Packit |
82cce8 |
|
|
Packit |
82cce8 |
use Test::More tests => 30;
|
|
Packit |
82cce8 |
use lib qw(t t/data/duplicated_entries);
|
|
Packit |
82cce8 |
use Utils;
|
|
Packit |
82cce8 |
|
|
Packit |
82cce8 |
|
|
Packit |
82cce8 |
##############################################################
|
|
Packit |
82cce8 |
# Tests compilation of Module::ScanDeps
|
|
Packit |
82cce8 |
##############################################################
|
|
Packit |
82cce8 |
BEGIN { use_ok( 'Module::ScanDeps' ); }
|
|
Packit |
82cce8 |
|
|
Packit |
82cce8 |
my @roots = qw(t/data/duplicated_entries/use_scoped_package.pl t/data/duplicated_entries/Scoped/Package.pm);
|
|
Packit |
82cce8 |
my $expected_rv =
|
|
Packit |
82cce8 |
{
|
|
Packit |
82cce8 |
"use_scoped_package.pl" => {
|
|
Packit |
82cce8 |
file => generic_abs_path("t/data/duplicated_entries/use_scoped_package.pl"),
|
|
Packit |
82cce8 |
key => "use_scoped_package.pl",
|
|
Packit |
82cce8 |
type => "data",
|
|
Packit |
82cce8 |
uses => ["Scoped/Package.pm"],
|
|
Packit |
82cce8 |
},
|
|
Packit |
82cce8 |
"Scoped/Package.pm" => {
|
|
Packit |
82cce8 |
file => generic_abs_path("t/data/duplicated_entries/Scoped/Package.pm"),
|
|
Packit |
82cce8 |
key => "Scoped/Package.pm",
|
|
Packit |
82cce8 |
type => "module",
|
|
Packit |
82cce8 |
used_by => ["use_scoped_package.pl"],
|
|
Packit |
82cce8 |
},
|
|
Packit |
82cce8 |
};
|
|
Packit |
82cce8 |
|
|
Packit |
82cce8 |
# Functional i/f
|
|
Packit |
82cce8 |
my $rv = scan_deps(@roots);
|
|
Packit |
82cce8 |
compare_scandeps_rvs($rv, $expected_rv, \@roots);
|
|
Packit |
82cce8 |
|
|
Packit |
82cce8 |
__END__
|