Bug fix related to ignore

Author: aplteam

APLSource/CodeCoverage.aplc

@@ -54,11 +54,13 @@
 
     ∇ r←Version
       :Access Public Shared
-      r←'CodeCoverage' '0.10.2+52' '2023-04-09'
+      r←'CodeCoverage' '0.10.3+52' '2023-06-23'
     ∇
 
     ∇ History
       :Access Public Shared
+    ⍝ * 0.10.3 from 2023-04-23
+    ⍝   * Bug fix: Instance names could not be assigned to "ignore"
     ⍝ * 0.10.2 from 2023-04-09
     ⍝   * On non-Windows platforms the file access matrix needs setting to avoid problems
     ⍝ * 0.10.1 from 2023-04-08
@@ -137,18 +139,14 @@
         ∇ r←Get
           r←','(≠⊆⊢),_ignore
         ∇
-        ∇ set value;v;b;v2;noOf
+        ∇ set value;v;noOf
           :If 0=noOf←+/∧\1=≡¨value.NewValue
               v←∊value.NewValue
           :Else
               v←(⊃{⍺,',',⍵}/noOf↑value.NewValue),noOf↓value.NewValue
           :EndIf
           'Must be character vector'⎕SIGNAL 11/⍨' '≠1↑0⍴v
           ('Has invalid characters',b/v)⎕SIGNAL 11/⍨∨/b←~v∊APL_Chars,',⎕#.'
-          v2←','(≠⊆⊢),v
-          :If ∨/~b←0<⎕NC⊃v2
-              11 ⎕SIGNAL⍨'Unknown names: ',⊃{⍺,',',⍵}/(~b)/v2
-          :EndIf
           _ignore←v
         ∇
     :EndProperty

APLSource/TestCases/Data/Test_002.aplf

@@ -1,4 +1,4 @@
- R←Test_002(stopFlag batchFlag);⎕TRAP
+ R←Test_002(stopFlag batchFlag);⎕TRAP;ref
 ⍝ Pro-forma test case: runs functions in scripts
  ⎕TRAP←(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')
  R←T._Failed
@@ -7,6 +7,9 @@
  ∆Script2.Run
  ∆Script3.Run
  ∆Script4.Run
+ ref←⎕NEW ∆Script5
+ {}ref.Hello1
+ {}ref.Hello2
 
  R←T._OK
 ⍝Done

APLSource/TestCases/Data/∆Script5.aplc

@@ -0,0 +1,16 @@
+:Class ∆Script5
+⍝ Useful to check on instance methods
+    ∇ make
+      :Access Public Instance
+      :Implements Constructor
+      ⎕RL←+/⎕ts
+    ∇
+    ∇ r←Hello1
+      :Access Public Instance
+      r←'Galaxy'
+    ∇
+    ∇ r←Hello2
+      :Access Public Instance
+      r←'World'
+    ∇
+:EndClass

APLSource/TestCases/Test_Misc_061.aplf

@@ -0,0 +1,21 @@
+ R←Test_Misc_061(stopFlag batchFlag);⎕TRAP;htmlFilename;row;name;could;did;html
+⍝ Calls ProcessData and CreateReport rather than ProcessDataAndCreateReport
+ ⎕TRAP←(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')
+ R←T._Failed
+
+ Data.Prepare
+ Data.T.codeCoverage.filename←(739⌶0),'/CodeCoverage_',(⊃⎕SI)
+ Data.T.codeCoverage.ignore←'#.CodeCoverage.TestCases.Data.∆Script5.Hello2'
+ {}Data.T.RunThese'Test_002'
+ ##.CodeCoverage.ProcessData Data.T.codeCoverage.filename
+ htmlFilename←##.CodeCoverage.CreateReport Data.T.codeCoverage.filename
+ html←⊃⎕NGET htmlFilename
+ →T.GoToTidyUp 1≠+/'∆Script5.Hello1'⍷html
+ →T.GoToTidyUp 0≠+/'∆Script5.Hello2'⍷html
+
+ R←T._OK
+
+∆TidyUp:
+ 1 T.codeCoverage.DeleteFiles Data.T.codeCoverage.filename
+ Data.⎕EX'T'
+⍝Done

TestResults/CodeCoverage.cr

@@ -19,5 +19,5 @@
   source: "APLSource/CodeCoverage.aplc",
   tags: "code-coverage,test-framework,unit-tests",
   userCommandScript: "",
-  version: "0.10.2+62",
+  version: "0.10.3+63",
 }