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
|
package Testophile;
use v5.8;
use Test::More;
BEGIN { mkdir './lib/foo', 0555 }
END { rmdir './lib/foo' }
require FindBin::libs;
FindBin::libs->import( qw( subdir=foo subonly ) );
# Note: Old test uses File::Spec::catpath to compose a subdir
# for comparision. Catch is that windoze can't decide which
# slashes to use and end returning with C:/foo/bar on some
# systems C:\foo\bar on others and catpath is consistent.
# Fix is replacing the literal with a regex; less specific
# test but should work well enough for the purpose.
for my $expect ( qr{ \W lib \W foo $ }x )
{
like $INC[0], $expect, "Found only foo subdir ($INC[0])";
}
FindBin::libs->import;
for my $expect ( qr{ \W lib $ }x )
{
like $INC[0], $expect, "Added lib dir ($INC[0])";
}
done_testing
__END__
|
