hg/stx-goodies-regression: RegressionTests__ClassDescriptionTests.st@905541b3c402 (annotated)

953 2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'exept:regression' }"
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	"{ NameSpace: RegressionTests }"
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	TestCase subclass:#ClassDescriptionTests
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	instanceVariableNames:''
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	poolDictionaries:''
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	category:'tests-Regression'
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	!ClassDescriptionTests methodsFor:'tests'!
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	test_removeInstVarName_01
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16	\| pool class \|
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	[
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20	pool := SharedPool subclass: #NewSharedPool1
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21	instanceVariableNames: ''
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	classVariableNames: 'PoolVar1 PoolVar2'
1200 905541b3c402 Fixed test (typo, missing # in symbol literal) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 953 diff changeset	23	poolDictionaries: ''
953 2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24	category: 'System-Compiler-Mocks'.
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	class := Object subclass: #NewClass
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	instanceVariableNames: 'instVar1'
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	classVariableNames: ''
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29	poolDictionaries: 'NewSharedPool1'
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30	category: 'System-Compiler-Mocks'.
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32	self assert: (Smalltalk at:#NewClass) instVarNames asArray = #(instVar1).
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33	self assert: (Smalltalk at:#NewClass) sharedPoolNames asArray = #(NewSharedPool1).
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35	class removeInstVarName: #instVar1.
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37	self assert: (Smalltalk at:#NewClass) instVarNames asArray = #().
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	38	self assert: (Smalltalk at:#NewClass) sharedPoolNames asArray = #(NewSharedPool1).
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	39
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	40	] ensure:[
1200 905541b3c402 Fixed test (typo, missing # in symbol literal) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 953 diff changeset	41	Smalltalk removeClass: (Smalltalk at:#NewSharedPool1); removeClass: (Smalltalk at:#NewClass).
953 2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	42	]
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	43
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	44	"Created: / 10-07-2013 / 14:04:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	45	! !
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	46
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	47	!ClassDescriptionTests class methodsFor:'documentation'!
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	48
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	49	version
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	50	^ '$Header$'
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	51	!
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	52
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	53	version_CVS
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	54	^ '$Header$'
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	55	! !
2131363e73b4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	56

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Fri, 19 Sep 2014 18:05:02 +0200
changeset 1200	905541b3c402
parent 953	2131363e73b4
child 1447	2351db93aa5b
child 1499	26a16a04219b
permissions	-rw-r--r--