fix: more defensive coding

Don't try to put 0 in a bitstring
intersystems · Sep 24, 2024 · 0f6af11 · 0f6af11
1 parent cae9131
commit 0f6af11
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/cls/TestCoverage/Procedures.cls b/cls/TestCoverage/Procedures.cls
@@ -82,8 +82,8 @@ ClassMethod ListToBit(pSource As %List) As %Binary [ SqlName = LIST_TO_BIT, SqlP
 	Set tResult = ""
 	Set tPointer = 0
 	While $ListNext(pSource,tPointer,tBitPosition) {
-		If $Data(tBitPosition)#2 && (tBitPosition '= "") {
-			Set $Bit(tResult,tBitPosition) = 1
+		If $Data(tBitPosition)#2 && (+tBitPosition > 0) {
+			Set $Bit(tResult,+tBitPosition) = 1
 		}
 	}
 	Quit tResult