Assigning a custom return code could crash <Tester2.ReportTestResults>

Author: aplteam

APLSource/TestCases/Test_Misc_08.aplf

@@ -0,0 +1,18 @@
+ r←Test_Misc_08(debugFlag batchFlag);⎕TRAP;A;tmp;rc;log
+⍝ Exercise the `RunThese` method with a custom return code
+ ⎕TRAP←(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')
+ r←T._Failed
+
+ A←APLTreeUtils2
+
+⍝ Pre-conditions
+ tmp←⎕NS''
+ tmp.⎕FX'r←Test_001 (x y);⎕TRAP' '   ⍝ This and that' 'r←0'
+ tmp.T←⎕NEW ##.Tester2 tmp
+ tmp.T.custom_1←'Nested scripts are not supported'
+
+⍝ The test
+ (rc log)←tmp.T.RunThese 1
+ →T.FailsIf rc≠0
+
+ r←T._OK

APLSource/Tester2.aplc

@@ -52,6 +52,7 @@
       ⍝     * `Prepare` does not ask for code coverage reports when the CodeCoverage class is not around
       ⍝     * The documentation did not embedd the CSS
       ⍝     * Some minor issues fixed in the documentation
+      ⍝     * Assigning a custom return code could crash `Tester2.ReportTestResults`
       ⍝ * 4.0.0 ⋄ 2025-04-03
       ⍝   * Potenially breaking change: `Version` now returns the package config version number as a char vector
       ⍝   * Packages updated
@@ -950,7 +951,7 @@
               :AndIf 0<≢comment
               :AndIf 0<noOf←ps.returnCodes+.=-⊃(//)⎕VFI(≢'_custom_')↓constant
                   log,←⊂'  ',(⍕noOf),' test cases not executed because of "',comment,'" (flagged with "⍝")'
-              :ElseIf 0<noOf←ps.returnCodes+.=⍎constant
+              :ElseIf 0<noOf←+/ps.returnCodes∊⍎constant
                   log,←⊂'  ',(⍕noOf),' test cases not executed because of "',(1↓constant),'" (flagged with "⍝")'
               :EndIf
           :EndFor

TestResults/CodeCoverage.cr

@@ -19,5 +19,5 @@
   source: "APLSource/Tester2.aplc",
   tags: "test,test-framework",
   userCommandScript: "",
-  version: "4.1.0-beta-2+59",
+  version: "4.1.0+61",
 }