--- a/RegressionTests__ChangeSetTests.st	Tue Nov 12 22:35:16 2013 +0100
+++ b/RegressionTests__ChangeSetTests.st	Wed Nov 13 18:46:11 2013 +0100
@@ -567,6 +567,145 @@
     self assert: cs anElement changeClass == ExistingPrivateClass.
 
     "Created: / 12-11-2013 / 17:54:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_ClassDefinitionChange_08a
+    | cs |
+
+    "Test nil superclass"
+
+    cs := ChangeSet fromStream:'
+"{ NameSpace: RegressionTests }"
+
+TestCase subclass:#ChangeSetTests
+        instanceVariableNames:''classes''
+        classVariableNames:''''
+        poolDictionaries:''''
+        category:''tests-Regression-System-Changes''      
+' readStream.
+
+
+    self assert: cs size == 1.
+    self assert: cs anElement isClassDefinitionChange.
+    self assert: cs anElement changeClass == ChangeSetTests.
+    self assert: cs anElement delta == #'='
+
+    "Created: / 13-11-2013 / 17:41:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_ClassDefinitionChange_08b
+    | cs |
+
+    "Test nil superclass"
+
+    cs := ChangeSet fromStream:'
+"{ NameSpace: RegressionTests }"
+
+TestCase subclass:#ChangeSetTests
+        instanceVariableNames:''classes someMoreData''
+        classVariableNames:''''
+        poolDictionaries:''''
+        category:''tests-Regression-System-Changes''      
+' readStream.
+
+
+    self assert: cs size == 1.
+    self assert: cs anElement isClassDefinitionChange.
+    self assert: cs anElement delta == #'~'
+
+    "Created: / 13-11-2013 / 17:43:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_ClassDefinitionChange_08c
+    | cs |
+
+    "Test nil superclass"
+
+    cs := ChangeSet fromStream:'
+"{ NameSpace: RegressionTests }"
+
+Object subclass:#ExistingPrivateClass
+        instanceVariableNames:''''
+        classVariableNames:''''
+        poolDictionaries:''''
+        privateIn:ChangeSetTests     
+' readStream.
+
+
+    self assert: cs size == 1.
+    self assert: cs anElement isClassDefinitionChange.
+    self assert: cs anElement delta == #'='
+
+    "Created: / 13-11-2013 / 17:44:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_ClassDefinitionChange_08d
+    | cs |
+
+    "Test nil superclass"
+
+    cs := ChangeSet fromStream:'
+"{ NameSpace: RegressionTests }"
+
+Object subclass:#ExistingPrivateClass
+        instanceVariableNames:''''
+        classVariableNames:''''
+        poolDictionaries:''somePool''
+        privateIn:ChangeSetTests     
+' readStream.
+
+
+    self assert: cs size == 1.
+    self assert: cs anElement isClassDefinitionChange.
+    self assert: cs anElement delta == #'~'
+
+    "Created: / 13-11-2013 / 17:44:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_ClassDefinitionChange_08e
+    | cs |
+
+    "Test nil superclass"
+
+    cs := ChangeSet fromStream:'
+"{ NameSpace: RegressionTests }"
+
+TestCase subclass:#ChangeSetTests2
+        instanceVariableNames:''classes someMoreData''
+        classVariableNames:''''
+        poolDictionaries:''''
+        category:''tests-Regression-System-Changes''      
+' readStream.
+
+
+    self assert: cs size == 1.
+    self assert: cs anElement isClassDefinitionChange.
+    self assert: cs anElement delta == #'+'
+
+    "Created: / 13-11-2013 / 17:44:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_ClassDefinitionChange_08f
+    | cs |
+
+    "Test nil superclass"
+
+    cs := ChangeSet fromStream:'
+"{ NameSpace: RegressionTests }"
+
+Object subclass:#ExistingPrivateClass2
+        instanceVariableNames:''''
+        classVariableNames:''''
+        poolDictionaries:''''
+        privateIn:ChangeSetTests     
+' readStream.
+
+
+    self assert: cs size == 1.
+    self assert: cs anElement isClassDefinitionChange.
+    self assert: cs anElement delta == #'+'
+
+    "Created: / 13-11-2013 / 17:44:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ChangeSetTests methodsFor:'tests - MethodDefinitionChange'!