--- a/RegressionTests__ChangeSetTests.st Wed Oct 30 21:06:17 2013 +0100
+++ b/RegressionTests__ChangeSetTests.st Tue Nov 12 22:35:16 2013 +0100
@@ -11,6 +11,13 @@
category:'tests-Regression-System-Changes'
!
+Object subclass:#ExistingPrivateClass
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:ChangeSetTests
+!
+
!ChangeSetTests methodsFor:'change & update'!
@@ -516,6 +523,50 @@
self assert: (Smalltalk at: #MockClass) superclass isNil
"Created: / 10-06-2013 / 16:48:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_ClassDefinitionChange_07a
+ | cs |
+
+ "Test nil superclass"
+
+ cs := ChangeSet fromStream:'
+Object subclass:#ExistingPrivateClass
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ privateIn:RegressionTests::ChangeSetTests
+' readStream.
+
+
+ self assert: cs size == 1.
+ self assert: cs anElement isClassDefinitionChange.
+ self assert: cs anElement changeClass == ExistingPrivateClass.
+
+ "Created: / 12-11-2013 / 17:53:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_ClassDefinitionChange_07b
+ | 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 changeClass == ExistingPrivateClass.
+
+ "Created: / 12-11-2013 / 17:54:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!ChangeSetTests methodsFor:'tests - MethodDefinitionChange'!