Skip to content

Commit 03b0fa0

Browse files
committed
Added back the error catching loop in case the ProcessIDs don't get set in LogAssert
1 parent f5ec3e8 commit 03b0fa0

File tree

1 file changed

+13
-1
lines changed

1 file changed

+13
-1
lines changed

cls/TestCoverage/Manager.cls

Lines changed: 13 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -262,7 +262,19 @@ Method StartCoverageTracking() As %Status [ Private ]
262262
}
263263
}
264264
}
265-
265+
ElseIf ($list(tProcessIDs, 1)="Interop")
266+
{
267+
set ^IRIS.TEMPCG($i(^IRIS.TEMPCG)) = "ProcessIDs was still Interop"
268+
// Collect the list of PIDs used by Interoperability processes in the current namespace
269+
// Run unit tests collecting coverage in that specific list of processes (plus the current process)
270+
&sql(select %DLIST(Process) into :tProcessIDs from %SYS.ProcessQuery_SS() where "User" = '_Ensemble')
271+
If (SQLCODE < 0) {
272+
Throw ##class(%Exception.SQL).CreateFromSQLCODE(SQLCODE,%msg)
273+
}
274+
if ('$LISTFIND(tProcessIDs, $Job)) {
275+
set $LIST(tProcessIDs, *+1) = $Job
276+
}
277+
}
266278
set ^IRIS.TEMPCG($i(^IRIS.TEMPCG)) = tProcessIDs
267279
Set tMetrics = $ListBuild("RtnLine") _ $Select(..Timing:$ListBuild("Time","TotalTime"),1:"")
268280
$$$ThrowOnError(..Monitor.StartWithScope(tRelevantTargets,tMetrics,tProcessIDs))

0 commit comments

Comments
 (0)