CI test before release

Author: lizmat

Changes

@@ -1,6 +1,7 @@
 Revision history for Chemistry::Elements
 
 {{$NEXT}}
+    - Fix improper use of item, when what was needed is .clone
 
 0.2  2024-08-07T12:51:52+02:00
     - Initial version

lib/Chemistry/Elements.rakumod

@@ -219,7 +219,7 @@ class Chemistry::Elements:auth<zef:raku-community-modules>:ver<0.2> {
     Cs Ba La Ce Pr Nd Pm Sm Eu Gd Tb Dy Ho Er Tm Yb Lu Hf Ta W  Re Os Ir Pt Au Hg Tl Pb Bi Po At Rn
     Fr Ra Ac Th Pa U  Np Pu Am Cm Bk Cf Es Fm Md No Lr Rf Ha Sg Bh Hs Mt Ds Rg Cn Nh Fl Mc Lv Ts Og
     >
-      ==> map( { state $n = 0; $n++; $_.Str => item $n } )
+      ==> map( { state $n = 0; $n++; $_.Str => $n.clone } )
       ==> my %symbol_to_name;
 
 # I could perhaps use Z=> above

run-tests

@@ -1,8 +1,66 @@
-unit sub MAIN(:a($author), :i($install));
+unit sub MAIN(
+  :a($author),
+  :i($install),
+  :$rmd,
+  :$disable-spesh,
+  :$disable-spesh-inline,
+  :$disable-JIT,
+  :$enable-spesh-nodelay,
+  :$enable-spesh-blocking,
+  :$enable-spesh-log,
+);
 
 say run(<raku --version>, :out).out.slurp.chomp;
 say "Running on $*DISTRO.gist().\n";
 
+if $rmd {
+    %*ENV<RAKUDO_MODULE_DEBUG> := 1;
+    say "RAKUDO_MODULE_DEBUG=1";
+}
+
+if $disable-spesh {
+    %*ENV<MVM_SPESH_DISABLE> := 1;
+    say "MVM_SPESH_DISABLE=1";
+}
+
+if $disable-spesh-inline {
+    %*ENV<MVM_SPESH_INLINE_DISABLE> := 1;
+    say "MVM_SPESH_INLINE_DISABLE=1";
+}
+
+if $disable-JIT {
+    %*ENV<MVM_JIT_DISABLE> := 1;
+    say "MVM_JIT_DISABLE=1";
+}
+
+if $enable-spesh-nodelay {
+    %*ENV<MVM_SPESH_NODELAY> := 1;
+    say "MVM_SPESH_NODELAY=1";
+}
+
+if $enable-spesh-blocking {
+    %*ENV<MVM_SPESH_BLOCKING> := 1;
+    say "MVM_SPESH_BLOCKING=1";
+}
+
+my $spesh-log;
+if $enable-spesh-log {
+    $spesh-log = (
+      $enable-spesh-log ~~ Bool ?? "spesh-log" !! $enable-spesh-log
+    ).IO;
+    %*ENV<MVM_SPESH_LOG> := $spesh-log.absolute;
+    say "MVM_SPESH_LOG=$spesh-log.relative()";
+}
+
+say ""
+  if $rmd
+  || $disable-spesh
+  || $disable-spesh-inline
+  || $disable-JIT
+  || $enable-spesh-nodelay
+  || $enable-spesh-blocking
+  || $enable-spesh-log;
+
 say "Testing {
     "dist.ini".IO.lines.head.substr(7)
 }{
@@ -15,6 +73,7 @@ my $done   = 0;
 sub process($proc, $filename) {
     if $proc {
         $proc.out.slurp;
+        $spesh-log.unlink if $spesh-log;
     }
     else {
         @failed.push($filename);
@@ -32,6 +91,12 @@ sub process($proc, $filename) {
         else {
             say "No output received, exit-code $proc.exitcode() ($proc.signal()):\n$proc.os-error()";
         }
+
+        if $spesh-log {
+            say "\nSpesh log requested, showing last 20000 lines:";
+            say $spesh-log.lines(:!chomp).tail(20000).join;
+            $spesh-log.unlink;
+        }
     }
 }
 
@@ -51,8 +116,12 @@ sub test-dir($dir) {
 }
 
 test-dir("t");
+test-dir($_) for dir("t", :test({ !.starts-with(".") && "t/$_".IO.d})).map(*.Str).sort;
 test-dir("xt") if $author && "xt".IO.e;
-install if $install;
+if $install {
+    install;
+    ++$done;
+}
 
 if @failed {
     say "\nFAILED: {+@failed} of $done:";