hg/stx-goodies-regression: RegressionTests__ClassBuilderTests.st@bf482d49aeaf (annotated)

1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	1	"{ Package: 'stx:goodies/regression' }"
758 348744be05c4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
348744be05c4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	"{ NameSpace: RegressionTests }"
348744be05c4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
1129 ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	5	ClassAndMethodCompilingTestCase subclass:#ClassBuilderTests
758 348744be05c4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	instanceVariableNames:''
348744be05c4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
348744be05c4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	poolDictionaries:''
1264 0873e4100560 class: RegressionTests::ClassBuilderTests Claus Gittinger <cg@exept.de> parents: 1129 diff changeset	9	category:'tests-Regression-Compilers'
758 348744be05c4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
348744be05c4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
348744be05c4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12
348744be05c4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	!ClassBuilderTests methodsFor:'tests'!
348744be05c4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14
348744be05c4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	test_pools_01
1129 ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	16	"
ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	17	Create a pool and class using that pool.
ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	18	Redefine the class __without__ that pool.
ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	19	Check, whether the pool's really gone.
ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	20	"
ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	21
758 348744be05c4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	\| pool class \|
348744be05c4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23
1129 ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	24	pool := SharedPool subclass: #MockSharedPool1
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	25	instanceVariableNames: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	26	classVariableNames: 'PoolVar1 PoolVar2'
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	27	poolDictionaries: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	28	category: 'System-Compiler-Mocks'.
758 348744be05c4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29
1129 ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	30	class := Object subclass: #MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	31	instanceVariableNames: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	32	classVariableNames: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	33	poolDictionaries: 'MockSharedPool1'
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	34	category: 'System-Compiler-Mocks'.
758 348744be05c4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35
1129 ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	36	self assert: class sharedPoolNames asArray = #(MockSharedPool1).
758 348744be05c4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37
1129 ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	38	class := Object subclass: #MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	39	instanceVariableNames: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	40	classVariableNames: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	41	poolDictionaries: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	42	category: 'System-Compiler-Mocks'.
758 348744be05c4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	43
348744be05c4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	44	self assert: class sharedPoolNames isEmpty.
348744be05c4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	45
1129 ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	46	"Created: / 07-02-2013 / 18:00:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	47	"Modified: / 13-05-2014 / 11:06:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	48	!
758 348744be05c4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	49
1129 ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	50	test_pools_02
ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	51	"
ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	52	Create a pool MockSharedPool1.
ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	53	Create a class MockClassA.
ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	54	Create a class MockClassX and its subclass MockClassY which uses pool MockSharedPool1
ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	55	Change superclass of MockClassX to MockClassA.
ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	56	Check, whether the pool in MockClassY is preserved.
ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	57	"
ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	58
ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	59	\| pool class \|
ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	60
ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	61	pool := SharedPool subclass: #MockSharedPool1
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	62	instanceVariableNames: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	63	classVariableNames: 'PoolVar1 PoolVar2'
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	64	poolDictionaries: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	65	category: '* Mocks *'.
1129 ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	66
ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	67	class := Object subclass: #MockClassA
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	68	instanceVariableNames: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	69	classVariableNames: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	70	poolDictionaries: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	71	category: '* Mocks *'.
758 348744be05c4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	72
1129 ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	73	class := Object subclass: #MockClassX
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	74	instanceVariableNames: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	75	classVariableNames: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	76	poolDictionaries: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	77	category: '* Mocks *'.
1129 ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	78
ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	79	class := (Smalltalk at:#MockClassX) subclass: #MockClassY
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	80	instanceVariableNames: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	81	classVariableNames: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	82	poolDictionaries: 'MockSharedPool1'
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	83	category: '* Mocks *'.
1129 ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	84
ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	85	self assert: (Smalltalk at:#MockClassX) superclass == Object.
ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	86	self assert: (Smalltalk at:#MockClassY) sharedPoolNames asArray = #(MockSharedPool1).
ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	87
ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	88	class := (Smalltalk at:#MockClassA) subclass: #MockClassX
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	89	instanceVariableNames: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	90	classVariableNames: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	91	poolDictionaries: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1264 diff changeset	92	category: '* Mocks *'.
1129 ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	93
ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	94
ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	95	self assert: (Smalltalk at:#MockClassY) superclass == (Smalltalk at:#MockClassX).
ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	96	self assert: (Smalltalk at:#MockClassX) superclass == (Smalltalk at:#MockClassA).
ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	97	self assert: (Smalltalk at:#MockClassY) sharedPoolNames asArray = #(MockSharedPool1).
ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	98
ecf11da75bde Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 872 diff changeset	99	"Created: / 13-05-2014 / 11:26:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
758 348744be05c4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	100	! !
348744be05c4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	101
348744be05c4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	102	!ClassBuilderTests class methodsFor:'documentation'!
348744be05c4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	103
348744be05c4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	104	version
348744be05c4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	105	^ '$Header$'
348744be05c4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	106	!
348744be05c4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	107
348744be05c4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	108	version_CVS
348744be05c4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	109	^ '$Header$'
348744be05c4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	110	! !
348744be05c4 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	111

author	Claus Gittinger <cg@exept.de>
	Tue, 09 Jul 2019 18:53:03 +0200
changeset 2327	bf482d49aeaf
parent 1447	2351db93aa5b
child 1500	d406a10b2965
permissions	-rw-r--r--