22Class vscode .dc .testingmanager .BaseManager [ Abstract ]
33{
44
5- Property bmMethodMap As %String [ MultiDimensional , Private ];
5+ Property tmMethodMap As %String [ MultiDimensional , Private ];
66
7- Method bmMapOneFile (file As %String ) [ Private ]
7+ Method tmMapOneFile (file As %String ) [ Private ]
88{
9- Kill ..bmMethodMap (file )
9+ Kill ..tmMethodMap (file )
1010 Set tFlags =+..UserParam # 2 * 16 // Bit 0 f UserParam indicates we must get udl-multiline format (since Atelier API v4)
1111 Set tSC =##class (%Atelier.v1.Utils.TextServices ).GetTextAsArray (file ,tFlags ,.tTextArray )
1212 //TODO: use the text array to create a tag-to-linenumber map
@@ -19,10 +19,10 @@ Method bmMapOneFile(file As %String) [ Private ]
1919 While (" {" '[$Get (tTextArray (lineNumber +1 ))) {
2020 Set lineNumber =lineNumber +1
2121 }
22- Set ..bmMethodMap (file ,tag )=lineNumber
22+ Set ..tmMethodMap (file ,tag )=lineNumber
2323 }
2424 // Note linecount as an indicator we've indexed this file, even if we found no methods
25- Set ..bmMethodMap (file )=+$Get (tTextArray (0 ))
25+ Set ..tmMethodMap (file )=+$Get (tTextArray (0 ))
2626}
2727
2828/// Copied from %UnitTest.Manager and enhanced to append location information
@@ -43,9 +43,9 @@ Method LogAssert(success, action, description, extra, location)
4343 Set tag =$Piece (tagOffset ," +" ,1 )
4444 If (tag '=" " ) {
4545 // Create a tag-to-linenumber map for file if we don't have one already
46- If '$Data (..bmMethodMap (file )) Do ..bmMapOneFile (file )
46+ If '$Data (..tmMethodMap (file )) Do ..tmMapOneFile (file )
4747 // Use it to compute what to add to the offset to get an absolute line number
48- Set tagLineNumber =$Get (..bmMethodMap (file ,tag ))
48+ Set tagLineNumber =$Get (..tmMethodMap (file ,tag ))
4949 Set location =" +" _(offset +tagLineNumber )_" ^" _file
5050 }
5151 }
0 commit comments