[perl #49714] [PATCH] Extend perl6 spectest to fetch and execute S04-S29 tests

[via RT]

# New Ticket Created by  Cosimo Streppone 
# Please include the string:  [perl #49714]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=49714 >


This is a patch to modify `make spectest' target
for languages/perl6 to fetch also new S04 and S29
tests from pugs test suite.

S29 tests are structured as S29-functions/subdir/*.t
so they were not considered. With this patch they
are correctly run.

-- 
Cosimo

Index: lib/Parrot/Test/Harness.pm
===================================================================
--- lib/Parrot/Test/Harness.pm  (revisione 24784)
+++ lib/Parrot/Test/Harness.pm  (copia locale)
@@ -108,7 +108,7 @@
                 ( $options{files} && ref $options{files} eq 'ARRAY' ) ?
                     @{ $options{files} }
                     :
-                    ( 't/*.t', 't/*/*.t' );
+                    ( 't/*.t', 't/*/*.t', 't/*/*/*.t' );
             foreach ( @file_patterns ) {
                 push @files, glob( File::Spec->catfile( $options{language}, $_ 
 ) ),
             }
@@ -124,7 +124,9 @@
         my @files;
         foreach my $arg ( @{ $options{arguments} } ) {
             -f $arg && push @files, glob $arg;
-            -d $arg && push @files, glob( File::Spec->catfile( $arg, '*.t' ) );
+            -d $arg && push @files,
+                glob( File::Spec->catfile( $arg, '*.t' ) ),
+                glob( File::Spec->catfile( $arg, '*/*.t') );
         }
 
         return @files;
@@ -135,7 +137,8 @@
         # You may want a deeper search than this.
         return (
             glob( File::Spec->catfile( 't', '*.t' ) ),
-            glob( File::Spec->catfile( 't', '*/*.t' ) )
+            glob( File::Spec->catfile( 't', '*/*.t' ) ),
+            glob( File::Spec->catfile( 't', '*/*/*.t' ) )
         );
     }
 }
Index: languages/perl6/t/fetchspec
===================================================================
--- languages/perl6/t/fetchspec (revisione 24784)
+++ languages/perl6/t/fetchspec (copia locale)
@@ -21,8 +21,10 @@
 
 my @spectests = qw(
     t/01-sanity
+    t/spec/S02-literals
     t/spec/S03-operators
-    t/spec/S02-literals
+    t/spec/S04-statements
+    t/spec/S29-functions
 );
 
 foreach my $srcfile (@spectests) {
Index: languages/perl6/config/makefiles/root.in
===================================================================
--- languages/perl6/config/makefiles/root.in    (revisione 24784)
+++ languages/perl6/config/makefiles/root.in    (copia locale)
@@ -140,7 +140,9 @@
        cd t/spec && svn up
        $(PERL) t/harness \
             t/spec/S02-literals \
-            t/spec/S03-operators\
+            t/spec/S03-operators \
+            t/spec/S04-statements \
+            t/spec/S29-functions
 
 fulltest: all testtest spectest