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
|
#!/usr/bin/perl -w
use strict;
use File::FindLib 'inc/MyTest.pm';
use File::Basename qw< dirname >;
use File::Spec::Functions qw< rel2abs >;
BEGIN {
MyTest->import( qw< plan skip Okay SkipIf Lives Dies > );
plan(
tests => 6,
# todo => [ 2, 3 ],
);
}
# TODO: Change failure to "skip", for the smartarses :)
Dies(
sub { File::FindLib->import('nobody/has/this/path/on/their/system') },
qr{nobody\W+has\W+this\W+path\W+on\W+their\W+system},
'Fails when path not found',
);
sub maybe_david {
our $David;
$David = 1
if @_ && $_[0] =~ s/^Using \S+\n//;
return $David;
}
my $VER= $File::FindLib::VERSION;
my $t= rel2abs( dirname(__FILE__) );
my $v;
chomp( $v= qx( $^X -Mblib $t/sub/dir/script 2>&1 ) );
maybe_david( $v );
Okay( $VER, $v, "Found right version from t/sub/dir/script" );
chomp( $v= qx( $^X -Mblib -e "require '$t/sub/dir/module.pm'" 2>&1 ) );
maybe_david( $v );
Okay( $VER, $v, "Found right version from t/sub/dir/module.pm" );
unlink( "$t/init/link" );
if( maybe_david() ) {
skip( 'smoke tester inserting extra output' )
for 1,2;
} elsif(
eval {
if( ! symlink( "../sub/dir/subScript", "$t/init/link" ) ) {
warn "# symlink: $!\n";
0
} else {
1
}
}
) {
my( $v, $l )= qx( $^X -Mblib $t/init/link 2>&1 );
chomp
for $v, $l;
Okay( $VER, $v, "Found right version from t/init/link" );
Okay( '1 1', $l, "Sub::Find loaded once" );
} else {
skip( 'No symlinks' )
for 1,2;
}
# TODO:
#chdir("$t/sub/dir"); # But will fail is actually from from there
#Warns(
# sub {
# File::FindLib->import(
# },
# ...
#);
|
