--- a/RegressionTests__ChangeSetTests.st	Tue May 13 12:28:52 2014 +0200
+++ b/RegressionTests__ChangeSetTests.st	Tue May 13 12:31:27 2014 +0200
@@ -4,8 +4,8 @@
 
 "{ NameSpace: RegressionTests }"
 
-TestCase subclass:#ChangeSetTests
-	instanceVariableNames:'classes'
+ClassAndMethodCompilingTestCase subclass:#ChangeSetTests
+	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
 	category:'tests-Regression-System-Changes'
@@ -26,17 +26,6 @@
 !
 
 
-!ChangeSetTests methodsFor:'change & update'!
-
-update: aspect with: param from: sender
-
-    aspect == #newClass ifTrue:[
-        classes add: param.
-    ].
-
-    "Created: / 20-11-2012 / 14:47:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
 !ChangeSetTests methodsFor:'private'!
 
 performTest
@@ -47,40 +36,6 @@
     "Created: / 20-11-2012 / 15:08:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-!ChangeSetTests methodsFor:'running'!
-
-setUp
-    Smalltalk addDependent: self.
-    classes := Set new.
-
-    "Created: / 20-11-2012 / 14:46:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-tearDown
-    | ns |
-
-    Smalltalk removeDependent: self.
-    classes do:[:each|
-        (each fullName startsWith: 'Mock') ifTrue:[
-            | clsVarSym |
-            Smalltalk removeClass: each.
-            clsVarSym := (each fullName , ':MockVar') asSymbolIfInterned.
-            (clsVarSym notNil and:[ Smalltalk includesKey: clsVarSym]) ifTrue:[ 
-                Smalltalk at: clsVarSym put: nil.
-            ].
-        ].
-    ].
-
-    #(Mocks Mocks2 Mocks3) do:[:nsName|
-        (ns := Smalltalk at:nsName) notNil ifTrue:[
-            Smalltalk removeClass: ns
-        ].
-    ].
-
-    "Created: / 20-11-2012 / 14:46:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 21-03-2014 / 18:29:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
 !ChangeSetTests methodsFor:'tests - ChangeSet'!
 
 test_saveToStream_format_nil_01