File tree Expand file tree Collapse file tree 1 file changed +13
-1
lines changed Expand file tree Collapse file tree 1 file changed +13
-1
lines changed Original file line number Diff line number Diff line change @@ -262,7 +262,19 @@ Method StartCoverageTracking() As %Status [ Private ]
262
262
}
263
263
}
264
264
}
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
+ }
266
278
set ^IRIS .TEMPCG ($i (^IRIS .TEMPCG )) = tProcessIDs
267
279
Set tMetrics = $ListBuild (" RtnLine" ) _ $Select (..Timing :$ListBuild (" Time" ," TotalTime" ),1 :" " )
268
280
$$$ThrowOnError(..Monitor .StartWithScope (tRelevantTargets ,tMetrics ,tProcessIDs ))
You can’t perform that action at this time.
0 commit comments