This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Excluding tests in sub-dirs
authorJerry D. Hedden <jdhedden@cpan.org>
Tue, 2 Nov 2010 14:47:28 +0000 (10:47 -0400)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 8 Nov 2010 17:36:39 +0000 (09:36 -0800)
For modules that are not built, exclude tests in sub-directories under
/t.  For example: cpan/Module-Build/t/actions/installdeps.t

t/TEST

diff --git a/t/TEST b/t/TEST
index d659828..9ae25d3 100755 (executable)
--- a/t/TEST
+++ b/t/TEST
@@ -394,7 +394,7 @@ sub _tests_from_manifest {
                my $extension = $2;
                if (!$::core || $t =~ m!^lib/[a-z]!) {
                    if (defined $extension) {
-                       $extension =~ s!/t$!!;
+                       $extension =~ s!/t(:?/\S+)*$!!;
                        # XXX Do I want to warn that I'm skipping these?
                        next if $skip{$extension};
                        my $flat_extension = $extension;