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

866 30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	1	"{ Encoding: utf8 }"
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	3	"{ Package: 'stx:goodies/regression' }"
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	"{ NameSpace: RegressionTests }"
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6
1128 361088bf132d Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1111 diff changeset	7	ClassAndMethodCompilingTestCase subclass:#ChangeSetTests
361088bf132d Added abstract class for tests creating and compiling code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1111 diff changeset	8	instanceVariableNames:''
926 7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	9	classVariableNames:''
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	10	poolDictionaries:''
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	11	category:'tests-Regression-System-Changes'
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12	!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13
1006 9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	14	Object subclass:#ExistingPrivateClass
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	15	instanceVariableNames:''
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	16	classVariableNames:''
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	17	poolDictionaries:''
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	18	privateIn:ChangeSetTests
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	19	!
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	20
1105 1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	21	ReadWriteStream subclass:#NonPositionableReadWriteStream
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	22	instanceVariableNames:''
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	23	classVariableNames:''
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	24	poolDictionaries:''
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	25	privateIn:ChangeSetTests
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	26	!
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	27
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29	!ChangeSetTests methodsFor:'private'!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31	performTest
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32	^Class withoutUpdatingChangesDo:[
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	33	super performTest
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34	]
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36	"Created: / 20-11-2012 / 15:08:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37	! !
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	38
1042 3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	39	!ChangeSetTests methodsFor:'tests - ChangeSet'!
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	40
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	41	test_saveToStream_format_nil_01
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	42	\| cs output chunks \|
1042 3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	43
1146 1b087b0bf7e1 Fixed test RegressionTests::ChangeSetTests>>#test_saveToStream_format_nil_01 (bug was in the test, actually) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1128 diff changeset	44	cs := ChangeSet forExistingClass: self class.
1b087b0bf7e1 Fixed test RegressionTests::ChangeSetTests>>#test_saveToStream_format_nil_01 (bug was in the test, actually) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1128 diff changeset	45	cs := cs select:[:each \| each isMethodChange and:[ each selector = testSelector ]].
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	46	output := (String streamContents:[ :s \| cs saveToStream: s format: nil ]) readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	47	chunks := OrderedCollection streamContents:[ :s \|
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	48	[ output atEnd ] whileFalse:[
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	49	s nextPut: output nextChunk.
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	50	].
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	51	].
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	52
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	53	self assert: chunks size == 6.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	54
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	55	self assert: (chunks at: 1) = ('"{ NameSpace: RegressionTests }"', Character cr, Character cr).
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	56	self assert: (chunks at: 2) = ''.
1146 1b087b0bf7e1 Fixed test RegressionTests::ChangeSetTests>>#test_saveToStream_format_nil_01 (bug was in the test, actually) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1128 diff changeset	57	self assert: (chunks at: 3) = ('ChangeSetTests methodsFor: ''%1''' bindWith: (self class compiledMethodAt: testSelector) category).
1b087b0bf7e1 Fixed test RegressionTests::ChangeSetTests>>#test_saveToStream_format_nil_01 (bug was in the test, actually) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1128 diff changeset	58	self assert: (chunks at: 4) = (self class compiledMethodAt: testSelector) source.
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	59	self assert: (chunks at: 5) = ''.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	60	self assert: (chunks at: 6) = ''.
1042 3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	61
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	62	"Created: / 04-02-2014 / 11:51:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1146 1b087b0bf7e1 Fixed test RegressionTests::ChangeSetTests>>#test_saveToStream_format_nil_01 (bug was in the test, actually) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1128 diff changeset	63	"Modified: / 24-06-2014 / 16:42:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1042 3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	64	!
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	65
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	66	test_saveToStream_format_nil_02
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	67	\| cs output chunks \|
1042 3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	68
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	69	cs := ChangeSet forExistingClass: ChangeSetTests::ExistingPrivateClass.
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	70	cs := cs select:[:each \| each isMethodChange and:[ each selector = #foo ]].
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	71	output := (String streamContents:[ :s \| cs saveToStream: s format: nil ]) readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	72	chunks := OrderedCollection streamContents:[ :s \|
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	73	[ output atEnd ] whileFalse:[
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	74	s nextPut: output nextChunk.
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	75	].
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	76	].
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	77
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	78	self assert: chunks size == 6.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	79
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	80	self assert: (chunks at: 1) = ('"{ NameSpace: RegressionTests }"', Character cr, Character cr).
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	81	self assert: (chunks at: 2) = ''.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	82	self assert: (chunks at: 3) = 'ChangeSetTests::ExistingPrivateClass methodsFor: ''methods'''.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	83	self assert: (chunks at: 4) = (ChangeSetTests::ExistingPrivateClass compiledMethodAt: #foo) source.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	84	self assert: (chunks at: 5) = ''.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	85	self assert: (chunks at: 6) = ''.
1042 3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	86
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	87	"Created: / 04-02-2014 / 12:08:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	88	"Modified: / 06-03-2014 / 12:45:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1042 3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	89	! !
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	90
924 f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	91	!ChangeSetTests methodsFor:'tests - ChangeSet::ClassSourceWriter'!
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	92
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	93	test_ClassSourceWriter_01
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	94	\| sourceFileout cs sourceChangeset\|
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	95
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	96	sourceFileout := String streamContents:[:s\|
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	97	AbstractSourceCodeManager fileOutSourceCodeOf:ChangeSet on:s
924 f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	98	].
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	99
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	100	cs := ChangeSet fromStream: sourceFileout readStream.
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	101
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	102	sourceChangeset := String streamContents:[:s\|
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	103	cs saveToStream:s format:#classSource
924 f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	104	].
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	105	self assert: sourceFileout asByteArray = sourceChangeset asByteArray.
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	106	"
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	107	Tools::TextDiff2Tool openOn: sourceFileout label: 'sourceFileout' and: sourceChangeset label: 'sourceChangeset'
925 d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	108	'/tmp/sourceFileout.st' asFilename writingFileDo:[:s\|s binary; nextPutAll: sourceFileout asByteArray].
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	109	'/tmp/sourceChangeset.st' asFilename writingFileDo:[:s\|s binary; nextPutAll: sourceChangeset asByteArray].
924 f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	110	"
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	111
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	112	"Created: / 30-04-2013 / 11:28:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
925 d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	113	"Modified (comment): / 01-05-2013 / 08:55:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
924 f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	114	!
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	115
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	116	test_ClassSourceWriter_02
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	117	\| sourceFileout cs sourceChangeset\|
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	118
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	119	sourceFileout := String streamContents:[:s\|
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	120	AbstractSourceCodeManager fileOutSourceCodeOf:Tools::HierarchicalPackageFilterList on:s
924 f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	121	].
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	122
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	123	cs := ChangeSet fromStream: sourceFileout readStream.
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	124
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	125	sourceChangeset := String streamContents:[:s\|
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	126	cs saveToStream:s format:#classSource
924 f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	127	].
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	128	self assert: sourceFileout asByteArray = sourceChangeset asByteArray.
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	129	"
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	130	Tools::TextDiff2Tool openOn: sourceFileout label: 'sourceFileout' and: sourceChangeset label: 'sourceChangeset'
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	131	"
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	132
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	133	"Created: / 30-04-2013 / 11:35:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	134	! !
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	135
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	136	!ChangeSetTests methodsFor:'tests - ClassDefinitionChange'!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	137
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	138	test_ClassDefinitionChange_01
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	139
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	140	\| cs \|
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	141
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	142	cs := ChangeSet fromStream:'
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	143	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	144	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	145	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	146	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	147	category:''tests-Regression-Mocks''
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	148	' readStream.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	149
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	150	self assert: cs size == 1.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	151	self assert: cs first className = 'MockClass'.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	152	self assert: (Smalltalk at: #MockClass) isNil.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	153	cs apply.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	154	self assert: (Smalltalk at: #MockClass) notNil.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	155
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	156	"Created: / 20-11-2012 / 14:23:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	157	!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	158
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	159	test_ClassDefinitionChange_01_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	160
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	161	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	162
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	163	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	164	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	165	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	166	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	167	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	168	category:''tests-Regression-Mocks''
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	169	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	170
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	171
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	172
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	173	self assert: (Smalltalk at: #MockClass) isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	174	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	175	self assert: (Smalltalk at: #MockClass) notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	176
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	177	"Created: / 20-11-2012 / 14:23:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	178	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	179
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	180	test_ClassDefinitionChange_02
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	181
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	182	\| cs \|
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	183
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	184	cs := ChangeSet fromStream:'
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	185	"{ NameSpace: Mocks }"
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	186
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	187	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	188	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	189	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	190	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	191	category:''tests-Regression-Mocks''
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	192	' readStream.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	193
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	194	self assert: cs size == 1.
912 8705b4ee9a6f class: RegressionTests::ChangeSetTests Claus Gittinger <cg@exept.de> parents: 866 diff changeset	195	self assert: cs first className = 'MockClass'.
8705b4ee9a6f class: RegressionTests::ChangeSetTests Claus Gittinger <cg@exept.de> parents: 866 diff changeset	196	self assert: cs first fullClassName = 'Mocks::MockClass'.
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	197	self assert: cs first nameSpaceName = 'Mocks'.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	198	self assert: (Smalltalk at: #'Mocks::MockClass') isNil.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	199	cs apply.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	200	self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	201
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	202	"Created: / 20-11-2012 / 14:50:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	203	!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	204
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	205	test_ClassDefinitionChange_02_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	206
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	207	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	208
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	209	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	210	"{ NameSpace: Mocks }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	211
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	212	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	213	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	214	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	215	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	216	category:''tests-Regression-Mocks''
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	217	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	218
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	219
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	220
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	221
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	222
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	223	self assert: (Smalltalk at: #'Mocks::MockClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	224	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	225	self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	226
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	227	"Created: / 20-11-2012 / 14:50:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	228	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	229
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	230	test_ClassDefinitionChange_03a
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	231
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	232	\| cs \|
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	233
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	234	cs := ChangeSet fromStream:'
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	235	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	236	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	237	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	238	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	239	category:''tests-Regression-Mocks''
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	240
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	241	!!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	242
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	243	Object subclass:#PrivateClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	244	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	245	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	246	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	247	privateIn:MockClass
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	248
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	249	' readStream.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	250
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	251	self assert: cs size == 2.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	252	self assert: cs first className = 'MockClass'.
927 d0826769b96a class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 926 diff changeset	253	self assert: cs first fullClassName = 'MockClass'.
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	254	self assert: cs second className = 'MockClass::PrivateClass'.
927 d0826769b96a class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 926 diff changeset	255	self assert: cs second fullClassName = 'MockClass::PrivateClass'.
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	256	self assert: (Smalltalk at: #'MockClass') isNil.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	257	cs apply.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	258	self assert: (Smalltalk at: #'MockClass') notNil.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	259	self assert: (Smalltalk at: #'MockClass::PrivateClass') notNil.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	260	self assert: (Smalltalk at: #'MockClass::PrivateClass') name == #'MockClass::PrivateClass'.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	261	self assert: (Smalltalk at: #'MockClass::PrivateClass') isPrivate
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	262
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	263	"Created: / 20-11-2012 / 14:54:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
927 d0826769b96a class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 926 diff changeset	264	"Modified: / 09-05-2013 / 14:41:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	265	!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	266
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	267	test_ClassDefinitionChange_03a_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	268
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	269	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	270
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	271	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	272	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	273	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	274	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	275	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	276	category:''tests-Regression-Mocks''
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	277
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	278	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	279
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	280	Object subclass:#PrivateClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	281	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	282	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	283	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	284	privateIn:MockClass
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	285
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	286	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	287
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	288
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	289
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	290
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	291
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	292
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	293	self assert: (Smalltalk at: #'MockClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	294	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	295	self assert: (Smalltalk at: #'MockClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	296	self assert: (Smalltalk at: #'MockClass::PrivateClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	297	self assert: (Smalltalk at: #'MockClass::PrivateClass') name == #'MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	298	self assert: (Smalltalk at: #'MockClass::PrivateClass') isPrivate
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	299
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	300	"Created: / 20-11-2012 / 14:54:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	301	"Modified: / 09-05-2013 / 14:41:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	302	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	303
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	304	test_ClassDefinitionChange_03b
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	305
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	306	\| cs \|
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	307
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	308	cs := ChangeSet fromStream:'
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	309	"{ NameSpace: Mocks }"
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	310
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	311	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	312	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	313	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	314	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	315	category:''tests-Regression-Mocks''
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	316
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	317	!!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	318
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	319	Object subclass:#PrivateClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	320	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	321	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	322	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	323	privateIn:MockClass
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	324
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	325	' readStream.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	326
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	327	self assert: cs size == 2.
912 8705b4ee9a6f class: RegressionTests::ChangeSetTests Claus Gittinger <cg@exept.de> parents: 866 diff changeset	328	self assert: cs first className = 'MockClass'.
8705b4ee9a6f class: RegressionTests::ChangeSetTests Claus Gittinger <cg@exept.de> parents: 866 diff changeset	329	self assert: cs first fullClassName = 'Mocks::MockClass'.
8705b4ee9a6f class: RegressionTests::ChangeSetTests Claus Gittinger <cg@exept.de> parents: 866 diff changeset	330	self assert: cs second className = 'MockClass::PrivateClass'.
8705b4ee9a6f class: RegressionTests::ChangeSetTests Claus Gittinger <cg@exept.de> parents: 866 diff changeset	331	self assert: cs second fullClassName = 'Mocks::MockClass::PrivateClass'.
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	332	self assert: cs second nameSpaceName = 'Mocks'.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	333	self assert: (Smalltalk at: #'Mocks::MockClass') isNil.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	334	cs apply.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	335	self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	336	self assert: (Smalltalk at: #'Mocks::MockClass') isPrivate not.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	337	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') notNil.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	338	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') name == #'Mocks::MockClass::PrivateClass'.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	339	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') isPrivate
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	340
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	341	"Created: / 20-11-2012 / 15:04:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	342	!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	343
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	344	test_ClassDefinitionChange_03b_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	345
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	346	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	347
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	348	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	349	"{ NameSpace: Mocks }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	350
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	351	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	352	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	353	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	354	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	355	category:''tests-Regression-Mocks''
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	356
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	357	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	358
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	359	Object subclass:#PrivateClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	360	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	361	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	362	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	363	privateIn:MockClass
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	364
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	365	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	366
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	367
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	368
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	369
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	370
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	371
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	372
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	373	self assert: (Smalltalk at: #'Mocks::MockClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	374	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	375	self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	376	self assert: (Smalltalk at: #'Mocks::MockClass') isPrivate not.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	377	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	378	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') name == #'Mocks::MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	379	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') isPrivate
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	380
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	381	"Created: / 20-11-2012 / 15:04:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	382	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	383
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	384	test_ClassDefinitionChange_04a
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	385
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	386	\| cs \|
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	387
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	388	cs := ChangeSet fromStream:'
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	389	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	390	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	391	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	392	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	393	category:''tests-Regression-Mocks''
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	394	' readStream.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	395
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	396	Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	397	cs apply.
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	398	].
1042 3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	399	"Responding to a nameSpaceQuerySignal should no longer affect change's namespace.
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	400	Use #nameSpaceOverride: or #applyWithNameSpaceOverride: to apply a change in given
1042 3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	401	namespace "
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	402
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	403	self assert: (Smalltalk at: #'MockClass') notNil.
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	404	self assert: (Smalltalk at: #'MockClass') name == #'MockClass'.
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	405	self assert: (Smalltalk at: #'Mocks::MockClass') isNil
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	406
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	407	"Created: / 20-11-2012 / 15:08:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1042 3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	408	"Modified: / 04-02-2014 / 20:10:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	409	!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	410
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	411	test_ClassDefinitionChange_04a_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	412
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	413	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	414
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	415	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	416	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	417	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	418	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	419	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	420	category:''tests-Regression-Mocks''
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	421	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	422
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	423	Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	424	changefile readStream fileIn.
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	425	].
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	426	"Responding to a nameSpaceQuerySignal should no longer affect change's namespace.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	427	Use #nameSpaceOverride: or #applyWithNameSpaceOverride: to apply a change in given
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	428	namespace "
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	429
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	430	self assert: (Smalltalk at: #'MockClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	431	self assert: (Smalltalk at: #'MockClass') name == #'MockClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	432	self assert: (Smalltalk at: #'Mocks::MockClass') isNil
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	433
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	434	"Created: / 20-11-2012 / 15:08:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	435	"Modified: / 04-02-2014 / 20:10:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	436	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	437
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	438	test_ClassDefinitionChange_04b
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	439
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	440	\| cs \|
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	441
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	442	cs := ChangeSet fromStream:'
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	443	"{ NameSpace: Mocks2 }"
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	444
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	445	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	446	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	447	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	448	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	449	category:''tests-Regression-Mocks''
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	450	' readStream.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	451
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	452	Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	453	cs apply.
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	454	].
1042 3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	455	"Responding to a nameSpaceQuerySignal should no longer affect change's namespace.
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	456	Use #nameSpaceOverride: or #applyWithNameSpaceOverride: to apply a change in given
1042 3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	457	namespace "
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	458
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	459	self assert: (Smalltalk at: #'Mocks2::MockClass') notNil.
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	460	self assert: (Smalltalk at: #'Mocks2::MockClass') name == #'Mocks2::MockClass'.
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	461	self assert: (Smalltalk at: #'Mocks::MockClass') isNil.
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	462
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	463	"Created: / 20-11-2012 / 15:14:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1042 3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	464	"Modified: / 04-02-2014 / 20:09:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	465	!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	466
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	467	test_ClassDefinitionChange_04b_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	468
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	469	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	470
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	471	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	472	"{ NameSpace: Mocks2 }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	473
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	474	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	475	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	476	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	477	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	478	category:''tests-Regression-Mocks''
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	479	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	480
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	481	Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	482	changefile readStream fileIn.
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	483	].
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	484	"Responding to a nameSpaceQuerySignal should no longer affect change's namespace.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	485	Use #nameSpaceOverride: or #applyWithNameSpaceOverride: to apply a change in given
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	486	namespace "
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	487
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	488	self assert: (Smalltalk at: #'Mocks2::MockClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	489	self assert: (Smalltalk at: #'Mocks2::MockClass') name == #'Mocks2::MockClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	490	self assert: (Smalltalk at: #'Mocks::MockClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	491
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	492	"Created: / 20-11-2012 / 15:14:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	493	"Modified: / 04-02-2014 / 20:09:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	494	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	495
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	496	test_ClassDefinitionChange_04c
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	497
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	498	\| cs \|
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	499
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	500	cs := ChangeSet fromStream:'
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	501	"{ NameSpace: Mocks }"
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	502
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	503	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	504	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	505	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	506	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	507	category:''tests-Regression-Mocks''
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	508	' readStream.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	509
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	510	Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	511	cs apply.
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	512	].
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	513	self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	514	self assert: (Smalltalk at: #'Mocks::MockClass') name == #'Mocks::MockClass'.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	515
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	516	"Created: / 20-11-2012 / 15:16:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	517	!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	518
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	519	test_ClassDefinitionChange_04c_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	520
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	521	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	522
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	523	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	524	"{ NameSpace: Mocks }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	525
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	526	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	527	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	528	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	529	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	530	category:''tests-Regression-Mocks''
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	531	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	532
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	533	Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	534	changefile readStream fileIn.
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	535	].
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	536	self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	537	self assert: (Smalltalk at: #'Mocks::MockClass') name == #'Mocks::MockClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	538
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	539	"Created: / 20-11-2012 / 15:16:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	540	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	541
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	542	test_ClassDefinitionChange_04d
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	543
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	544	\| cs \|
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	545
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	546	cs := ChangeSet fromStream:'
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	547	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	548	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	549	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	550	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	551	category:''tests-Regression-Mocks''
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	552	' readStream.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	553
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	554	cs first nameSpaceOverride: (NameSpace name: #Mocks).
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	555	cs apply.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	556
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	557	self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	558	self assert: (Smalltalk at: #'Mocks::MockClass') name == #'Mocks::MockClass'.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	559
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	560	"Created: / 20-11-2012 / 15:21:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	561	!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	562
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	563	test_ClassDefinitionChange_04e
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	564
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	565	\| cs \|
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	566
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	567	cs := ChangeSet fromStream:'
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	568	"{ NameSpace: Mocks2 }"
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	569
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	570	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	571	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	572	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	573	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	574	category:''tests-Regression-Mocks''
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	575	' readStream.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	576
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	577	cs first nameSpaceOverride: (NameSpace name: #Mocks).
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	578	cs apply.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	579
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	580	self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	581	self assert: (Smalltalk at: #'Mocks::MockClass') name == #'Mocks::MockClass'.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	582
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	583	"Created: / 20-11-2012 / 15:22:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	584	!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	585
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	586	test_ClassDefinitionChange_05a
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	587
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	588	\| cs \|
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	589
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	590	cs := ChangeSet fromStream:'
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	591	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	592	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	593	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	594	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	595	category:''tests-Regression-Mocks''
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	596	!!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	597
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	598	Object subclass:#PrivateClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	599	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	600	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	601	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	602	privateIn:MockClass
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	603
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	604
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	605	' readStream.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	606
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	607	Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	608	cs apply.
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	609	].
1042 3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	610	"Responding to a nameSpaceQuerySignal should no longer affect change's namespace.
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	611	Use #nameSpaceOverride: or #applyWithNameSpaceOverride: to apply a change in given
1042 3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	612	namespace "
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	613
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	614	self assert: (Smalltalk at: #'MockClass::PrivateClass') notNil.
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	615	self assert: (Smalltalk at: #'MockClass::PrivateClass') name == #'MockClass::PrivateClass'.
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	616	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') isNil.
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	617
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	618	"Created: / 20-11-2012 / 15:25:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1042 3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	619	"Modified: / 04-02-2014 / 20:10:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	620	!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	621
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	622	test_ClassDefinitionChange_05a_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	623
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	624	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	625
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	626	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	627	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	628	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	629	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	630	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	631	category:''tests-Regression-Mocks''
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	632	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	633
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	634	Object subclass:#PrivateClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	635	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	636	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	637	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	638	privateIn:MockClass
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	639
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	640
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	641	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	642
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	643	Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	644	changefile readStream fileIn.
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	645	].
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	646	"Responding to a nameSpaceQuerySignal should no longer affect change's namespace.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	647	Use #nameSpaceOverride: or #applyWithNameSpaceOverride: to apply a change in given
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	648	namespace "
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	649
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	650	self assert: (Smalltalk at: #'MockClass::PrivateClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	651	self assert: (Smalltalk at: #'MockClass::PrivateClass') name == #'MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	652	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	653
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	654	"Created: / 20-11-2012 / 15:25:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	655	"Modified: / 04-02-2014 / 20:10:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	656	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	657
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	658	test_ClassDefinitionChange_05b
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	659
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	660	\| cs \|
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	661
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	662	cs := ChangeSet fromStream:'
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	663	"{ NameSpace: Mocks2 }"
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	664
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	665	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	666	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	667	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	668	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	669	category:''tests-Regression-Mocks''
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	670	!!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	671
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	672	Object subclass:#PrivateClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	673	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	674	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	675	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	676	privateIn:MockClass
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	677
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	678
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	679	' readStream.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	680
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	681	Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	682	cs apply.
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	683	].
1042 3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	684	"Responding to a nameSpaceQuerySignal should no longer affect change's namespace.
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	685	Use #nameSpaceOverride: or #applyWithNameSpaceOverride: to apply a change in given
1042 3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	686	namespace "
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	687
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	688	self assert: (Smalltalk at: #'Mocks2::MockClass::PrivateClass') notNil.
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	689	self assert: (Smalltalk at: #'Mocks2::MockClass::PrivateClass') name == #'Mocks2::MockClass::PrivateClass'.
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	690	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') isNil.
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	691
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	692	"Created: / 20-11-2012 / 15:26:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1042 3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	693	"Modified: / 04-02-2014 / 20:11:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	694	!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	695
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	696	test_ClassDefinitionChange_05b_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	697
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	698	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	699
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	700	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	701	"{ NameSpace: Mocks2 }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	702
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	703	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	704	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	705	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	706	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	707	category:''tests-Regression-Mocks''
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	708	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	709
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	710	Object subclass:#PrivateClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	711	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	712	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	713	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	714	privateIn:MockClass
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	715
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	716
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	717	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	718
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	719	Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	720	changefile readStream fileIn.
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	721	].
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	722	"Responding to a nameSpaceQuerySignal should no longer affect change's namespace.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	723	Use #nameSpaceOverride: or #applyWithNameSpaceOverride: to apply a change in given
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	724	namespace "
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	725
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	726	self assert: (Smalltalk at: #'Mocks2::MockClass::PrivateClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	727	self assert: (Smalltalk at: #'Mocks2::MockClass::PrivateClass') name == #'Mocks2::MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	728	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	729
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	730	"Created: / 20-11-2012 / 15:26:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	731	"Modified: / 04-02-2014 / 20:11:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	732	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	733
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	734	test_ClassDefinitionChange_05c
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	735
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	736	\| cs \|
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	737
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	738	cs := ChangeSet fromStream:'
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	739	"{ NameSpace: Mocks }"
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	740
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	741	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	742	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	743	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	744	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	745	category:''tests-Regression-Mocks''
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	746	!!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	747
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	748	Object subclass:#PrivateClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	749	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	750	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	751	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	752	privateIn:MockClass
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	753
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	754
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	755	' readStream.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	756
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	757	Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	758	cs apply.
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	759	].
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	760	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') notNil.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	761	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') name == #'Mocks::MockClass::PrivateClass'.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	762
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	763	"Created: / 20-11-2012 / 15:33:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	764	!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	765
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	766	test_ClassDefinitionChange_05c_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	767
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	768	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	769
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	770	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	771	"{ NameSpace: Mocks }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	772
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	773	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	774	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	775	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	776	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	777	category:''tests-Regression-Mocks''
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	778	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	779
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	780	Object subclass:#PrivateClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	781	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	782	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	783	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	784	privateIn:MockClass
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	785
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	786
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	787	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	788
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	789	Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	790	changefile readStream fileIn.
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	791	].
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	792	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	793	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') name == #'Mocks::MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	794
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	795	"Created: / 20-11-2012 / 15:33:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	796	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	797
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	798	test_ClassDefinitionChange_05d
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	799
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	800	\| cs \|
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	801
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	802	cs := ChangeSet fromStream:'
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	803	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	804	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	805	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	806	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	807	category:''tests-Regression-Mocks''
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	808	!!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	809
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	810	Object subclass:#PrivateClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	811	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	812	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	813	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	814	privateIn:MockClass
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	815
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	816
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	817	' readStream.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	818
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	819	cs first nameSpaceOverride: (NameSpace name: #Mocks).
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	820	cs second nameSpaceOverride: (NameSpace name: #Mocks).
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	821	cs apply.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	822
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	823	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') notNil.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	824	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') name == #'Mocks::MockClass::PrivateClass'.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	825
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	826	"Created: / 20-11-2012 / 15:26:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	827	!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	828
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	829	test_ClassDefinitionChange_05e
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	830
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	831	\| cs \|
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	832
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	833	cs := ChangeSet fromStream:'
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	834	"{ NameSpace: Mocks2 }"
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	835
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	836	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	837	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	838	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	839	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	840	category:''tests-Regression-Mocks''
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	841	!!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	842
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	843	Object subclass:#PrivateClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	844	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	845	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	846	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	847	privateIn:MockClass
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	848
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	849
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	850	' readStream.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	851
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	852	cs first nameSpaceOverride: (NameSpace name: #Mocks).
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	853	cs second nameSpaceOverride: (NameSpace name: #Mocks).
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	854	cs apply.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	855
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	856	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') notNil.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	857	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') name == #'Mocks::MockClass::PrivateClass'.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	858
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	859	"Created: / 20-11-2012 / 15:26:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
947 72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	860	!
72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	861
72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	862	test_ClassDefinitionChange_06a
72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	863	\| cs \|
72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	864
72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	865	"Test nil superclass"
72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	866
72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	867	cs := ChangeSet fromStream:'
72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	868	nil subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	869	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	870	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	871	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	872	category:''tests-Regression-Mocks''
947 72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	873	' readStream.
72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	874
72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	875	cs apply.
72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	876
72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	877	self assert: (Smalltalk at: #MockClass) superclass isNil
72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	878
72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	879	"Created: / 10-06-2013 / 16:48:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1006 9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	880	!
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	881
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	882	test_ClassDefinitionChange_06a_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	883	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	884
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	885	"Test nil superclass"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	886
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	887	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	888	nil subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	889	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	890	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	891	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	892	category:''tests-Regression-Mocks''
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	893	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	894
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	895	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	896
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	897	self assert: (Smalltalk at: #MockClass) superclass isNil
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	898
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	899	"Created: / 10-06-2013 / 16:48:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	900	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	901
1006 9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	902	test_ClassDefinitionChange_07a
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	903	\| cs \|
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	904
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	905	"Test nil superclass"
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	906
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	907	cs := ChangeSet fromStream:'
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	908	Object subclass:#ExistingPrivateClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	909	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	910	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	911	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	912	privateIn:RegressionTests::ChangeSetTests
1006 9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	913	' readStream.
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	914
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	915
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	916	self assert: cs size == 1.
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	917	self assert: cs anElement isClassDefinitionChange.
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	918	self assert: cs anElement changeClass == ExistingPrivateClass.
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	919
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	920	"Created: / 12-11-2013 / 17:53:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	921	!
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	922
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	923	test_ClassDefinitionChange_07b
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	924	\| cs \|
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	925
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	926	"Test nil superclass"
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	927
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	928	cs := ChangeSet fromStream:'
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	929	"{ NameSpace: RegressionTests }"
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	930
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	931	Object subclass:#ExistingPrivateClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	932	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	933	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	934	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	935	privateIn:ChangeSetTests
1006 9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	936	' readStream.
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	937
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	938
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	939	self assert: cs size == 1.
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	940	self assert: cs anElement isClassDefinitionChange.
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	941	self assert: cs anElement changeClass == ExistingPrivateClass.
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	942
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	943	"Created: / 12-11-2013 / 17:54:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1007 ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	944	!
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	945
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	946	test_ClassDefinitionChange_08a
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	947	\| cs \|
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	948
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	949	"Test nil superclass"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	950
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	951	cs := ChangeSet fromStream:'
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	952	"{ NameSpace: RegressionTests }"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	953
1147 ed7bfc0e4bfe Fixed RegressionTests::ChangeSetTests>>#test_ClassDefinitionChange_08a (bug was actually in the test) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1146 diff changeset	954	ClassAndMethodCompilingTestCase subclass:#ChangeSetTests
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	955	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	956	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	957	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	958	category:''tests-Regression-System-Changes''
1007 ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	959	' readStream.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	960
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	961
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	962	self assert: cs size == 1.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	963	self assert: cs anElement isClassDefinitionChange.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	964	self assert: cs anElement changeClass == ChangeSetTests.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	965	self assert: cs anElement delta == #'='
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	966
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	967	"Created: / 13-11-2013 / 17:41:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1147 ed7bfc0e4bfe Fixed RegressionTests::ChangeSetTests>>#test_ClassDefinitionChange_08a (bug was actually in the test) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1146 diff changeset	968	"Modified: / 24-06-2014 / 16:48:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1007 ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	969	!
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	970
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	971	test_ClassDefinitionChange_08b
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	972	\| cs \|
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	973
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	974	"Test nil superclass"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	975
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	976	cs := ChangeSet fromStream:'
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	977	"{ NameSpace: RegressionTests }"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	978
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	979	TestCase subclass:#ChangeSetTests
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	980	instanceVariableNames:''classes someMoreData''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	981	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	982	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	983	category:''tests-Regression-System-Changes''
1007 ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	984	' readStream.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	985
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	986
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	987	self assert: cs size == 1.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	988	self assert: cs anElement isClassDefinitionChange.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	989	self assert: cs anElement delta == #'~'
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	990
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	991	"Created: / 13-11-2013 / 17:43:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	992	!
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	993
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	994	test_ClassDefinitionChange_08c
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	995	\| cs \|
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	996
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	997	"Test nil superclass"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	998
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	999	cs := ChangeSet fromStream:'
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1000	"{ NameSpace: RegressionTests }"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1001
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1002	Object subclass:#ExistingPrivateClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1003	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1004	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1005	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1006	privateIn:ChangeSetTests
1007 ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1007	' readStream.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1008
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1009
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1010	self assert: cs size == 1.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1011	self assert: cs anElement isClassDefinitionChange.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1012	self assert: cs anElement delta == #'='
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1013
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1014	"Created: / 13-11-2013 / 17:44:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1015	!
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1016
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1017	test_ClassDefinitionChange_08d
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1018	\| cs \|
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1019
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1020	"Test nil superclass"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1021
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1022	cs := ChangeSet fromStream:'
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1023	"{ NameSpace: RegressionTests }"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1024
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1025	Object subclass:#ExistingPrivateClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1026	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1027	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1028	poolDictionaries:''somePool''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1029	privateIn:ChangeSetTests
1007 ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1030	' readStream.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1031
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1032
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1033	self assert: cs size == 1.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1034	self assert: cs anElement isClassDefinitionChange.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1035	self assert: cs anElement delta == #'~'
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1036
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1037	"Created: / 13-11-2013 / 17:44:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1038	!
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1039
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1040	test_ClassDefinitionChange_08e
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1041	\| cs \|
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1042
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1043	"Test nil superclass"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1044
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1045	cs := ChangeSet fromStream:'
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1046	"{ NameSpace: RegressionTests }"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1047
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1048	TestCase subclass:#ChangeSetTests2
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1049	instanceVariableNames:''classes someMoreData''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1050	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1051	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1052	category:''tests-Regression-System-Changes''
1007 ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1053	' readStream.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1054
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1055
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1056	self assert: cs size == 1.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1057	self assert: cs anElement isClassDefinitionChange.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1058	self assert: cs anElement delta == #'+'
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1059
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1060	"Created: / 13-11-2013 / 17:44:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1061	!
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1062
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1063	test_ClassDefinitionChange_08f
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1064	\| cs \|
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1065
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1066	"Test nil superclass"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1067
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1068	cs := ChangeSet fromStream:'
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1069	"{ NameSpace: RegressionTests }"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1070
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1071	Object subclass:#ExistingPrivateClass2
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1072	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1073	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1074	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1075	privateIn:ChangeSetTests
1007 ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1076	' readStream.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1077
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1078
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1079	self assert: cs size == 1.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1080	self assert: cs anElement isClassDefinitionChange.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1081	self assert: cs anElement delta == #'+'
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1082
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1083	"Created: / 13-11-2013 / 17:44:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1084	! !
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1085
1107 8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1086	!ChangeSetTests methodsFor:'tests - ClassInitializeChange'!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1087
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1088	test_ClassInitializeChange_01
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1089
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1090	\| cs \|
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1091
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1092	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1093	instanceVariableNames:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1094	classVariableNames:'MockVar'
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1095	poolDictionaries:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1096	category:'tests-Regression-Mocks'.
1107 8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1097	(Smalltalk at: #MockClass) class
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1098	compile: 'initialize MockVar := 1234';
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1099	compile: 'mockVar ^MockVar'.
1107 8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1100
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1101	cs := ChangeSet fromStream:'
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1102	MockClass initialize!!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1103
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1104	' readStream.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1105
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1106	self assert: cs size == 1.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1107	self assert: cs first class == ClassInitializeChange.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1108	self assert: cs first className = 'MockClass'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1109
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1110	self assert: (Smalltalk at: #MockClass) mockVar isNil.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1111	cs apply.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1112	self assert: (Smalltalk at: #MockClass) mockVar == 1234.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1113
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1114	"Created: / 21-03-2014 / 17:48:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1115	!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1116
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1117	test_ClassInitializeChange_02
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1118
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1119	\| cs \|
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1120
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1121	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1122	instanceVariableNames:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1123	classVariableNames:'MockVar'
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1124	poolDictionaries:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1125	category:'tests-Regression-Mocks'.
1107 8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1126
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1127	Object subclass:#PrivateClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1128	instanceVariableNames:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1129	classVariableNames:'MockVar'
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1130	poolDictionaries:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1131	privateIn:(Smalltalk at: #'MockClass').
1107 8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1132
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1133	(Smalltalk at: #'MockClass::PrivateClass') class
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1134	compile: 'initialize MockVar := 1234';
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1135	compile: 'mockVar ^MockVar'.
1107 8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1136
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1137	cs := ChangeSet fromStream:'
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1138	MockClass::PrivateClass initialize!!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1139
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1140	' readStream.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1141
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1142	self assert: cs size == 1.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1143	self assert: cs first class == ClassInitializeChange.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1144	self assert: cs first className = 'MockClass::PrivateClass'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1145
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1146	self assert: (Smalltalk at: #'MockClass::PrivateClass') mockVar isNil.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1147	cs apply.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1148	self assert: (Smalltalk at: #'MockClass::PrivateClass') mockVar == 1234.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1149
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1150	"Created: / 21-03-2014 / 18:04:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1151	!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1152
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1153	test_ClassInitializeChange_03a
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1154
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1155	\| cs \|
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1156
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1157	Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1158	Object subclass:#MockClass
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1159	instanceVariableNames:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1160	classVariableNames:'MockVar'
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1161	poolDictionaries:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1162	category:'tests-Regression-Mocks'.
1107 8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1163	].
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1164	(Smalltalk at: #'Mocks::MockClass') class
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1165	compile: 'initialize MockVar := 1234';
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1166	compile: 'mockVar ^MockVar'.
1107 8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1167
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1168
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1169	cs := ChangeSet fromStream:'
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1170	"{ NameSpace: Mocks }"
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1171
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1172	MockClass initialize!!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1173
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1174	' readStream.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1175
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1176	self assert: cs size == 1.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1177	self assert: cs first class == ClassInitializeChange.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1178	self assert: cs first className = 'MockClass'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1179	self assert: cs first fullClassName = 'Mocks::MockClass'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1180
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1181	self assert: (Smalltalk at: #'Mocks::MockClass') mockVar isNil.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1182	cs apply.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1183	self assert: (Smalltalk at: #'Mocks::MockClass') mockVar == 1234.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1184
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1185	"Created: / 21-03-2014 / 18:02:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1186	!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1187
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1188	test_ClassInitializeChange_03b
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1189
1284 708b7ad02aa1 class: RegressionTests::ChangeSetTests Stefan Vogel <sv@exept.de> parents: 1167 diff changeset	1190	\| cs\|
1107 8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1191
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1192	Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1193	Object subclass:#MockClass
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1194	instanceVariableNames:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1195	classVariableNames:'MockVar'
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1196	poolDictionaries:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1197	category:'tests-Regression-Mocks'.
1107 8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1198	].
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1199	(Smalltalk at: #'Mocks::MockClass') class
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1200	compile: 'initialize MockVar := 1234';
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1201	compile: 'mockVar ^MockVar'.
1107 8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1202
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1203
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1204	cs := ChangeSet fromStream:'
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1205	"{ NameSpace: Mocks }"
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1206
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1207	!!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1208	!!MockClass methodsFor:''methods''!!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1209
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1210	foo
1107 8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1211
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1212	!! !!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1213
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1214	MockClass initialize!!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1215
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1216	' readStream.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1217
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1218	self assert: cs size == 2.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1219	self assert: cs second class == ClassInitializeChange.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1220	self assert: cs second className = 'MockClass'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1221	self assert: cs second fullClassName = 'Mocks::MockClass'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1222
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1223	self assert: (Smalltalk at: #'Mocks::MockClass') mockVar isNil.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1224	cs apply.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1225	self assert: (Smalltalk at: #'Mocks::MockClass') mockVar == 1234.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1226
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1227	"Created: / 21-03-2014 / 18:04:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1228	!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1229
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1230	test_ClassInitializeChange_04a
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1231
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1232	\| cs \|
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1233
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1234	Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1235	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1236	instanceVariableNames:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1237	classVariableNames:'MockVar'
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1238	poolDictionaries:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1239	category:'tests-Regression-Mocks'.
1107 8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1240
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1241	Object subclass:#PrivateClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1242	instanceVariableNames:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1243	classVariableNames:'MockVar'
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1244	poolDictionaries:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1245	privateIn:(Smalltalk at: #'Mocks::MockClass').
1107 8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1246
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1247	].
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1248	(Smalltalk at: #'Mocks::MockClass::PrivateClass') class
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1249	compile: 'initialize MockVar := 1234';
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1250	compile: 'mockVar ^MockVar'.
1107 8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1251
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1252
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1253	cs := ChangeSet fromStream:'
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1254	"{ NameSpace: Mocks }"
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1255
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1256	MockClass::PrivateClass initialize!!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1257
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1258	' readStream.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1259
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1260	self assert: cs size == 1.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1261	self assert: cs first class == ClassInitializeChange.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1262	self assert: cs first className = 'MockClass::PrivateClass'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1263	self assert: cs first fullClassName = 'Mocks::MockClass::PrivateClass'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1264
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1265	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') mockVar isNil.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1266	cs apply.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1267	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') mockVar == 1234.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1268
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1269	"Created: / 21-03-2014 / 18:09:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1270	!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1271
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1272	test_ClassInitializeChange_04b
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1273
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1274	\| cs \|
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1275
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1276	Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1277	Object subclass:#MockClass
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1278	instanceVariableNames:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1279	classVariableNames:'MockVar'
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1280	poolDictionaries:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1281	category:'tests-Regression-Mocks'.
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1282
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1283	Object subclass:#PrivateClass
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1284	instanceVariableNames:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1285	classVariableNames:'MockVar'
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1286	poolDictionaries:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1287	privateIn:(Smalltalk at: #'Mocks::MockClass').
1107 8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1288	].
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1289	(Smalltalk at: #'Mocks::MockClass::PrivateClass') class
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1290	compile: 'initialize MockVar := 1234';
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1291	compile: 'mockVar ^MockVar'.
1107 8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1292
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1293
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1294	cs := ChangeSet fromStream:'
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1295	"{ NameSpace: Mocks }"
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1296
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1297	!!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1298	!!MockClass methodsFor:''methods''!!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1299
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1300	foo
1107 8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1301
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1302	!! !!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1303
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1304	MockClass::PrivateClass initialize!!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1305
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1306	' readStream.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1307
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1308	self assert: cs size == 2.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1309	self assert: cs second class == ClassInitializeChange.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1310	self assert: cs second className = 'MockClass::PrivateClass'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1311	self assert: cs second fullClassName = 'Mocks::MockClass::PrivateClass'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1312
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1313	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') mockVar isNil.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1314	cs apply.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1315	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') mockVar == 1234.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1316
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1317	"Created: / 21-03-2014 / 18:09:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1108 f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1318	!
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1319
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1320	test_ClassInitializeChange_05
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1321	\| cs1 cs2 diff \|
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1322
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1323	cs1 := ChangeSet fromStream:'
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1324	MockClass initialize!!
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1325
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1326	' readStream.
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1327
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1328	cs2 := ChangeSet fromStream:'
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1329	MockClass initialize!!
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1330
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1331	' readStream.
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1332
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1333	diff := cs1 diffSetsAgainst:cs2.
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1334
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1335	self assert: diff changed isEmpty.
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1336	self assert: diff onlyInReceiver isEmpty.
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1337	self assert: diff onlyInArg isEmpty.
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1338
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1339	"Created: / 26-03-2014 / 17:37:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1107 8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1340	! !
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1341
924 f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	1342	!ChangeSetTests methodsFor:'tests - MethodDefinitionChange'!
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	1343
925 d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1344	test_MethodDefinitionChange_01
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1345
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1346	\| cs \|
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1347
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1348	cs := ChangeSet fromStream:'
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1349	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1350	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1351	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1352	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1353	category:''tests-Regression-Mocks''
925 d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1354	!!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1355
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1356	!!MockClass methodsFor:''methods''!!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1357
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1358	foo
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1359
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1360	!! !!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1361
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1362	' readStream.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1363
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1364	self assert: cs size == 2.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1365	self assert: cs second className = 'MockClass'.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1366	self assert: cs second fullClassName = 'MockClass'.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1367	self assert: (Smalltalk at: #MockClass) isNil.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1368	cs apply.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1369	self assert: (Smalltalk at: #MockClass) notNil.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1370	self assert:((Smalltalk at: #MockClass) methodDictionary includesKey: #foo)
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1371
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1372	"Created: / 01-05-2013 / 09:40:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1373	!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1374
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1375	test_MethodDefinitionChange_01_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1376
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1377	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1378
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1379	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1380	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1381	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1382	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1383	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1384	category:''tests-Regression-Mocks''
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1385	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1386
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1387	!!MockClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1388
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1389	foo
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1390
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1391	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1392
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1393	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1394
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1395	self assert: (Smalltalk at: #MockClass) isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1396	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1397	self assert: (Smalltalk at: #MockClass) notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1398	self assert:((Smalltalk at: #MockClass) methodDictionary includesKey: #foo)
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1399
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1400	"Created: / 01-05-2013 / 09:40:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1401	"Modified (format): / 06-03-2014 / 17:04:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1402	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1403
925 d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1404	test_MethodDefinitionChange_02
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1405
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1406	\| cs \|
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1407
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1408	cs := ChangeSet fromStream:'
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1409	"{ NameSpace: Mocks }"
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1410
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1411	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1412	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1413	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1414	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1415	category:''tests-Regression-Mocks''
925 d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1416	!!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1417
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1418	!!MockClass methodsFor:''methods''!!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1419
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1420	foo
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1421
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1422	!! !!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1423
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1424	' readStream.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1425
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1426	self assert: cs size == 2.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1427	self assert: cs second className = 'MockClass'.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1428	self assert: cs second fullClassName = 'Mocks::MockClass'.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1429	self assert: (Smalltalk at: #'Mocks::MockClass') isNil.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1430	cs apply.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1431	self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1432	self assert:((Smalltalk at: #'Mocks::MockClass') methodDictionary includesKey: #foo)
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1433
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1434	"Created: / 01-05-2013 / 09:42:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1435	!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1436
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1437	test_MethodDefinitionChange_02_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1438
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1439	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1440
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1441	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1442	"{ NameSpace: Mocks }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1443
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1444	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1445	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1446	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1447	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1448	category:''tests-Regression-Mocks''
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1449	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1450
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1451	!!MockClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1452
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1453	foo
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1454
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1455	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1456
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1457	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1458
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1459	self assert: (Smalltalk at: #'Mocks::MockClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1460	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1461	self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1462	self assert:((Smalltalk at: #'Mocks::MockClass') methodDictionary includesKey: #foo)
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1463
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1464	"Created: / 01-05-2013 / 09:42:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1465	"Modified (format): / 06-03-2014 / 17:04:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1466	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1467
926 7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1468	test_MethodDefinitionChange_02a
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1469	"Tests whether all method changes have package properly set when reading
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1470	extension container"
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1471
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1472	\| cs \|
926 7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1473
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1474	cs := ChangeSet fromStream:'"{ Package: ''stx:libtool'' }"!!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1475
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1476	!!AbstractSyntaxHighlighter class methodsFor:''api highlighting''!!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1477
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1478	formatExpression:aString in:aClass elementsInto:elementsCollection
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1479
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1480	^self formatExpression:aString in:aClass
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1481
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1482	!! !!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1483
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1484	!!AbstractSyntax class methodsFor:''xxx highlighting''!!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1485
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1486	xxx:aString in:aClass elementsInto:elementsCollection
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1487
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1488	^self formatExpression:aString in:aClass
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1489
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1490	!! !!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1491
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1492	' readStream.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1493
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1494	self assert: cs size = 2.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1495	self assert: cs first package = 'stx:libtool'.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1496	self assert: cs second package = 'stx:libtool'.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1497
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1498	"Created: / 29-01-2013 / 19:05:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1499	"Modified: / 30-01-2013 / 10:09:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1500	!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1501
925 d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1502	test_MethodDefinitionChange_03a
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1503
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1504	\| cs \|
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1505
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1506	cs := ChangeSet fromStream:'
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1507	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1508	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1509	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1510	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1511	category:''tests-Regression-Mocks''
925 d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1512	!!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1513
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1514	Object subclass:#PrivateClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1515	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1516	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1517	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1518	privateIn:MockClass
925 d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1519	!!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1520
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1521	!!MockClass::PrivateClass methodsFor:''methods''!!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1522
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1523	foo
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1524
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1525	!! !!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1526	' readStream.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1527
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1528	self assert: cs size == 3.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1529	self assert: cs third className = 'MockClass::PrivateClass'.
928 bc2301253761 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 927 diff changeset	1530	self assert: cs third fullClassName = 'MockClass::PrivateClass'.
925 d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1531	self assert: (Smalltalk at: #'MockClass') isNil.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1532	cs apply.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1533	self assert:((Smalltalk at: #'MockClass::PrivateClass') methodDictionary includesKey: #foo)
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1534
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1535	"Created: / 01-05-2013 / 09:50:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
928 bc2301253761 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 927 diff changeset	1536	"Modified: / 09-05-2013 / 15:18:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
925 d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1537	!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1538
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1539	test_MethodDefinitionChange_03a_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1540
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1541	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1542
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1543	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1544	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1545	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1546	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1547	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1548	category:''tests-Regression-Mocks''
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1549	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1550
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1551	Object subclass:#PrivateClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1552	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1553	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1554	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1555	privateIn:MockClass
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1556	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1557
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1558	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1559
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1560	foo
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1561
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1562	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1563	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1564
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1565
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1566
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1567
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1568	self assert: (Smalltalk at: #'MockClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1569	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1570	self assert:((Smalltalk at: #'MockClass::PrivateClass') methodDictionary includesKey: #foo)
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1571
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1572	"Created: / 01-05-2013 / 09:50:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1573	"Modified: / 09-05-2013 / 15:18:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1574	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1575
925 d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1576	test_MethodDefinitionChange_03b
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1577
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1578	\| cs \|
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1579
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1580	cs := ChangeSet fromStream:'
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1581	"{ NameSpace: Mocks }"
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1582
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1583	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1584	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1585	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1586	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1587	category:''tests-Regression-Mocks''
925 d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1588	!!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1589
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1590	Object subclass:#PrivateClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1591	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1592	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1593	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1594	privateIn:MockClass
925 d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1595	!!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1596
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1597	!!MockClass::PrivateClass methodsFor:''methods''!!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1598
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1599	foo
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1600
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1601	!! !!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1602	' readStream.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1603
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1604	self assert: cs size == 3.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1605	self assert: cs third className = 'MockClass::PrivateClass'.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1606	self assert: cs third fullClassName = 'Mocks::MockClass::PrivateClass'.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1607	self assert: (Smalltalk at: #'Mocks::MockClass') isNil.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1608	cs apply.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1609	self assert:((Smalltalk at: #'Mocks::MockClass::PrivateClass') methodDictionary includesKey: #foo)
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1610
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1611	"Created: / 01-05-2013 / 09:52:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1612
926 7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1613	!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1614
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1615	test_MethodDefinitionChange_03b_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1616
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1617	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1618
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1619	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1620	"{ NameSpace: Mocks }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1621
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1622	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1623	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1624	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1625	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1626	category:''tests-Regression-Mocks''
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1627	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1628
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1629	Object subclass:#PrivateClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1630	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1631	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1632	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1633	privateIn:MockClass
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1634	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1635
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1636	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1637
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1638	foo
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1639
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1640	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1641	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1642
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1643
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1644
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1645
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1646	self assert: (Smalltalk at: #'Mocks::MockClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1647	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1648	self assert:((Smalltalk at: #'Mocks::MockClass::PrivateClass') methodDictionary includesKey: #foo)
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1649
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1650	"Created: / 01-05-2013 / 09:52:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1651
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1652	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1653
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1654	test_MethodDefinitionChange_04a
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1655
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1656	\| cs \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1657
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1658	cs := ChangeSet fromStream:'
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1659	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1660
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1661	foo
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1662
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1663	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1664	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1665
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1666	self assert: cs size == 1.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1667	self assert: cs first className = 'MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1668	self assert: cs first fullClassName = 'MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1669
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1670	"Created: / 06-03-2014 / 10:50:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1671	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1672
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1673	test_MethodDefinitionChange_04a_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1674
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1675	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1676
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1677	self assert: (Smalltalk at: #'MockClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1678	self assert: (Smalltalk at: #'MockClass::PrivateClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1679
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1680
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1681	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1682	instanceVariableNames:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1683	classVariableNames:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1684	poolDictionaries:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1685	category:'tests-Regression-System-Changes'.
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1686
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1687	Object subclass: #PrivateClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1688	instanceVariableNames: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1689	classVariableNames: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1690	poolDictionaries: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1691	privateIn: (Smalltalk at: #'MockClass').
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1692
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1693
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1694	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1695	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1696
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1697	foo
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1698
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1699	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1700	' readStream.
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1701	changefile readStream fileIn.
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1702
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1703	self assert: (Smalltalk at: #'MockClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1704	self assert: (Smalltalk at: #'MockClass::PrivateClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1705	self assert: ((Smalltalk at: #'MockClass::PrivateClass') methodDictionary includesKey:#foo)
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1706
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1707	"Created: / 06-03-2014 / 10:50:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1708	"Modified: / 06-03-2014 / 17:11:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1709	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1710
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1711	test_MethodDefinitionChange_04b
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1712
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1713	\| cs \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1714
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1715	cs := ChangeSet fromStream:'
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1716	"{ NameSpace: Mocks }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1717
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1718	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1719	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1720
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1721	foo
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1722
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1723	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1724	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1725
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1726	self assert: cs size == 1.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1727	self assert: cs first className = 'MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1728	self assert: cs first fullClassName = 'Mocks::MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1729
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1730	"Created: / 06-03-2014 / 10:50:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1731	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1732
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1733	test_MethodDefinitionChange_04b_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1734
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1735	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1736
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1737	self assert: (Smalltalk at: #'Mocks::MockClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1738	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1739
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1740	Class nameSpaceQuerySignal answer: (NameSpace name: #'Mocks') do:[
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1741
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1742	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1743	instanceVariableNames:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1744	classVariableNames:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1745	poolDictionaries:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1746	category:'tests-Regression-System-Changes'.
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1747
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1748	Object subclass: #PrivateClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1749	instanceVariableNames: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1750	classVariableNames: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1751	poolDictionaries: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1752	privateIn: (Smalltalk at: #'Mocks::MockClass').
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1753	].
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1754
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1755
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1756	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1757	"{ NameSpace: Mocks }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1758
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1759	!!
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1760	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1761
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1762	foo
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1763
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1764	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1765	' readStream.
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1766	changefile readStream fileIn.
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1767
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1768	self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1769	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1770	self assert: ((Smalltalk at: #'Mocks::MockClass::PrivateClass') methodDictionary includesKey:#foo)
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1771
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1772	"Created: / 06-03-2014 / 10:50:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1773	"Modified: / 06-03-2014 / 17:10:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1774	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1775
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1776	test_MethodDefinitionChange_05a
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1777
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1778	\| cs \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1779
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1780	cs := ChangeSet fromStream:'
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1781	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1782
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1783	foo
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1784
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1785	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1786	"{ NameSpace: Mocks }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1787
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1788	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1789	!!MockClass2::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1790
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1791	bar
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1792
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1793	!! !!
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1794
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1795	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1796
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1797	self assert: cs size == 2.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1798	self assert: cs first className = 'MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1799	self assert: cs first fullClassName = 'MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1800	self assert: cs second className = 'MockClass2::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1801	self assert: cs second fullClassName = 'Mocks::MockClass2::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1802
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1803	"Created: / 06-03-2014 / 10:51:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1804	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1805
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1806	test_MethodDefinitionChange_05a_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1807
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1808	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1809
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1810	self assert: (Smalltalk at: #'MockClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1811	self assert: (Smalltalk at: #'MockClass::PrivateClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1812
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1813
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1814	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1815	instanceVariableNames:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1816	classVariableNames:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1817	poolDictionaries:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1818	category:'tests-Regression-System-Changes'.
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1819
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1820	Object subclass: #PrivateClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1821	instanceVariableNames: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1822	classVariableNames: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1823	poolDictionaries: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1824	privateIn: (Smalltalk at: #'MockClass').
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1825
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1826	Class nameSpaceQuerySignal answer: (NameSpace name: #'Mocks') do:[
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1827
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1828	Object subclass:#MockClass2
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1829	instanceVariableNames:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1830	classVariableNames:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1831	poolDictionaries:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1832	category:'tests-Regression-System-Changes'.
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1833
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1834	Object subclass: #PrivateClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1835	instanceVariableNames: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1836	classVariableNames: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1837	poolDictionaries: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1838	privateIn: (Smalltalk at: #'Mocks::MockClass2').
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1839	].
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1840
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1841	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1842	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1843
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1844	foo
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1845
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1846	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1847	"{ NameSpace: Mocks }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1848
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1849	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1850	!!MockClass2::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1851
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1852	bar
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1853
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1854	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1855
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1856	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1857
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1858	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1859	self assert: (Smalltalk at: #'MockClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1860	self assert: (Smalltalk at: #'MockClass::PrivateClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1861	self assert: ((Smalltalk at: #'MockClass::PrivateClass') methodDictionary includesKey:#foo).
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1862	self assert: (Smalltalk at: #'Mocks::MockClass2') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1863	self assert: (Smalltalk at: #'Mocks::MockClass2::PrivateClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1864	self assert: ((Smalltalk at: #'Mocks::MockClass2::PrivateClass') methodDictionary includesKey:#bar)
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1865
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1866	"Created: / 06-03-2014 / 10:51:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1867	"Modified: / 06-03-2014 / 17:16:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1868	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1869
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1870	test_MethodDefinitionChange_05b
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1871
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1872	\| cs \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1873
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1874	cs := ChangeSet fromStream:'
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1875	"{ NameSpace: Mocks2 }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1876
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1877	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1878	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1879
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1880	foo
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1881
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1882	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1883	"{ NameSpace: Mocks }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1884
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1885	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1886	!!MockClass2::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1887
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1888	bar
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1889
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1890	!! !!
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1891
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1892	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1893
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1894	self assert: cs size == 2.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1895	self assert: cs first className = 'MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1896	self assert: cs first fullClassName = 'Mocks2::MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1897	self assert: cs second className = 'MockClass2::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1898	self assert: cs second fullClassName = 'Mocks::MockClass2::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1899
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1900	"Created: / 06-03-2014 / 10:53:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1901	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1902
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1903	test_MethodDefinitionChange_05b_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1904
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1905	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1906
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1907	Class nameSpaceQuerySignal answer: (NameSpace name: #'Mocks2') do:[
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1908
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1909	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1910	instanceVariableNames:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1911	classVariableNames:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1912	poolDictionaries:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1913	category:'tests-Regression-System-Changes'.
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1914
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1915	Object subclass: #PrivateClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1916	instanceVariableNames: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1917	classVariableNames: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1918	poolDictionaries: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1919	privateIn: (Smalltalk at: #'Mocks2::MockClass').
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1920
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1921	].
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1922
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1923	Class nameSpaceQuerySignal answer: (NameSpace name: #'Mocks') do:[
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1924
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1925	Object subclass:#MockClass2
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1926	instanceVariableNames:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1927	classVariableNames:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1928	poolDictionaries:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1929	category:'tests-Regression-System-Changes'.
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1930
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1931	Object subclass: #PrivateClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1932	instanceVariableNames: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1933	classVariableNames: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1934	poolDictionaries: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1935	privateIn: (Smalltalk at: #'Mocks::MockClass2').
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1936	].
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1937
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1938
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1939	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1940	"{ NameSpace: Mocks2 }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1941
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1942	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1943	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1944
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1945	foo
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1946
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1947	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1948	"{ NameSpace: Mocks }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1949
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1950	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1951	!!MockClass2::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1952
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1953	bar
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1954
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1955	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1956
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1957	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1958
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1959	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1960
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1961	self assert: (Smalltalk at: #'Mocks2::MockClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1962	self assert: (Smalltalk at: #'Mocks2::MockClass::PrivateClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1963	self assert: ((Smalltalk at: #'Mocks2::MockClass::PrivateClass') methodDictionary includesKey:#foo).
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1964	self assert: (Smalltalk at: #'Mocks::MockClass2') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1965	self assert: (Smalltalk at: #'Mocks::MockClass2::PrivateClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1966	self assert: ((Smalltalk at: #'Mocks::MockClass2::PrivateClass') methodDictionary includesKey:#bar)
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1967
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1968	"Created: / 06-03-2014 / 10:53:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1969	"Modified: / 06-03-2014 / 17:22:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1970	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1971
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1972	test_MethodDefinitionChange_05c
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1973
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1974	\| cs \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1975
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1976	cs := ChangeSet fromStream:'
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1977	"{ NameSpace: Mocks2 }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1978
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1979	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1980	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1981
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1982	foo
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1983
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1984	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1985	"{ NameSpace: Smalltalk }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1986
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1987	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1988	!!MockClass2::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1989
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1990	bar
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1991
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	1992	!! !!
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1993
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1994	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1995
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1996	self assert: cs size == 2.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1997	self assert: cs first className = 'MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1998	self assert: cs first fullClassName = 'Mocks2::MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1999	self assert: cs second className = 'MockClass2::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2000	self assert: cs second fullClassName = 'MockClass2::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2001
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2002	"Created: / 06-03-2014 / 10:54:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2003	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2004
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2005	test_MethodDefinitionChange_05c_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2006
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2007	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2008
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2009	Class nameSpaceQuerySignal answer: (NameSpace name: #'Mocks2') do:[
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2010
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2011	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2012	instanceVariableNames:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2013	classVariableNames:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2014	poolDictionaries:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2015	category:'tests-Regression-System-Changes'.
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2016
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2017	Object subclass: #PrivateClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2018	instanceVariableNames: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2019	classVariableNames: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2020	poolDictionaries: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2021	privateIn: (Smalltalk at: #'Mocks2::MockClass').
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2022	].
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2023
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2024	Object subclass:#MockClass2
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2025	instanceVariableNames:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2026	classVariableNames:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2027	poolDictionaries:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2028	category:'tests-Regression-System-Changes'.
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2029
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2030	Object subclass: #PrivateClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2031	instanceVariableNames: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2032	classVariableNames: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2033	poolDictionaries: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2034	privateIn: (Smalltalk at: #'MockClass2').
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2035
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2036
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2037
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2038	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2039	"{ NameSpace: Mocks2 }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2040
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2041	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2042	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2043
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2044	foo
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2045
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2046	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2047	"{ NameSpace: Smalltalk }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2048
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2049	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2050	!!MockClass2::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2051
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2052	bar
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2053
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2054	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2055
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2056	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2057
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2058	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2059	self assert: (Smalltalk at: #'Mocks2::MockClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2060	self assert: (Smalltalk at: #'Mocks2::MockClass::PrivateClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2061	self assert: ((Smalltalk at: #'Mocks2::MockClass::PrivateClass') methodDictionary includesKey:#foo).
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2062	self assert: (Smalltalk at: #'MockClass2') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2063	self assert: (Smalltalk at: #'MockClass2::PrivateClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2064	self assert: ((Smalltalk at: #'MockClass2::PrivateClass') methodDictionary includesKey:#bar)
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2065
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2066	"Created: / 06-03-2014 / 10:54:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2067	"Modified: / 06-03-2014 / 17:25:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2068	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2069
1111 15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2070	test_MethodDefinitionChange_06
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2071
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2072	\| cs \|
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2073
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2074	cs := ChangeSet fromStream:'
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2075	"{ Package: ''mocks:ChangeSetTests'' }"
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2076
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2077	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2078	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2079	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2080	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2081	category:''tests-Regression-Mocks''
1111 15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2082	!!
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2083
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2084	!!MockClass methodsFor:''methods''!!
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2085
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2086	foo
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2087
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2088	!! !!
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2089
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2090	' readStream.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2091
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2092	self assert: cs size == 2.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2093	self assert: cs second className = 'MockClass'.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2094	self assert: cs second fullClassName = 'MockClass'.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2095	self assert: cs second package = 'mocks:ChangeSetTests'.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2096	self assert: (Smalltalk at: #MockClass) isNil.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2097	cs apply.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2098	self assert: (Smalltalk at: #MockClass) notNil.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2099	self assert: (Smalltalk at: #MockClass) package = 'mocks:ChangeSetTests'.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2100	self assert:((Smalltalk at: #MockClass) methodDictionary includesKey: #foo).
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2101	self assert:((Smalltalk at: #MockClass) methodDictionary at: #foo) package = 'mocks:ChangeSetTests'.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2102
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2103	"Created: / 29-03-2014 / 23:23:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2104	!
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2105
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2106	test_MethodDefinitionChange_06_fileIn
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2107
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2108	\| changefile \|
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2109
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2110	changefile :='
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2111	"{ Package: ''mocks:ChangeSetTests'' }"
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2112
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2113	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2114	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2115	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2116	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2117	category:''tests-Regression-Mocks''
1111 15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2118	!!
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2119
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2120	!!MockClass methodsFor:''methods''!!
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2121
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2122	foo
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2123
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2124	!! !!
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2125
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2126	' readStream.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2127
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2128	self assert: (Smalltalk at: #MockClass) isNil.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2129	changefile readStream fileIn.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2130	self assert: (Smalltalk at: #MockClass) notNil.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2131	self assert: (Smalltalk at: #MockClass) package = 'mocks:ChangeSetTests'.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2132	self assert:((Smalltalk at: #MockClass) methodDictionary includesKey: #foo).
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2133	self assert:((Smalltalk at: #MockClass) methodDictionary at: #foo) package = 'mocks:ChangeSetTests'.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2134
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2135	"Created: / 29-03-2014 / 23:30:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2136	!
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2137
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2138	test_MethodDefinitionChange_07
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2139
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2140	\| cs \|
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2141
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2142	cs := ChangeSet fromStream:'
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2143	"{ Package: ''mocks:ChangeSetTests'' }"
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2144
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2145	!!MockClass::PrivateClass methodsFor:''methods''!!
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2146
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2147	foo
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2148
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2149	!! !!
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2150	' readStream.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2151
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2152	self assert: cs size == 1.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2153	self assert: cs first className = 'MockClass::PrivateClass'.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2154	self assert: cs first fullClassName = 'MockClass::PrivateClass'.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2155	self assert: cs first package = 'mocks:ChangeSetTests'.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2156
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2157	"Created: / 29-03-2014 / 23:31:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2158	!
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2159
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2160	test_MethodDefinitionChange_07_fileIn
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2161
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2162	\| changefile \|
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2163
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2164	self assert: (Smalltalk at: #'MockClass') isNil.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2165	self assert: (Smalltalk at: #'MockClass::PrivateClass') isNil.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2166
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2167
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2168	Object subclass:#MockClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2169	instanceVariableNames:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2170	classVariableNames:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2171	poolDictionaries:''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2172	category:'tests-Regression-System-Changes'.
1111 15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2173
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2174	Object subclass: #PrivateClass
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2175	instanceVariableNames: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2176	classVariableNames: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2177	poolDictionaries: ''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2178	privateIn: (Smalltalk at: #'MockClass').
1111 15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2179
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2180
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2181	changefile :='
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2182	"{ Package: ''mocks:ChangeSetTests'' }"
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2183
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2184	!!
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2185	!!MockClass::PrivateClass methodsFor:''methods''!!
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2186
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2187	foo
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2188
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2189	!! !!
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2190	' readStream.
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2191	changefile readStream fileIn.
1111 15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2192
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2193	self assert: (Smalltalk at: #'MockClass') notNil.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2194	self assert: (Smalltalk at: #'MockClass::PrivateClass') notNil.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2195	self assert: ((Smalltalk at: #'MockClass::PrivateClass') methodDictionary includesKey:#foo).
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2196	self assert: ((Smalltalk at: #'MockClass::PrivateClass') methodDictionary at: #foo) package = 'mocks:ChangeSetTests'.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2197
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2198	"Created: / 29-03-2014 / 23:32:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2199	!
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2200
926 7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2201	test_MethodDefinitionChange_jextension_01a
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2202	"Tests Java extensios - used by stx:libjava (see stx/libjava/java/extensions/*/.st"
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2203
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2204	\| cs \|
926 7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2205
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2206	cs := ChangeSet fromStream:'
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2207	!!(Java classForName:''java.lang.Long'') class methodsFor:''queries''!!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2208
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2209	javaWrap: object
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2210	\|inst\|
926 7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2211	inst := self basicNew.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2212	inst perform: #''<init>(J)V'' with: object with: nil.
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2213	^ inst.
926 7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2214	!! !!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2215	' readStream.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2216
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2217	self assert: cs size == 1.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2218
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2219	"Created: / 01-05-2013 / 17:38:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2220	!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2221
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2222	test_MethodDefinitionChange_jextension_01b
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2223	"Tests Java extensios - used by stx:libjava (see stx/libjava/java/extensions/*/.st"
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2224
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2225	\| cs \|
926 7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2226
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2227	cs := ChangeSet fromStream:'
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2228	!!(Java classForName:''java.lang.Long'') methodsFor:''queries''!!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2229
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2230	javaWrap: object
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2231	\|inst\|
926 7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2232	inst := self basicNew.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2233	inst perform: #''<init>(J)V'' with: object with: nil.
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2234	^ inst.
926 7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2235	!! !!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2236	' readStream.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2237
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2238	self assert: cs size == 1.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2239
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2240	"Created: / 01-05-2013 / 17:38:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
924 f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	2241	! !
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	2242
1167 e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2243	!ChangeSetTests methodsFor:'tests - misc'!
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2244
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2245	test_misc_package_01a
1288 fb01edff0456 class: RegressionTests::ChangeSetTests Stefan Vogel <sv@exept.de> parents: 1285 diff changeset	2246	"When reading session changefile, make sure that change's package is
fb01edff0456 class: RegressionTests::ChangeSetTests Stefan Vogel <sv@exept.de> parents: 1285 diff changeset	2247	not the one of by-chance-last package pragma in the stream.
fb01edff0456 class: RegressionTests::ChangeSetTests Stefan Vogel <sv@exept.de> parents: 1285 diff changeset	2248
fb01edff0456 class: RegressionTests::ChangeSetTests Stefan Vogel <sv@exept.de> parents: 1285 diff changeset	2249	SV: it is not exactly clear, whether this is a bug or a feature.
fb01edff0456 class: RegressionTests::ChangeSetTests Stefan Vogel <sv@exept.de> parents: 1285 diff changeset	2250	There may be changefiles, that have the package or namespace definition in a
1432 994715ad03bc #DOCUMENTATION by mawalch mawalch parents: 1288 diff changeset	2251	separate chunk - see ChangeSet>>#changesFromStream:for:reader:do - line 70"
1288 fb01edff0456 class: RegressionTests::ChangeSetTests Stefan Vogel <sv@exept.de> parents: 1285 diff changeset	2252
1167 e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2253	\| cs \|
1288 fb01edff0456 class: RegressionTests::ChangeSetTests Stefan Vogel <sv@exept.de> parents: 1285 diff changeset	2254
1167 e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2255	cs := ChangeSet fromStream:'"{ Encoding: utf8 }" !!
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2256	''---- timestamp jv@sao 05-10-2013 01:57:54 ----''!!
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2257	"{ Package: ''some:funny/package'' }"
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2258
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2259	Object subclass:#Mock1
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2260	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2261	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2262	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2263	category:''* Mocks *''
1167 e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2264	!!
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2265	!!Object methodsFor:''* mocks * ''!!
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2266
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2267	someMethod
1167 e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2268	^ 1
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2269
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2270	!! !!
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2271
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2272	' readStream.
1167 e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2273
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2274	self assert: cs size == 3.
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2275	self assert: cs second package = 'some:funny/package'.
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2276	self assert: cs third package isNil.
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2277
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2278	"Created: / 05-08-2014 / 10:49:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2279	!
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2280
1288 fb01edff0456 class: RegressionTests::ChangeSetTests Stefan Vogel <sv@exept.de> parents: 1285 diff changeset	2281	test_misc_package_01b
fb01edff0456 class: RegressionTests::ChangeSetTests Stefan Vogel <sv@exept.de> parents: 1285 diff changeset	2282	"When reading session changefile, make sure that change's package is
fb01edff0456 class: RegressionTests::ChangeSetTests Stefan Vogel <sv@exept.de> parents: 1285 diff changeset	2283	honored when present in a own chunk.
fb01edff0456 class: RegressionTests::ChangeSetTests Stefan Vogel <sv@exept.de> parents: 1285 diff changeset	2284
fb01edff0456 class: RegressionTests::ChangeSetTests Stefan Vogel <sv@exept.de> parents: 1285 diff changeset	2285	SV: this contradicts with #test_misc_package_01a - see ChangeSet>>#changesFromStream:for:reader:do - line 70"
fb01edff0456 class: RegressionTests::ChangeSetTests Stefan Vogel <sv@exept.de> parents: 1285 diff changeset	2286
fb01edff0456 class: RegressionTests::ChangeSetTests Stefan Vogel <sv@exept.de> parents: 1285 diff changeset	2287	\| cs \|
fb01edff0456 class: RegressionTests::ChangeSetTests Stefan Vogel <sv@exept.de> parents: 1285 diff changeset	2288
fb01edff0456 class: RegressionTests::ChangeSetTests Stefan Vogel <sv@exept.de> parents: 1285 diff changeset	2289	cs := ChangeSet fromStream:'"{ Encoding: utf8 }" !!
fb01edff0456 class: RegressionTests::ChangeSetTests Stefan Vogel <sv@exept.de> parents: 1285 diff changeset	2290	''---- timestamp jv@sao 05-10-2013 01:57:54 ----''!!
fb01edff0456 class: RegressionTests::ChangeSetTests Stefan Vogel <sv@exept.de> parents: 1285 diff changeset	2291	"{ Package: ''some:funny/package'' }"
fb01edff0456 class: RegressionTests::ChangeSetTests Stefan Vogel <sv@exept.de> parents: 1285 diff changeset	2292	!!
fb01edff0456 class: RegressionTests::ChangeSetTests Stefan Vogel <sv@exept.de> parents: 1285 diff changeset	2293	Object subclass:#Mock1
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2294	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2295	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2296	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2297	category:''* Mocks *''
1288 fb01edff0456 class: RegressionTests::ChangeSetTests Stefan Vogel <sv@exept.de> parents: 1285 diff changeset	2298	!!
fb01edff0456 class: RegressionTests::ChangeSetTests Stefan Vogel <sv@exept.de> parents: 1285 diff changeset	2299	!!Object methodsFor:''* mocks * ''!!
fb01edff0456 class: RegressionTests::ChangeSetTests Stefan Vogel <sv@exept.de> parents: 1285 diff changeset	2300
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2301	someMethod
1288 fb01edff0456 class: RegressionTests::ChangeSetTests Stefan Vogel <sv@exept.de> parents: 1285 diff changeset	2302	^ 1
fb01edff0456 class: RegressionTests::ChangeSetTests Stefan Vogel <sv@exept.de> parents: 1285 diff changeset	2303
fb01edff0456 class: RegressionTests::ChangeSetTests Stefan Vogel <sv@exept.de> parents: 1285 diff changeset	2304	!! !!
fb01edff0456 class: RegressionTests::ChangeSetTests Stefan Vogel <sv@exept.de> parents: 1285 diff changeset	2305
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2306	' readStream.
1288 fb01edff0456 class: RegressionTests::ChangeSetTests Stefan Vogel <sv@exept.de> parents: 1285 diff changeset	2307
fb01edff0456 class: RegressionTests::ChangeSetTests Stefan Vogel <sv@exept.de> parents: 1285 diff changeset	2308	self assert: cs size == 3.
fb01edff0456 class: RegressionTests::ChangeSetTests Stefan Vogel <sv@exept.de> parents: 1285 diff changeset	2309	self assert: cs second package = 'some:funny/package'.
fb01edff0456 class: RegressionTests::ChangeSetTests Stefan Vogel <sv@exept.de> parents: 1285 diff changeset	2310	self assert: cs third package = 'some:funny/package'.
fb01edff0456 class: RegressionTests::ChangeSetTests Stefan Vogel <sv@exept.de> parents: 1285 diff changeset	2311
fb01edff0456 class: RegressionTests::ChangeSetTests Stefan Vogel <sv@exept.de> parents: 1285 diff changeset	2312	"Created: / 05-08-2014 / 10:49:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fb01edff0456 class: RegressionTests::ChangeSetTests Stefan Vogel <sv@exept.de> parents: 1285 diff changeset	2313	!
fb01edff0456 class: RegressionTests::ChangeSetTests Stefan Vogel <sv@exept.de> parents: 1285 diff changeset	2314
1167 e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2315	test_misc_package_02a
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2316	"
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2317	When reading class fileout, all methods should have package set, however...
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2318	"
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2319	\| cs \|
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2320	cs := ChangeSet fromStream:'""{ Encoding: utf8 }"
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2321
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2322	''From Smalltalk/X, Version:6.2.4.0 on 05-08-2014 at 10:57:51'' !!
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2323
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2324	"{ Package: ''stx:goodies/regression'' }"
1167 e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2325
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2326	"{ NameSpace: RegressionTests }"
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2327
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2328	ClassAndMethodCompilingTestCase subclass:#ChangeSetTests
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2329	instanceVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2330	classVariableNames:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2331	poolDictionaries:''''
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2332	category:''tests-Regression-System-Changes''
1167 e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2333	!!
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2334
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2335	!!ChangeSetTests methodsFor:''private''!!
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2336
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2337	performTest
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2338	^Class withoutUpdatingChangesDo:[
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2339	super performTest
1167 e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2340	]
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2341
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2342	!! !!' readStream.
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2343
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2344	self assert: cs size == 2.
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2345	self assert: cs first package = 'stx:goodies/regression'.
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2346	self assert: cs second package = 'stx:goodies/regression'.
1167 e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2347
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2348	"Created: / 05-08-2014 / 10:59:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2349	!
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2350
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2351	test_misc_package_03a
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2352	"
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2353	When reading extensions file out, all methods should have
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2354	package correctly set.
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2355	"
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2356	\| cs \|
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2357	cs := ChangeSet fromStream:'"{ Package: ''stx:libjava'' }"!!
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2358
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2359	!!Behavior methodsFor:''queries''!!
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2360
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2361	isInterface
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2362	"return true, if the receiver is a Java interface"
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2363
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2364	^ false
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2365
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2366	"
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2367	True isInterface
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2368	"
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2369
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2370	!! !!
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2371
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2372	!!Behavior methodsFor:''queries''!!
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2373
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2374	isJavaPrimitiveType
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2375
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2376	^false
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2377
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2378
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2379	!! !!
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2380	' readStream.
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2381
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2382	self assert: cs size == 2.
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2383	self assert: cs first package = 'stx:libjava'.
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2384	self assert: cs second package = 'stx:libjava'.
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2385
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2386	"Created: / 05-08-2014 / 11:02:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2387	! !
e5046afd028f More tests for Changeset: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1147 diff changeset	2388
866 30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2389	!ChangeSetTests methodsFor:'tests - utf8'!
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2390
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2391	test_reading_utf8_01
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2392	"
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2393	Test reading of changeset with non-ASCII/non-ISO8859-1 chars
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2394	"
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2395	\| file cs \|
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2396
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2397	file := (Smalltalk getPackageDirectoryForPackage: self class package) / 'testData' / 'packages' / 'p1utf8' / 'ProjectDefinitionTestsP1UTF8Bar.st'.
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2398	self assert: file exists.
1042 3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2399	"
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2400	file contents asString
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2401	"
866 30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2402	cs := ChangeSet fromFile: file.
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2403	self assert: cs size == 4.
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2404	self assert: (cs second source size = 127).
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2405	self assert: (cs second source includesString: 'Příliš žluťoučký kůň úpěl ďábelské ódy').
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2406
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2407	"Created: / 26-03-2013 / 09:54:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1042 3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2408	"Modified (comment): / 04-02-2014 / 20:24:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2409	!
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2410
1105 1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2411	test_reading_utf8_02
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2412	"
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2413	Test reading of changeset with non-ASCII/non-ISO8859-1 chars from non-positionable stream
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2414	"
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2415	\| file stream cs \|
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2416
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2417	file := (Smalltalk getPackageDirectoryForPackage: self class package) / 'testData' / 'packages' / 'p1utf8' / 'ProjectDefinitionTestsP1UTF8Bar.st'.
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2418	self assert: file exists.
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2419	"
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2420	file contents asString
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2421	"
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2422	stream := NonPositionableReadWriteStream with: file contents asString.
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2423	cs := ChangeSet fromStream: stream.
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2424	self assert: cs size == 4.
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2425	self assert: (cs second source size = 127).
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2426	self assert: (cs second source includesString: 'Příliš žluťoučký kůň úpěl ďábelské ódy').
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2427
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2428	"Created: / 14-03-2014 / 15:42:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2429	!
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2430
1042 3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2431	test_write_utf8_01
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2432	\| cs output expected got \|
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2433
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2434	cs := ChangeSet forExistingClass: ChangeSetTests::ExistingPrivateClass.
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2435	output := String streamContents:[ :s \| cs saveToStream: s format: nil ].
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2436	got := output asStringCollection first.
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2437
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2438	expected := '"{ Encoding: utf8 }"'.
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2439
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2440	self assert: expected = got.
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2441
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2442	"Created: / 04-02-2014 / 12:10:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2443	"Modified: / 04-02-2014 / 20:13:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2444	! !
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2445
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2446	!ChangeSetTests::ExistingPrivateClass methodsFor:'methods'!
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2447
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2448	bar
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2449	^ 'Příliš žluťoučký kůň úpěl ďábelské ódy'
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2450
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2451	"Created: / 04-02-2014 / 11:43:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2452	!
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2453
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2454	foo
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2455	^ self bar
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2456
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2457	"Created: / 04-02-2014 / 11:43:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
866 30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2458	! !
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2459
1105 1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2460	!ChangeSetTests::NonPositionableReadWriteStream methodsFor:'positioning'!
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2461
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2462	position
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2463	"{ Pragma: +optSpace }"
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2464
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2465	"catch position - there is none here"
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2466
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2467	^ self positionError
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2468	!
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2469
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2470	position:aPosition
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2471	"{ Pragma: +optSpace }"
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2472
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2473	"catch position - there is none here"
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2474
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2475	^ self positionError
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2476	!
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2477
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2478	skip:numberToSkip
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2479	"skip count bytes/characters, return the receiver.
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2480	Re-redefined since PositionableStream redefined it."
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2481
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2482	"don't know how to unread ..."
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2483	numberToSkip < 0 ifTrue:[
1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2484	PositionError raiseRequest.
2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	2485	^ self
1105 1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2486	].
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2487	numberToSkip timesRepeat:[self next].
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2488
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2489	"Modified: / 30.7.1999 / 12:42:12 / cg"
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2490	! !
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2491
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2492	!ChangeSetTests::NonPositionableReadWriteStream methodsFor:'testing'!
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2493
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2494	isPositionable
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2495	^ false
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2496
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2497	"Created: / 14-03-2014 / 16:21:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2498	! !
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2499
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2500	!ChangeSetTests class methodsFor:'documentation'!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2501
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2502	version
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2503	^ '$Header$'
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2504	!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2505
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2506	version_CVS
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2507	^ '$Header$'
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2508	! !
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2509

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--