Unify example skips.

Instead of skipping some files when extracting examples,
and some when running the tests, move all the exclusions
to the test; as of this commit, extract-examples now
passes 100% - the goal should be to remove all these skips
and still have the test file pass.

Author: coke

util/extract-examples.p6

@@ -51,15 +51,10 @@ my &verbose = sub (|c) {};
 
 sub MAIN(Str :$source-path!, Str :$prefix!, Str :$exclude = ".git", Bool :v(:verbose($v)), Bool :$force, *@files) {
     my \exclude = none(flat <. ..>, $exclude.split(','));
-    # We exclude these files from examples list
-    my @exclude-list = '5to6', 'rb', 'module', 'nativecall',
-                       'testing', 'traps', 'packages', 'tables',
-                       'phasers', 'haskell';
 
     @files ||= gather for $source-path {
         take .IO when .IO.f
-                      && .Str.ends-with('.pod6')
-                      && !.basename.starts-with(any @exclude-list);
+                      && .Str.ends-with('.pod6');
         .IO.dir(test => exclude)».&?BLOCK when .IO.d
     }
 

xt/examples-compilation.t

@@ -14,10 +14,29 @@ if @*ARGS {
     # don't pass examples/ as part of the path name
     @files = @*ARGS;
 } else {
-    @files = find(dir => '.',
-                 name => /'Type'|'Language' .*? .p6$/,
-                 exclude => /'exceptions.p6'|'ArgFiles.p6'/,
-                 type => 'file');
+    @files = find(
+        dir => '.',
+        type => 'file',
+        exclude => /
+            | 'Language/5to6-nutshell.p6'
+            | 'Language/5to6-perlfunc.p6'
+            | 'Language/5to6-perlop.p6'
+            | 'Language/5to6-perlsyn.p6'
+            | 'Language/5to6-perlvar.p6'
+            | 'Language/haskell-to-p6.p6'
+            | 'Language/modules.p6'
+            | 'Language/nativecall.p6'
+            | 'Language/packages.p6'
+            | 'Language/phasers.p6'
+            | 'Language/rb-nutshell.p6'
+            | 'Language/tables.p6'
+            | 'Language/testing.p6'
+            | 'Language/traps.p6'
+            | 'Programs/00-running.p6'
+            | 'Programs/01-debugging.p6'
+            | 'Type/IO/ArgFiles.p6'
+         /,
+    );
 }
 
 my $proc;