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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
#!/perl -w
use 5.010;
use strict;
# This tests properties of dual-life modules:
#
# * Are all dual-life programs being generated in utils/?
# ... or in the module-specific locations where they are built.
chdir 't';
require './test.pl';
use Config;
if ( $Config{usecrosscompile} ) {
skip_all( "Not all files are available during cross-compilation" );
}
plan('no_plan');
use File::Basename;
use File::Find;
use File::Spec::Functions;
# Exceptions that are found in dual-life bin dirs but aren't
# installed by default; some occur only during testing:
my $not_installed = qr{^(?:
\.\./cpan/Encode/bin/u(?:cm(?:2table|lint|sort)|nidump)
|
\.\./cpan/Module-(?:Metadata|Build)
/MB-[\w\d]+/Simple/(?:test_install/)?bin/.*
)\z}ix;
my %dist_dir_exe;
$dist_dir_exe{lc "podselect.PL"} = "../cpan/Pod-Parser/podselect";
$dist_dir_exe{lc "podchecker.PL"} = "../cpan/Pod-Checker/podchecker";
$dist_dir_exe{lc "pod2usage.PL"} = "../cpan/Pod-Usage/pod2usage";
foreach (qw (pod2man pod2text)) {
$dist_dir_exe{lc "$_.PL"} = "../cpan/podlators/scripts/$_";
# redundant but necessary given use of scripts/ for both
# built version and .PL.
$dist_dir_exe{lc $_} = "../cpan/podlators/scripts/$_";
};
$dist_dir_exe{'pod2html.pl'} = '../ext/Pod-Html';
my @programs;
my $ext = $^O eq 'VMS' ? '.com' : '';
find(
{ no_chdir => 1, wanted => sub {
my $name = $File::Find::name;
return if $name =~ /blib/;
return unless $name =~ m{/(?:bin|scripts?)/\S+\z} && $name !~ m{/t/};
$name =~ s/${ext}\z//;
push @programs, $name;
}},
qw( ../cpan ../dist ../ext ),
);
for my $f ( sort @programs ) {
$f =~ s/\.\z// if $^O eq 'VMS';
next if $f =~ $not_installed;
my $bn = basename($f);
if(grep { /\A(?i:$bn)\z/ } keys %dist_dir_exe) {
my $exe_file = "$dist_dir_exe{lc $bn}$ext";
ok( -f $exe_file, "Verify -f '$exe_file'");
} else {
my $utils_file = catfile('..', 'utils', "$bn$ext");
ok( -f $utils_file, "Verify -f '$utils_file'" );
}
}
|
