Subject: | test scripts not listed correctly for Win32 |
The attached patch is specifically for Makefile.PL. In listing the test scripts to run, you use '*.t'. However, this doesn't always work very well on Win32, and it can be better to list the test scripts individually.
--- C:\wip\diffs\Test-Plan\Test-Plan-0.02/Makefile.PL Tue Mar 15 14:37:58 2005
+++ C:\wip\diffs\Test-Plan\Test-Plan-0.02-barbie/Makefile.PL Tue Apr 5 14:56:36 2005
@@ -7,11 +7,11 @@
use File::Find qw(find);
use File::Spec ();
-my %directories;
+my %scripts;
-find(sub { return unless m/\.t$/; $directories{$File::Find::dir} = 1 }, 't');
+find(sub { return unless m/\.t$/; $scripts{$File::Find::name} = 1 }, 't');
-my @tests = map { File::Spec->catfile($_, '*.t') } keys %directories;
+my @tests = keys %scripts;
WriteMakefile(
NAME => 'Test::Plan',