When a ref to a namespace (class) was passed as argument to ⎕NEW <CoderCoverage> reported 0 coverage

Author: aplteam

APLSource/CodeCoverage.aplc

@@ -67,6 +67,8 @@
 
     ∇ History
       :Access Public Shared
+    ⍝ * 0.11.1 from 2025-06-04
+    ⍝   * When a reference to a namespace or class was passed as argument to `⎕NEW`, `CoderCoverage` reported zero code coverage.
     ⍝ * 0.11.0 from 2025-06-03
     ⍝   * New method `ProcessDataAndCreateSummary` introduced
     ⍝   * Several tests added
@@ -156,6 +158,7 @@
           'Must be character vector'⎕SIGNAL 11/⍨' '≠1↑0⍴v
           ('Has invalid characters',b/v)⎕SIGNAL 11/⍨∨/b←~v∊APL_Chars,',⎕#.'
           v2←','(≠⊆⊢),v
+          v2←{(,'#')≡,⍵:⍵ ⋄ '⎕SE'≡⍵:⍵ ⋄ ~9.1 9.2∊⍨⎕NC⊂⍵:⍵ ⋄ ⍵≡ref←⍎⍵:w ⋄ ⍕ref}¨v2 ⍝ Convert any refs to their targets
           :If ~∧/v2∊,¨'#' '⎕SE'
               :If ∨/~b←0<⎕NC↑v2
                   11 ⎕SIGNAL⍨'Unknown names: ',⊃{⍺,',',⍵}/(~b)/v2
@@ -371,7 +374,7 @@
       :EndIf
       html,←⊂'<div id="footer">'
       html,←⊂'<hr>'
-      html,←⊂'<p>Created by "CodeCoverage" version ',(2⊃Version),' from ',(3⊃Version),'</p>'
+      html,←⊂'<p>Created by "CodeCoverage" version ',(Version),'</p>'
       html,←⊂'</div>'
       html,←⊂''
       html,←⊂'</body>'

APLSource/TestCases/Test_Misc_091.aplf

@@ -0,0 +1,38 @@
+ R←Test_Misc_091(stopFlag batchFlag);⎕TRAP;filename;body;ref;ref2;C;html;htmlFilename
+⍝ Pass a ref poinnting to a package; was once a bug.
+ ⎕TRAP←(999 'C' '∘∘∘ ⍝ Deliberate error')(0 'N')
+
+ R←T._Failed
+
+ filename←(739⌶0),'/CodeCoverage_Tests/',⊃⎕SI
+ 3 ⎕MKDIR⊃⎕NPARTS filename
+
+ #.⎕SHADOW'TEMP'
+ 'TEMP'#.⎕NS''
+ #.TEMP2←#.TEMP
+
+ body←,¨':Class Foo' '_Goo←⍬' ':Property Goo' ':Access Public Instance' '∇r←get' 'r←_Goo' '∇' '∇set arg' '_Goo←arg.NewValue' '∇' ':EndProperty' ':EndClass'
+ ref←#.TEMP.⎕FIX body
+ ref2←⎕NEW ref
+
+ C←⎕NEW ##.CodeCoverage(,⊂'#.TEMP2')
+ C.filename←filename
+ C.Start ⍬
+ ref2.Goo←'Hello world'
+ {}ref2.Goo
+ C.Stop ⍬
+ {}C.Finalise ⍬
+ →T.GoToTidyUp 2≠≢C.data
+
+ htmlFilename←1 ##.CodeCoverage.ProcessDataAndCreateReport C.filename
+ html←⊃⎕NGET htmlFilename
+ →T.GoToTidyUp~∨/'Overall 100% of the testable code is covered.'⍷∊html
+
+ R←T._OK
+
+∆TidyUp:
+ 1 C.DeleteFiles C.filename
+ Data.⎕EX'T'
+ #.⎕EX'TEMP2'
+ {}FilesAndDirs.RmDirByForce⊃⎕NPARTS C.filename
+⍝Done

apl-package.json

@@ -19,5 +19,5 @@
   source: "APLSource/CodeCoverage.aplc",
   tags: "code-coverage,test-framework,unit-tests",
   userCommandScript: "",
-  version: "0.11.0+69",
+  version: "0.11.1+74",
 }

packages_dev/apl-buildlist.json

@@ -1,9 +1,9 @@
 {
   packageID: [
-    "aplteam-Tester2-4.1.0",
+    "aplteam-Tester2-4.2.0",
     "aplteam-FilesAndDirs-7.0.0",
     "aplteam-CommTools-2.0.1",
-    "aplteam-CodeCoverage-0.11.0",
+    "aplteam-CodeCoverage-0.11.1-beta-2",
     "aplteam-APLTreeUtils2-1.4.1",
     "aplteam-OS-4.0.0",
     "aplteam-IniFiles-6.0.0",
@@ -21,7 +21,7 @@
     "https://tatin.dev/",
     "https://tatin.dev/",
     "https://tatin.dev/",
-    "https://tatin.dev/",
+    "http://localhost:444/",
     "https://tatin.dev/",
     "https://tatin.dev/",
     "https://tatin.dev/",

packages_dev/apl-dependencies.txt

@@ -1,5 +1,5 @@
 aplteam-APLTreeUtils2-1.4.1
-aplteam-Tester2-4.1.0
+aplteam-Tester2-4.2.0
 aplteam-CommTools-2.0.1
-aplteam-CodeCoverage-0.11.0
+aplteam-CodeCoverage-0.11.1-beta-2
 aplteam-FilesAndDirs-7.0.0