Skip to content

Commit 19ee5b4

Browse files
committed
Made the debugging statements more usefully located
1 parent 03b0fa0 commit 19ee5b4

File tree

1 file changed

+3
-2
lines changed

1 file changed

+3
-2
lines changed

cls/TestCoverage/Manager.cls

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -193,6 +193,7 @@ Method LogAssert(success, action, description, extra, location)
193193
set $LIST(tProcessIDs, *+1) = $Job
194194
}
195195
set ..ProcessIDs = tProcessIDs
196+
set ^IRIS.TEMPCG($i(^IRIS.TEMPCG)) = tProcessIDs
196197
}
197198
}
198199

@@ -264,7 +265,7 @@ Method StartCoverageTracking() As %Status [ Private ]
264265
}
265266
ElseIf ($list(tProcessIDs, 1)="Interop")
266267
{
267-
set ^IRIS.TEMPCG($i(^IRIS.TEMPCG)) = "ProcessIDs was still Interop"
268+
// set ^IRIS.TEMPCG($i(^IRIS.TEMPCG)) = "ProcessIDs was still Interop"
268269
// Collect the list of PIDs used by Interoperability processes in the current namespace
269270
// Run unit tests collecting coverage in that specific list of processes (plus the current process)
270271
&sql(select %DLIST(Process) into :tProcessIDs from %SYS.ProcessQuery_SS() where "User" = '_Ensemble')
@@ -275,7 +276,7 @@ Method StartCoverageTracking() As %Status [ Private ]
275276
set $LIST(tProcessIDs, *+1) = $Job
276277
}
277278
}
278-
set ^IRIS.TEMPCG($i(^IRIS.TEMPCG)) = tProcessIDs
279+
// set ^IRIS.TEMPCG($i(^IRIS.TEMPCG)) = tProcessIDs
279280
Set tMetrics = $ListBuild("RtnLine") _ $Select(..Timing:$ListBuild("Time","TotalTime"),1:"")
280281
$$$ThrowOnError(..Monitor.StartWithScope(tRelevantTargets,tMetrics,tProcessIDs))
281282
}

0 commit comments

Comments
 (0)