Make t/pod/pod2usage2.t work on case insensitive file systems.
authorJerry D. Hedden <jdhedden@cpan.org>
Mon, 2 Feb 2009 21:25:38 +0000 (21:25 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 2 Feb 2009 21:25:38 +0000 (21:25 +0000)
pod_where() checks the current dir when looking for PODs
when the -dirs option is not specified.  Because of
case-insensitivity under Cygwin, this causes t/pod/usage.pod
to get found before lib/Pod/Usage.pm.

The fix is to set -dir=>[] in pod_where() when testing in
CORE under Cygwin.  The attached patch does this.

t/pod/pod2usage2.t

index 98a6ba9..4cd75de 100644 (file)
@@ -223,7 +223,11 @@ EOT
 
 # test with pod_where
 use_ok('Pod::Find', qw(pod_where));
-($exit, $text) = getoutput( sub { pod2usage( -input => pod_where({-inc => 1}, 'Pod::Usage'),
+# Exclude current dir when testing in CORE under Cygwin
+my @NO_CURDIR = ($^O eq 'cygwin' && $ENV{PERL_CORE})
+                    ? ('-dirs' => [])
+                    : ();
+($exit, $text) = getoutput( sub { pod2usage( -input => pod_where({-inc => 1, @NO_CURDIR}, 'Pod::Usage'),
                                              -exitval => 0, -verbose => 0) } );
 $text =~ s{#Using.*/blib.*\n}{}; # older blib's emit something to STDERR
 is ($exit, 0,                 "Exit status pod2usage with Pod::Find");