#DOCUMENTATION by cg
class: RegressionTests::Win32OLETests
changed: #test00_loadOLE
"{ Package: 'exept:regression' }"
"{ NameSpace: RegressionTests }"
TestCase subclass:#ClassDescriptionTests
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'tests-Regression'
!
!ClassDescriptionTests methodsFor:'tests'!
test_removeInstVarName_01
| pool class |
[
pool := SharedPool subclass: #NewSharedPool1
instanceVariableNames: ''
classVariableNames: 'PoolVar1 PoolVar2'
poolDictionaries: ''
category: 'System-Compiler-Mocks'.
class := Object subclass: #NewClass
instanceVariableNames: 'instVar1'
classVariableNames: ''
poolDictionaries: 'NewSharedPool1'
category: 'System-Compiler-Mocks'.
self assert: (Smalltalk at:#NewClass) instVarNames asArray = #(instVar1).
self assert: (Smalltalk at:#NewClass) sharedPoolNames asArray = #(NewSharedPool1).
class removeInstVarName: #instVar1.
self assert: (Smalltalk at:#NewClass) instVarNames asArray = #().
self assert: (Smalltalk at:#NewClass) sharedPoolNames asArray = #(NewSharedPool1).
] ensure:[
Smalltalk removeClass: (Smalltalk at:#NewSharedPool1); removeClass: (Smalltalk at:#NewClass).
]
"Created: / 10-07-2013 / 14:04:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!ClassDescriptionTests class methodsFor:'documentation'!
version
^ '$Header$'
!
version_CVS
^ '$Header$'
! !