Skip to content

Commit 1e57926

Browse files
committed
Added option for ProcessIDs to cover the interoperability processes + current job
1 parent 0c2ff29 commit 1e57926

File tree

1 file changed

+12
-1
lines changed

1 file changed

+12
-1
lines changed

cls/TestCoverage/Manager.cls

Lines changed: 12 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -242,6 +242,18 @@ Method StartCoverageTracking() As %Status [ Private ]
242242
}
243243
}
244244
}
245+
ElseIf ($list(tProcessIDs, 1)="Interop")
246+
{
247+
// Collect the list of PIDs used by Interoperability processes in the current namespace
248+
// Run unit tests collecting coverage in that specific list of processes (plus the current process)
249+
&sql(select %DLIST(Process) into :tProcessIDs from %SYS.ProcessQuery_SS() where "User" = '_Ensemble')
250+
If (SQLCODE < 0) {
251+
Throw ##class(%Exception.SQL).CreateFromSQLCODE(SQLCODE,%msg)
252+
}
253+
if ('$LISTFIND(tProcessIDs, $Job)) {
254+
set $LIST(tProcessIDs, *+1) = $Job
255+
}
256+
}
245257
Set tMetrics = $ListBuild("RtnLine") _ $Select(..Timing:$ListBuild("Time","TotalTime"),1:"")
246258
$$$ThrowOnError(..Monitor.StartWithScope(tRelevantTargets,tMetrics,tProcessIDs))
247259
}
@@ -762,4 +774,3 @@ ClassMethod GetURL(pRunID As %String, Output pHost As %String, Output pPath As %
762774
}
763775

764776
}
765-

0 commit comments

Comments
 (0)