Make test files that work on repo files respect TEST_FILES

TEST_FILES is an env file of comma separated files to test
Raku · Sep 27, 2017 · 32002de · 32002de
1 parent ecbbf2e
commit 32002de
Show file tree

Hide file tree

Showing 10 changed files with 98 additions and 39 deletions.
diff --git a/t/pod-valid.t b/t/pod-valid.t
@@ -14,9 +14,13 @@ my $max-jobs = %*ENV<TEST_THREADS> // 2;
 if @*ARGS {
     @files = @*ARGS;
 } else {
-    for qx<git ls-files>.lines -> $file {
-        next unless $file ~~ / '.pod6' $/;
-        push @files, $file;
+    if %*ENV<TEST_FILES> {
+        @files = %*ENV<TEST_FILES>.split(',');
+    } else {
+        for qx<git ls-files>.lines -> $file {
+            next unless $file ~~ / '.pod6' $/;
+            push @files, $file;
+        }
     }
 }
 

diff --git a/t/pod6.t b/t/pod6.t
@@ -2,7 +2,17 @@ use v6;
 use Test;
 use lib 'lib';
 
-my @files = qx<git ls-files>.lines;
+my @files;
+
+if @*ARGS {
+    @files = @*ARGS;
+} else {
+    if %*ENV<TEST_FILES> {
+        @files = %*ENV<TEST_FILES>.split(',');
+    } else {
+        @files= qx<git ls-files>.lines;
+    }
+}
 
 plan +@files;
 

diff --git a/t/tabs.t b/t/tabs.t
@@ -4,14 +4,22 @@ use lib 'lib';
 
 my @files;
 
-for qx<git ls-files>.lines -> $file {
-    next if $file eq "LICENSE"|"Makefile";
-    next if $file ~~ / 'custom-theme'/;
-    next if $file ~~ / 'jquery'/;
-    next if $file ~~ / '.png' $/;
-    next if $file ~~ / '.ico' $/;
-
-    push @files, $file;
+if @*ARGS {
+    @files = @*ARGS;
+} else {
+    if %*ENV<TEST_FILES> {
+        @files = %*ENV<TEST_FILES>.split(',');
+    } else {
+        for qx<git ls-files>.lines -> $file {
+            next if $file eq "LICENSE"|"Makefile";
+            next if $file ~~ / 'custom-theme'/;
+            next if $file ~~ / 'jquery'/;
+            next if $file ~~ / '.png' $/;
+            next if $file ~~ / '.ico' $/;
+
+            push @files, $file;
+        }
+    }
 }
 
 plan +@files;

diff --git a/xt/aspell.t b/xt/aspell.t
@@ -22,10 +22,14 @@ my @files;
 if @*ARGS {
     @files = @*ARGS;
 } else {
-    for qx<git ls-files>.lines -> $file {
-        next unless $file ~~ / '.' ('pod6'|'md') $/;
-        next if $file ~~ / 'contributors.pod6' $/; # names are hard.
-        push @files, $file;
+    if %*ENV<TEST_FILES> {
+        @files = %*ENV<TEST_FILES>.split(',');
+    } else {
+        for qx<git ls-files>.lines -> $file {
+            next unless $file ~~ / '.' ('pod6'|'md') $/;
+            next if $file ~~ / 'contributors.pod6' $/; # names are hard.
+            push @files, $file;
+        }
     }
 }
 

diff --git a/xt/duplicates.t b/xt/duplicates.t
@@ -21,9 +21,13 @@ my $safe-dups = Set.new(<method long>); # Allow these dupes
 if @*ARGS {
     @files = @*ARGS;
 } else {
-    for qx<git ls-files>.lines -> $file {
-        next unless $file ~~ / '.' ('pod6'|'md') $/;
-        push @files, $file;
+    if %*ENV<TEST_FILES> {
+        @files = %*ENV<TEST_FILES>.split(',');
+    } else {
+        for qx<git ls-files>.lines -> $file {
+            next unless $file ~~ / '.' ('pod6'|'md') $/;
+            push @files, $file;
+        }
     }
 }
 

diff --git a/xt/examples-compilation.t b/xt/examples-compilation.t
@@ -22,9 +22,13 @@ my @files;
 if @*ARGS {
     @files = @*ARGS;
 } else {
-    for qx<git ls-files doc>.lines -> $file {
-        next unless $file ~~ / '.pod6' $/;
-        push @files, $file;
+    if %*ENV<TEST_FILES> {
+        @files = %*ENV<TEST_FILES>.split(',');
+    } else { 
+        for qx<git ls-files doc>.lines -> $file {
+            next unless $file ~~ / '.pod6' $/;
+            push @files, $file;
+        }
     }
 }
 

diff --git a/xt/perl-nbsp.t b/xt/perl-nbsp.t
@@ -6,9 +6,13 @@ my @files;
 if @*ARGS {
     @files = @*ARGS;
 } else {
-    for qx<git ls-files>.lines -> $file {
-        next unless $file ~~ / '.pod6' $/;
-        push @files, $file;
+    if %*ENV<TEST_FILES> {
+        @files = %*ENV<TEST_FILES>.split(',');
+    } else {
+        for qx<git ls-files>.lines -> $file {
+            next unless $file ~~ / '.pod6' $/;
+            push @files, $file;
+        }
     }
 }
 

diff --git a/xt/return-type.t b/xt/return-type.t
@@ -5,7 +5,16 @@ use lib 'lib';
 my @files;
 
 # Every .pod6 file in the Type directory.
-@files = qx<git ls-files>.lines.grep(* ~~ /'.pod6'/).grep(* ~~ /Type | Language/);
+
+if @*ARGS {
+    @files = @*ARGS;
+} else {
+    if %*ENV<TEST_FILES> {
+        @files = %*ENV<TEST_FILES>.split(',');
+    } else {
+        @files = qx<git ls-files>.lines.grep(* ~~ /'.pod6'/).grep(* ~~ /Type | Language/);
+    }
+}
 
 plan +@files;
 

diff --git a/xt/space-after-comma.t b/xt/space-after-comma.t
@@ -13,10 +13,14 @@ my @files;
 if @*ARGS {
     @files = @*ARGS;
 } else {
-    for qx<git ls-files>.lines -> $file {
-        next unless $file ~~ / '.' ('pod6'|'md') $/;
-        next if $file ~~ / 'contributors.pod6' $/; # names are hard.
-        push @files, $file;
+    if %*ENV<TEST_FILES> {
+        @files = %*ENV<TEST_FILES>.split(',');
+    } else {
+        for qx<git ls-files>.lines -> $file {
+            next unless $file ~~ / '.' ('pod6'|'md') $/;
+            next if $file ~~ / 'contributors.pod6' $/; # names are hard.
+            push @files, $file;
+        }
     }
 }
 

diff --git a/xt/trailing-whitespace.t b/xt/trailing-whitespace.t
@@ -4,15 +4,23 @@ use lib 'lib';
 
 my @files;
 
-for qx<git ls-files>.lines -> $file {
-    next if $file eq "LICENSE"|"Makefile";
-    next if $file ~~ / 'custom-theme'/;
-    next if $file ~~ / 'jquery'/;
-    next if $file ~~ / '.png' $/;
-    next if $file ~~ / '.ico' $/;
-    next if $file ~~ / 'util/trigger-rebuild.txt' /;
-
-    push @files, $file;
+if @*ARGS {
+    @files = @*ARGS;
+} else {
+    if %*ENV<TEST_FILES> {
+        @files = %*ENV<TEST_FILES>.split(',');
+    } else {
+        for qx<git ls-files>.lines -> $file {
+            next if $file eq "LICENSE"|"Makefile";
+            next if $file ~~ / 'custom-theme'/;
+            next if $file ~~ / 'jquery'/;
+            next if $file ~~ / '.png' $/;
+            next if $file ~~ / '.ico' $/;
+            next if $file ~~ / 'util/trigger-rebuild.txt' /;
+
+            push @files, $file;
+        }
+    }
 }
 
 plan +@files;