# HG changeset patch
# User Jan Vrany <jan.vrany@fit.cvut.cz>
# Date 1375097010 -7200
# Node ID cea07153d29c850803a0cde6b716b205a735ff2d
# Parent  9171e507b5235dc9e3dedc50fd16301560fc807c
Builder::ReportSourceInfo>>#setup

Added more sanity checks.

diff -r 9171e507b523 -r cea07153d29c reports/Builder__ReportSourceInfo.st
--- a/reports/Builder__ReportSourceInfo.st	Mon Jul 29 13:22:25 2013 +0200
+++ b/reports/Builder__ReportSourceInfo.st	Mon Jul 29 13:23:30 2013 +0200
@@ -55,7 +55,7 @@
 setup
     "To be called after class is set"
 
-    | stream |
+    | stream sourceF |
 
     stream := LineCountingStream new.
     offsets := Dictionary new.
@@ -66,17 +66,34 @@
         | m |
 
         m := rewriteQuery method.
-        offsets at: m put: stream position + 1.
+        offsets at: m put: stream position - 1.
         rewriteQuery proceed.
     ].
-    lineEnds := stream lineEnds
+    lineEnds := stream lineEnds.
+
+    "/Now, check if all is correct...
+    offsets keysAndValuesDo:[:method :offset |
+        sourceF := method package == klass package 
+                    ifTrue:[(Smalltalk getPackageDirectoryForPackage: klass package) / ((Smalltalk fileNameForClass: klass) , '.st')]
+                    ifFalse:[(Smalltalk getPackageDirectoryForPackage: method package) / 'extensions.st'].                       
+        sourceF readingFileDo:[:sourceS|
+            | source |
+
+            sourceS position: offset.
+            source := sourceS nextChunk.
+"/            self assert: method source = source.
+        ]
+    ].
+
+
+
 
     "
-        SourceInfo for: Builder::ReportRunner
+        ReportSourceInfo for: Builder::ReportRunner
     "
 
     "Created: / 01-03-2013 / 17:30:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 03-03-2013 / 11:09:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 29-07-2013 / 12:20:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ReportSourceInfo methodsFor:'queries'!