570 !

   571 

   572 test_ClassDefinitionChange_08a

   573     | cs |

   574 

   575     "Test nil superclass"

   576 

   577     cs := ChangeSet fromStream:'

   578 "{ NameSpace: RegressionTests }"

   579 

   580 TestCase subclass:#ChangeSetTests

   581         instanceVariableNames:''classes''

   582         classVariableNames:''''

   583         poolDictionaries:''''

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

   585 ' readStream.

   586 

   587 

   588     self assert: cs size == 1.

   589     self assert: cs anElement isClassDefinitionChange.

   590     self assert: cs anElement changeClass == ChangeSetTests.

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

   592 

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

   594 !

   595 

   596 test_ClassDefinitionChange_08b

   597     | cs |

   598 

   599     "Test nil superclass"

   600 

   601     cs := ChangeSet fromStream:'

   602 "{ NameSpace: RegressionTests }"

   603 

   604 TestCase subclass:#ChangeSetTests

   605         instanceVariableNames:''classes someMoreData''

   606         classVariableNames:''''

   607         poolDictionaries:''''

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

   609 ' readStream.

   610 

   611 

   612     self assert: cs size == 1.

   613     self assert: cs anElement isClassDefinitionChange.

   614     self assert: cs anElement delta == #'~'

   615 

   616     "Created: / 13-11-2013 / 17:43:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"

   617 !

   618 

   619 test_ClassDefinitionChange_08c

   620     | cs |

   621 

   622     "Test nil superclass"

   623 

   624     cs := ChangeSet fromStream:'

   625 "{ NameSpace: RegressionTests }"

   626 

   627 Object subclass:#ExistingPrivateClass

   628         instanceVariableNames:''''

   629         classVariableNames:''''

   630         poolDictionaries:''''

   631         privateIn:ChangeSetTests     

   632 ' readStream.

   633 

   634 

   635     self assert: cs size == 1.

   636     self assert: cs anElement isClassDefinitionChange.

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

   638 

   639     "Created: / 13-11-2013 / 17:44:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"

   640 !

   641 

   642 test_ClassDefinitionChange_08d

   643     | cs |

   644 

   645     "Test nil superclass"

   646 

   647     cs := ChangeSet fromStream:'

   648 "{ NameSpace: RegressionTests }"

   649 

   650 Object subclass:#ExistingPrivateClass

   651         instanceVariableNames:''''

   652         classVariableNames:''''

   653         poolDictionaries:''somePool''

   654         privateIn:ChangeSetTests     

   655 ' readStream.

   656 

   657 

   658     self assert: cs size == 1.

   659     self assert: cs anElement isClassDefinitionChange.

   660     self assert: cs anElement delta == #'~'

   661 

   662     "Created: / 13-11-2013 / 17:44:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"

   663 !

   664 

   665 test_ClassDefinitionChange_08e

   666     | cs |

   667 

   668     "Test nil superclass"

   669 

   670     cs := ChangeSet fromStream:'

   671 "{ NameSpace: RegressionTests }"

   672 

   673 TestCase subclass:#ChangeSetTests2

   674         instanceVariableNames:''classes someMoreData''

   675         classVariableNames:''''

   676         poolDictionaries:''''

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

   678 ' readStream.

   679 

   680 

   681     self assert: cs size == 1.

   682     self assert: cs anElement isClassDefinitionChange.

   683     self assert: cs anElement delta == #'+'

   684 

   685     "Created: / 13-11-2013 / 17:44:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"

   686 !

   687 

   688 test_ClassDefinitionChange_08f

   689     | cs |

   690 

   691     "Test nil superclass"

   692 

   693     cs := ChangeSet fromStream:'

   694 "{ NameSpace: RegressionTests }"

   695 

   696 Object subclass:#ExistingPrivateClass2

   697         instanceVariableNames:''''

   698         classVariableNames:''''

   699         poolDictionaries:''''

   700         privateIn:ChangeSetTests     

   701 ' readStream.

   702 

   703 

   704     self assert: cs size == 1.

   705     self assert: cs anElement isClassDefinitionChange.

   706     self assert: cs anElement delta == #'+'

   707 

   708     "Created: / 13-11-2013 / 17:44:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"