"{ Package: 'jn:refactoring_custom' }"

TestCase subclass:#CustomRBClassTests

	instanceVariableNames:'rbClass mock model'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Refactoring-Custom-Tests'

!

!CustomRBClassTests class methodsFor:'documentation'!

documentation

"

    Test extensions in RBAbstractClass.

    [author:]

        Jakub Nesveda <nesvejak@fit.cvut.cz>

"

! !

!CustomRBClassTests methodsFor:'initialization & release'!

setUp

    mock := CustomMock new.

    model := RBNamespace new.

    rbClass := mock mockOf: RBClass.

    rbClass model: model.

    "Created: / 30-09-2014 / 19:36:05 / Jakub Nesveda <nesvejak@fit.cvut.cz>"

    "Modified: / 05-10-2014 / 00:27:06 / Jakub Nesveda <nesvejak@fit.cvut.cz>"

!

tearDown

    mock unmockAll

    "Created: / 30-09-2014 / 19:44:27 / Jakub Nesveda <nesvejak@fit.cvut.cz>"

! !

!CustomRBClassTests methodsFor:'tests'!

test_compile_for_class

    | lastChange savedRbClass |

    rbClass

        name: #SomeClass;

        superclassName: #Object;

        instVarNames: #('inst1' 'inst2');

        classVariableNames: #('Cls1');

        poolDictionaryNames: (Array with: 'poolDict1');

        category: 'Some-Test-Category';

        compile.  

    model changes do: [ :change |

        lastChange := change

    ].

    savedRbClass := model classNamed: #SomeClass.

    self assert: (lastChange isKindOf: AddClassChange).  

    self assert: (lastChange changeClassName) = #SomeClass.  

    self assert: (lastChange category) = 'Some-Test-Category'.  

    self assert: (lastChange classVariableNames) = (OrderedCollection newFrom: #('Cls1')).  

    self assert: (lastChange instanceVariableNames) = (OrderedCollection newFrom: #('inst1' 'inst2')).  

    self assert: (lastChange poolDictionaryNames) = (OrderedCollection newFrom: #('poolDict1')).  

    self assert: (lastChange superclassName) = #Object.  

    self assert: (savedRbClass isKindOf: RBClass).  

    self assert: (savedRbClass name) = #SomeClass.  

    self assert: (savedRbClass category) = 'Some-Test-Category'.  

    self assert: (savedRbClass classVariableNames) = (OrderedCollection newFrom: #('Cls1')).  

    self assert: (savedRbClass instanceVariableNames) = (OrderedCollection newFrom: #('inst1' 'inst2')).  

    self assert: (savedRbClass poolDictionaryNames) = (OrderedCollection newFrom: #('poolDict1')).  

    self assert: (savedRbClass superclass name) = #Object.

    "Created: / 05-10-2014 / 00:27:50 / Jakub Nesveda <nesvejak@fit.cvut.cz>"

    "Modified: / 05-10-2014 / 12:09:04 / Jakub Nesveda <nesvejak@fit.cvut.cz>"

! !