RegressionTests__CompilerTests2.st
changeset 900 7acbd0cce153
parent 899 4375bdf77fd2
child 921 cb5e99d58aab
--- a/RegressionTests__CompilerTests2.st	Fri Apr 12 22:00:08 2013 +0200
+++ b/RegressionTests__CompilerTests2.st	Sat Apr 13 10:17:13 2013 +0200
@@ -13,9 +13,11 @@
 !CompilerTests2 methodsFor:'private'!
 
 currentLineNumber
-    ^thisContext sender lineNumber
+    thisContext fixAllLineNumbers.
+    ^thisContext sender lineNumber.
 
     "Created: / 12-04-2013 / 21:20:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 13-04-2013 / 10:12:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 method_lineno_002
@@ -467,15 +469,18 @@
     | m002 m300 l |
 
     m002 := self class >> #method_lineno_002.
-    ParserFlags withSTCCompilation:#always do:[
-        self class compile: 'STC_', m002 source classified: 'private - *dynamic*'
+    ChangeSet withoutUpdatingChangesDo:[
+        ParserFlags withSTCCompilation:#always do:[
+            self class compile: 'STC_', m002 source classified: 'private - *dynamic*'
+        ].
     ].
 
     m300 := self class >> #method_lineno_300.
-    ParserFlags withSTCCompilation:#always do:[
-        self class compile: 'STC_', m300 source classified: 'private - *dynamic*'
+    ChangeSet withoutUpdatingChangesDo:[
+        ParserFlags withSTCCompilation:#always do:[
+            self class compile: 'STC_', m300 source classified: 'private - *dynamic*'
+        ].
     ].
-
     [
         self assert: (l := self STC_method_lineno_002) == 2.
         self assert: (l := self STC_method_lineno_300) == 300.
@@ -486,6 +491,7 @@
     ]
 
     "Created: / 12-04-2013 / 21:50:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 13-04-2013 / 10:13:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !CompilerTests2 class methodsFor:'documentation'!