class: RegressionTests::ChangeSetTests
added: #test_ClassDefinitionChange_06a
added test fdr class definition with nil superclass (such as Object)
--- a/RegressionTests__ChangeSetTests.st Thu Jun 06 19:16:10 2013 +0200
+++ b/RegressionTests__ChangeSetTests.st Mon Jun 10 18:09:10 2013 +0200
@@ -496,6 +496,26 @@
self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') name == #'Mocks::MockClass::PrivateClass'.
"Created: / 20-11-2012 / 15:26:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_ClassDefinitionChange_06a
+ | cs |
+
+ "Test nil superclass"
+
+ cs := ChangeSet fromStream:'
+nil subclass:#MockClass
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
+' readStream.
+
+ cs apply.
+
+ self assert: (Smalltalk at: #MockClass) superclass isNil
+
+ "Created: / 10-06-2013 / 16:48:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!ChangeSetTests methodsFor:'tests - MethodDefinitionChange'!