949     "Test nil superclass"

   949     "Test nil superclass"

   950 

   950 

   951     cs := ChangeSet fromStream:'

   951     cs := ChangeSet fromStream:'

   952 "{ NameSpace: RegressionTests }"

   952 "{ NameSpace: RegressionTests }"

   953 

   953 

   956         classVariableNames:''''

   956         classVariableNames:''''

   957         poolDictionaries:''''

   957         poolDictionaries:''''

   958         category:''tests-Regression-System-Changes''      

   958         category:''tests-Regression-System-Changes''      

   959 ' readStream.

   959 ' readStream.

   960 

   960 

   963     self assert: cs anElement isClassDefinitionChange.

   963     self assert: cs anElement isClassDefinitionChange.

   964     self assert: cs anElement changeClass == ChangeSetTests.

   964     self assert: cs anElement changeClass == ChangeSetTests.

   965     self assert: cs anElement delta == #'='

   965     self assert: cs anElement delta == #'='

   966 

   966 

   967     "Created: / 13-11-2013 / 17:41:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"

   967     "Created: / 13-11-2013 / 17:41:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"

   968 !

   969 !

   969 

   970 

   970 test_ClassDefinitionChange_08b

   971 test_ClassDefinitionChange_08b

   971     | cs |

   972     | cs |

   972 

   973