Skip to content

Commit

Permalink
Search lib instead of blib.
Browse files Browse the repository at this point in the history
So it just works whether in a distribution or not.
  • Loading branch information
theory committed May 11, 2015
1 parent 42ec98d commit 79583d0
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions t/all_pod_files.t
Expand Up @@ -11,7 +11,7 @@ BEGIN {
my @expected;
if ( $^O eq "VMS" ) {
@expected = (
File::Spec->catfile( 'blib', 'lib', 'Test', 'Pod.pm' ),
File::Spec->catfile( 'lib', 'Test', 'Pod.pm' ),
File::Spec->catfile( 't', 'pod', 'good-pod-script.' ),
File::Spec->catfile( 't', 'pod', 'good-pod-script.bat' ),
File::Spec->catfile( 't', 'pod', 'good.pod' ),
Expand All @@ -22,14 +22,14 @@ else {
# The expected files have slashes, not File::Spec separators, because
# that's how File::Find does it.
@expected = qw(
blib/lib/Test/Pod.pm
lib/Test/Pod.pm
t/pod/good-pod-script
t/pod/good-pod-script.bat
t/pod/good.pod
t/pod/no_pod.pod
);
}
my @files = sort map { lc } all_pod_files( "blib", "t/pod" );
my @files = sort map { lc } all_pod_files( "lib", "t/pod" );
@expected = sort map { lc } @expected;
s{\\}{/}g for @files, @expected;
is_deeply( \@files, \@expected, "Got all the distro files" );

0 comments on commit 79583d0

Please sign in to comment.