Fix dual responsibility of ResolveChildren()

Author: isc-dchui

src/cls/IPM/ResourceProcessor/Test.cls

@@ -288,8 +288,7 @@ Method OnResolveChildren(ByRef pResourceArray) As %Status
         set tResourceInfo("UnitTest") = 1
         set tResource = $case(..Package '= "", 1: ..Package, : ..Class)_..Extension
         // GetChildren has Output semantics — it kills its output array before populating it.
-        // Using tClassArray (not pResourceArray directly) preserves any existing entries
-        // in pResourceArray (e.g., the "/tests/" path entry added before this call).
+        // Use tClassArray as the intermediate to avoid killing any existing entries in pResourceArray.
         kill tClassArray
         $$$ThrowOnError(##class(%IPM.Storage.ResourceReference).GetChildren(tResource,tModuleName,1,.tResourceInfo,.tClassArray))
         $$$ThrowOnError(..EmbeddedProcessor.OnResolveChildren(.tClassArray))

src/cls/IPM/Storage/Module.cls

@@ -1371,6 +1371,11 @@ Method GetResolvedReferences(
             kill tempArray("Scope")
             if ..HasScope(pPhases, resourceScope) && ..HasScope(pPhases, attrScope) {
                 merge pReferenceArray(..Name) = tempArray
+                // ResolveChildren does not emit path entries for document enumeration. Re-add here
+                // because ExportSingleModule needs the path entry to trigger its directory-copy branch.
+                if $extract(tResource.Name) = "/" {
+                    set pReferenceArray(..Name, tResource.Name) = ..Name
+                }
             }
             if $$$ISERR(tSC) {
                 quit

src/cls/IPM/Storage/ResourceReference.cls

@@ -193,7 +193,7 @@ ClassMethod GetChildren(
                 quit
             }
         } else {
-            if pResourceName '= "" {
+            if (pResourceName '= "") && ($extract(pResourceName) '= "/") {
                 merge pResourceArray(pResourceName) = pResourceInfoArray
             }
 

tests/integration_tests/Test/PM/Integration/IncludeTests.cls

@@ -107,4 +107,41 @@ Method TestIncludeTestsModuleXml()
   }
 }
 
+// Regression test: ResolveChildren must not return path entries (names starting with /)
+// as top-level keys. Path resources have no Studio document representation; returning them
+// as document names can crash callers.
+Method TestResolveChildrenNoPathEntries()
+{
+    set status = $$$OK
+    try {
+        set testRoot = ##class(%File).NormalizeDirectory($get(^UnitTestRoot))
+        set moduleDir = ##class(%File).NormalizeDirectory(##class(%File).GetDirectory(testRoot)_"/_data/test-output-format/")
+        set status = ##class(%IPM.Main).Shell("load "_moduleDir)
+        do $$$AssertStatusOK(status,"Loaded test-output-format module successfully.")
+
+        set module = ##class(%IPM.Storage.Module).NameOpen("test-output-format",,.status)
+        do $$$AssertStatusOK(status,"Opened test-output-format module.")
+
+        set foundPathEntry = 0
+        set key = ""
+        for {
+            set tResource = module.Resources.GetNext(.key)
+            quit:(key = "")
+            kill tChildren
+            do $$$AssertStatusOK(tResource.ResolveChildren(.tChildren),"ResolveChildren succeeded for "_tResource.Name)
+            set childKey = ""
+            for {
+                set childKey = $order(tChildren(childKey))
+                quit:(childKey = "")
+                if ($extract(childKey) = "/") {
+                    set foundPathEntry = 1
+                }
+            }
+        }
+        do $$$AssertNotTrue(foundPathEntry,"ResolveChildren output contains no path entries.")
+    } catch e {
+        do $$$AssertStatusOK(e.AsStatus(),"An exception occurred.")
+    }
+}
+
 }