Mercurial Mercurial > hg > stx-goodies-regression / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
#OTHER by cg
authorClaus Gittinger <cg@exept.de>
Tue, 26 Mar 2019 18:29:38 +0100
changeset 2182 abba80b6780f
parent 2181 41559433e44a
child 2183 d680bb90df4b
#OTHER by cg class: TestCase category of: #setUp #tearDown
RegressionTests__CompilerTests2.st file | annotate | diff | comparison | revisions 
--- a/RegressionTests__CompilerTests2.st	Tue Mar 26 18:29:31 2019 +0100
+++ b/RegressionTests__CompilerTests2.st	Tue Mar 26 18:29:38 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "{ Package: 'stx:goodies/regression' }"
 
 "{ NameSpace: RegressionTests }"
@@ -22,6 +20,52 @@
     "Created: / 11-05-2018 / 13:50:32 / stefan"
 ! !
 
+!CompilerTests2 methodsFor:'initialize / release'!
+
+setUp
+    methods := Set new.
+    enabledJIT := ObjectMemory justInTimeCompilation:true.
+    savedContext := savedContextArgAndVarNames
+    := savedContextArgAndVarValues := savedContextArgAndVarValuesUsingEval
+    := savedContextLine := '* Not assigned *'.
+
+    "Created: / 25-04-2013 / 15:20:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 26-09-2014 / 13:00:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+tearDown
+    savedContext := savedContextArgAndVarNames
+    := savedContextArgAndVarValues := savedContextArgAndVarValuesUsingEval
+    := savedContextLine := nil.
+
+    ObjectMemory justInTimeCompilation: enabledJIT.
+    Class withoutUpdatingChangesDo:[
+	| classesToRemove |
+	(Smalltalk at: #'stx_goodies_regression_testData_CompilerTests2') notNil ifTrue:[
+	    (Smalltalk at: #'stx_goodies_regression_testData_CompilerTests2') classes do:[:e|
+		e notNil ifTrue:[
+		    Smalltalk removeClass: e
+		].
+	    ].
+	].
+	Smalltalk allClassesDo:[:cls|
+	    (#(
+		'stx:goodies/regression/testData/CompilerTests2'
+		"/Add more...
+	    ) includes: cls package) ifTrue:[
+		Smalltalk removeClass: cls
+	    ]
+	].
+
+	methods do:[:m|
+	    m mclass removeSelector: m selector.
+	]
+    ]
+
+    "Created: / 26-10-2012 / 11:32:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 26-09-2014 / 12:59:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !CompilerTests2 methodsFor:'private'!
 
 assertSendersMethodIsIdenticalTo: sendersMethod
@@ -627,52 +671,6 @@
     ^ literal.
 ! !
 
-!CompilerTests2 methodsFor:'setup'!
-
-setUp
-    methods := Set new.
-    enabledJIT := ObjectMemory justInTimeCompilation:true.
-    savedContext := savedContextArgAndVarNames
-    := savedContextArgAndVarValues := savedContextArgAndVarValuesUsingEval
-    := savedContextLine := '* Not assigned *'.
-
-    "Created: / 25-04-2013 / 15:20:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 26-09-2014 / 13:00:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-tearDown
-    savedContext := savedContextArgAndVarNames
-    := savedContextArgAndVarValues := savedContextArgAndVarValuesUsingEval
-    := savedContextLine := nil.
-
-    ObjectMemory justInTimeCompilation: enabledJIT.
-    Class withoutUpdatingChangesDo:[
-	| classesToRemove |
-	(Smalltalk at: #'stx_goodies_regression_testData_CompilerTests2') notNil ifTrue:[
-	    (Smalltalk at: #'stx_goodies_regression_testData_CompilerTests2') classes do:[:e|
-		e notNil ifTrue:[
-		    Smalltalk removeClass: e
-		].
-	    ].
-	].
-	Smalltalk allClassesDo:[:cls|
-	    (#(
-		'stx:goodies/regression/testData/CompilerTests2'
-		"/Add more...
-	    ) includes: cls package) ifTrue:[
-		Smalltalk removeClass: cls
-	    ]
-	].
-
-	methods do:[:m|
-	    m mclass removeSelector: m selector.
-	]
-    ]
-
-    "Created: / 26-10-2012 / 11:32:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 26-09-2014 / 12:59:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
 !CompilerTests2 methodsFor:'tests'!
 
 test_01
hg/stx-goodies-regression