| Subject: | recursive_test_files runs dotfiles as tests |
the regexp used to find tests if 'recursive_test_files' is on is too permissive - the '*.t' glob (used when not finding tests recursively) won't match dotfiles, and the regexp does.
Specific problem case - I develop code hosted on a samba server using a mac - the mac creates ._test.t files to hold metadata, and I don't want these run as tests.
--- lib/Module/Build/Base.pm.orig Wed Jun 16 17:40:01 2004
+++ lib/Module/Build/Base.pm Wed Jun 16 17:40:24 2004
@@ -1061,7 +1061,7 @@
sub expand_test_dir {
my ($self, $dir) = @_;
- return sort @{$self->rscan_dir($dir, qr{\.t$})} if $self->{properties}{recursive_test_files};
+ return sort @{$self->rscan_dir($dir, qr{^[^\.].*\.t$})} if $self->{properties}{recursive_test_files};
return sort glob File::Spec->catfile($dir, "*.t");
}