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
|
#!/usr/bin/perl
package Testophile;
use v5.8;
no warnings; # avoid extraneous nastygrams about qw
use Symbol;
use Test::More;
$\ = "\n";
$, = "\n\t";
# export @lib after looking for */lib
# export @found after looking for */blib
# export @binz after looking for */bin, override the
# "ignore" to search /bin, /usr/bin.
#
# eval necessary for crippled O/S w/ missing/broken symlinks.
BEGIN
{
eval
{
symlink qw( /nonexistant/path/to/something ./dead-link )
}
}
END
{
eval
{
unlink './dead-link';
}
}
# libs & found should be populated.
# missing and dead should be empty.
use FindBin::libs qw( export );
use FindBin::libs qw( export=found base=blib );
use FindBin::libs qw( export=missing base=non-existant-directory );
use FindBin::libs qw( export=dead base=dead-link );
my %testz
= qw
(
lib 1
found 1
missing 0
dead-link 0
);
plan tests => scalar keys %testz;
while( my ($name, $populated) = each %testz )
{
my $dest = qualify $name;
my $ref = qualify_to_ref $dest;
eval
{
$populated
? ok @{ *$ref }, "Non-empty: \@$dest"
: ok ! @{ *$ref }, "Empty: \@$dest"
;
1
}
or fail "Not installed: '$name', $@";
}
exit 0;
|
