diff -r 7eeef810d524 -r 72b27d83338f RegressionTests__ChangeSetTests.st --- 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 " +! + +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 " ! ! !ChangeSetTests methodsFor:'tests - MethodDefinitionChange'!