Fix source line indicator (>>) printing in report stacktraces jv
authorJan Vrany <jan.vrany@labware.com>
Mon, 29 Jun 2020 22:24:29 +0100
branchjv
changeset 568 172c02e57616
parent 567 8d386d0a4bfb
child 569 67563f72d36b
Fix source line indicator (>>) printing in report stacktraces
reports/Builder__TestReportFormat.st
--- a/reports/Builder__TestReportFormat.st	Mon Jun 15 11:32:39 2020 +0100
+++ b/reports/Builder__TestReportFormat.st	Mon Jun 29 22:24:29 2020 +0100
@@ -108,17 +108,14 @@
 
 writeContext: context on: s
 
-    |home mthd src rcvr vars args argAndVarNames srcFirstLineNr |
+    | home mthd src rcvr srcFirstLineNr |
     [
     context printOn: s.
     s cr.
     s nextPutAll:'receiver: '. context receiver printOn: s. s cr.
     s nextPutAll:'selector: '. context selector storeOn: s. s cr.
 
-    args := context args.
-    vars := context vars.
     rcvr := context receiver.
-    argAndVarNames := context argAndVarNames.
 
     s nextPutAll:'args: '; cr.
     self writeContextArgs: context on: s.
@@ -178,10 +175,14 @@
         last := (srcFirstLineNr + 29) min: src size.
         src := src copyFrom: srcFirstLineNr to: last.
     ].
-    src keysAndValuesDo:[:lNr :line |
+    src keysAndValuesDo:[:i :line |
+        | lineNo |
+
+        lineNo := i + srcFirstLineNr - 1.
+
         s nextPutAll:'  '. 
-        (lNr + srcFirstLineNr - 1) printOn: s leftPaddedTo:4.
-        lNr == context lineNumber ifTrue:[
+        lineNo printOn: s leftPaddedTo:4.
+        lineNo == context lineNumber ifTrue:[
             s nextPutAll:'>> '.
         ] ifFalse:[
             s nextPutAll:'   '.
@@ -215,7 +216,7 @@
 
     "Created: / 03-08-2011 / 14:53:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 15-03-2016 / 14:34:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 15-06-2020 / 11:26:31 / Jan Vrany <jan.vrany@labware.com>"
+    "Modified (format): / 29-06-2020 / 22:20:44 / Jan Vrany <jan.vrany@labware.com>"
 !
 
 writeContextArgs: context on: s