Refactors for #2047

Author: JJ

xt/double-dots.t

@@ -11,7 +11,7 @@ Avoid using C<..> - usually a typo for C<.> or C<...>
 
 =end overview
 
-my @files = Test-Files.files.grep({$_.ends-with: '.pod6' or $_.ends-with: '.md'});
+my @files = Test-Files.documents;
 
 plan +@files;
 my $max-jobs = %*ENV<TEST_THREADS> // 2;

xt/duplicates.t

@@ -17,8 +17,7 @@ Allow a few well known duplicates, like 'long long'
 
 my $safe-dupes = Set.new(<method long default that>); # Allow these dupes
 
-my @files = Test-Files.files \
-    .grep({$_.ends-with: '.pod6' or $_.ends-with: '.md'}) \
+my @files = Test-Files.documents \
     .grep({$_ ne "doc/HomePage.pod6"}) \  # mostly HTML
     .grep({$_ ne "doc/404.pod6"});
 

xt/examples-compilation.t

@@ -32,7 +32,7 @@ Perl 6 level one.
 
 =end overview
 
-my @files = Test-Files.files.grep({$_.ends-with: '.pod6'});
+my @files = Test-Files.pods;
 
 sub walk($arg) {
     given $arg {

xt/links-not-links.t

@@ -16,7 +16,7 @@ use Pod::To::HTML;
 use MONKEY-SEE-NO-EVAL;
 
 # Every .pod6 file in the Type and Language directory.
-my @files = Test-Files.files.grep({$_.ends-with: '.pod6'}).grep(* ~~ /Type | Language/);
+my @files = Test-Files.pods.grep(* ~~ /Type | Language/);
 
 plan +@files;
 

xt/perl-nbsp.t

@@ -11,7 +11,7 @@ Insure any text that mentions Perl uses a no-break space after it.
 
 =end overview
 
-my @files = Test-Files.files.grep({$_.ends-with: '.pod6'|'.md'});
+my @files = Test-Files.documents;
 
 plan +@files;
 

xt/return-type.t

@@ -6,7 +6,7 @@ use lib 'lib';
 use Test-Files;
 
 # Every .pod6 file in the Type directory.
-my @files = Test-Files.files.grep({$_.ends-with: '.pod6'}).grep(* ~~ /Type | Language/);
+my @files = Test-Files.pods.grep(* ~~ /Type | Language/);
 
 plan +@files;