#1 Prevent lock table filling up

Author: timleavitt

cls/TestCoverage/Data/CodeUnitMap.cls

@@ -25,7 +25,7 @@ ClassMethod Create(pFromHash As %String, pFromLine As %Integer, pToHash As %Stri
 {
 	Set tSC = $$$OK
 	Try {
-		&sql(insert or update into TestCoverage_Data.CodeUnitMap
+		&sql(insert or update %NOLOCK %NOCHECK into TestCoverage_Data.CodeUnitMap
 			(FromHash, FromLine, ToHash, ToLine)
 			select :pFromHash, :pFromLine, :pToHash, Counter
 			from TestCoverage.Sequence(:pToLineStart,:pToLineEnd))
@@ -36,7 +36,7 @@ ClassMethod Create(pFromHash As %String, pFromLine As %Integer, pToHash As %Stri
 		// Insert/update transitive data (e.g., .INT -> .MAC (generator) -> .CLS)
 		&sql(
 			/* Lines that map to the "from" line also map to the "to" line */
-			insert or update into TestCoverage_Data.CodeUnitMap
+			insert or update %NOLOCK %NOCHECK into TestCoverage_Data.CodeUnitMap
 			(FromHash, FromLine, ToHash, ToLine)
 			select FromHash, FromLine, :pToHash, Counter
 			from TestCoverage.Sequence(:pToLineStart,:pToLineEnd),TestCoverage_Data.CodeUnitMap

cls/TestCoverage/Data/Run.cls

@@ -57,7 +57,7 @@ ClassMethod MapRunCoverage(pRunIndex As %Integer) As %Status
 
 		// Here's a worse-performing approach with some extrinsic calls that ideally wouldn't be necessary:
 		&SQL(
-			INSERT OR UPDATE INTO TestCoverage_Data.Coverage
+			INSERT OR UPDATE %NOLOCK %NOCHECK INTO TestCoverage_Data.Coverage
 				(Run,Hash,TestPath,CoveredLines,Ignore)
 			SELECT :pRunIndex,map.ToHash,%exact source.TestPath,TestCoverage.BITWISE_OR(
 				TestCoverage.LIST_TO_BIT(%DLIST(
@@ -83,7 +83,7 @@ ClassMethod MapRunCoverage(pRunIndex As %Integer) As %Status
 		// Copy any other metrics captured/requested as well.
 		For i=1:1:tRun.Metrics.Count() {
 			Set tMetric = tRun.Metrics.GetAt(i)
-			Set tSQLStatement = "INSERT OR UPDATE INTO TestCoverage_Data.""Coverage_"_tMetric_""" "_
+			Set tSQLStatement = "INSERT OR UPDATE %NOLOCK %NOCHECK INTO TestCoverage_Data.""Coverage_"_tMetric_""" "_
 				"(Coverage,element_key,"""_tMetric_""") "_
 				"SELECT target.ID,map.ToLine,NVL(oldMetric."""_tMetric_""",0) + metric."""_tMetric_""" "_
 				"FROM TestCoverage_Data.Coverage source "_

cls/TestCoverage/Utils.cls

@@ -134,7 +134,7 @@ ClassMethod AggregateCoverage(pTestIndex As %String) As %Status
 				Throw ##class(%Exception.SQL).CreateFromSQLCODE(SQLCODE,%msg)
 			}
 			&sql(
-				insert into TestCoverage_Data.Coverage (
+				insert %NOLOCK %NOCHECK into TestCoverage_Data.Coverage (
 						Run,TestPath,Hash,Calculated,Ignore,
 						CoveredLines)
 				select :pTestIndex,:tRollupTestPath,Hash,1,0,
@@ -153,7 +153,7 @@ ClassMethod AggregateCoverage(pTestIndex As %String) As %Status
 			// Copy any other metrics captured/requested as well.
 			For i=1:1:tRun.Metrics.Count() {
 				Set tMetric = tRun.Metrics.GetAt(i)
-				Set tSQLStatement = "INSERT INTO TestCoverage_Data.""Coverage_"_tMetric_""" "_
+				Set tSQLStatement = "INSERT %NOLOCK %NOCHECK INTO TestCoverage_Data.""Coverage_"_tMetric_""" "_
 					"(Coverage,element_key,"""_tMetric_""") "_
 					"SELECT target.ID,metric.element_key,SUM(metric."""_tMetric_""") "_
 					"FROM TestCoverage_Data.Coverage source "_
@@ -178,7 +178,7 @@ ClassMethod AggregateCoverage(pTestIndex As %String) As %Status
 
 		// Aggregate by code unit
 		&sql(
-			insert into TestCoverage_Data_Aggregate.ByCodeUnit (
+			insert %NOLOCK %NOCHECK into TestCoverage_Data_Aggregate.ByCodeUnit (
 					Run,
 					CodeUnit,
 					ExecutableLines,
@@ -246,7 +246,7 @@ ClassMethod AggregateCoverage(pTestIndex As %String) As %Status
 
 		// Aggregate for full run
 		&sql(
-			insert into TestCoverage_Data_Aggregate.ByRun
+			insert %NOLOCK %NOCHECK into TestCoverage_Data_Aggregate.ByRun
 				(Run, ExecutableLines ,CoveredLines,
 					ExecutableMethods, CoveredMethods,
 					RtnLine, "Time", TotalTime)