hg/stx-goodies-regression: RegressionTests__ChangeSetTests.st@361088bf132d (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
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	"{ Package: 'exept:regression' }"
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:[
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33	super performTest
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
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	44	cs := ChangeSet forExistingClass: ChangeSetTests.
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	45	cs := cs select:[:each \| each isMethodChange and:[ each selector = #setUp ]].
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 \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	48	[ output atEnd ] whileFalse:[
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	49	s nextPut: output nextChunk.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	50	].
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) = ''.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	57	self assert: (chunks at: 3) = 'ChangeSetTests methodsFor: ''running'''.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	58	self assert: (chunks at: 4) = (self class compiledMethodAt: #setUp) source.
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>"
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	63	"Modified: / 06-03-2014 / 12:46:02 / 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 \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	73	[ output atEnd ] whileFalse:[
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	74	s nextPut: output nextChunk.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	75	].
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\|
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	97	AbstractSourceCodeManager fileOutSourceCodeOf:ChangeSet on:s
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\|
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	103	cs saveToStream:s format:#classSource
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\|
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	120	AbstractSourceCodeManager fileOutSourceCodeOf:Tools::HierarchicalPackageFilterList on:s
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\|
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	126	cs saveToStream:s format:#classSource
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
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	144	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	145	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	146	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	147	category:''tests-Regression-Mocks''
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	165	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	166	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	167	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	168	category:''tests-Regression-Mocks''
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
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	188	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	189	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	190	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	191	category:''tests-Regression-Mocks''
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	213	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	214	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	215	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	216	category:''tests-Regression-Mocks''
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
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	236	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	237	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	238	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	239	category:''tests-Regression-Mocks''
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
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	244	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	245	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	246	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	247	privateIn:MockClass
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	273	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	274	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	275	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	276	category:''tests-Regression-Mocks''
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	281	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	282	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	283	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	284	privateIn:MockClass
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
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	312	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	313	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	314	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	315	category:''tests-Regression-Mocks''
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
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	320	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	321	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	322	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	323	privateIn:MockClass
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	352	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	353	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	354	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	355	category:''tests-Regression-Mocks''
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	360	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	361	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	362	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	363	privateIn:MockClass
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
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	390	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	391	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	392	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	393	category:''tests-Regression-Mocks''
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:[
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	397	cs apply.
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.
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	400	Use #nameSpaceOverride: or #applyWithNameSpaceOverride: to apply a change in given
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	417	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	418	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	419	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	420	category:''tests-Regression-Mocks''
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:[
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	424	changefile readStream fileIn.
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
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	446	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	447	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	448	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	449	category:''tests-Regression-Mocks''
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:[
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	453	cs apply.
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.
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	456	Use #nameSpaceOverride: or #applyWithNameSpaceOverride: to apply a change in given
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	475	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	476	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	477	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	478	category:''tests-Regression-Mocks''
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:[
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	482	changefile readStream fileIn.
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
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	504	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	505	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	506	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	507	category:''tests-Regression-Mocks''
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:[
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	511	cs apply.
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	527	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	528	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	529	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	530	category:''tests-Regression-Mocks''
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:[
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	534	changefile readStream fileIn.
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
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	548	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	549	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	550	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	551	category:''tests-Regression-Mocks''
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
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	571	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	572	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	573	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	574	category:''tests-Regression-Mocks''
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
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	592	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	593	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	594	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	595	category:''tests-Regression-Mocks''
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
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	599	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	600	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	601	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	602	privateIn:MockClass
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:[
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	608	cs apply.
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.
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	611	Use #nameSpaceOverride: or #applyWithNameSpaceOverride: to apply a change in given
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	628	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	629	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	630	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	631	category:''tests-Regression-Mocks''
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	635	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	636	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	637	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	638	privateIn:MockClass
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:[
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	644	changefile readStream fileIn.
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
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	666	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	667	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	668	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	669	category:''tests-Regression-Mocks''
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
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	673	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	674	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	675	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	676	privateIn:MockClass
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:[
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	682	cs apply.
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.
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	685	Use #nameSpaceOverride: or #applyWithNameSpaceOverride: to apply a change in given
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	704	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	705	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	706	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	707	category:''tests-Regression-Mocks''
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	711	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	712	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	713	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	714	privateIn:MockClass
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:[
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	720	changefile readStream fileIn.
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
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	742	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	743	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	744	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	745	category:''tests-Regression-Mocks''
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
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	749	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	750	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	751	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	752	privateIn:MockClass
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:[
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	758	cs apply.
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	774	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	775	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	776	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	777	category:''tests-Regression-Mocks''
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	781	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	782	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	783	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	784	privateIn:MockClass
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:[
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	790	changefile readStream fileIn.
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
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	804	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	805	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	806	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	807	category:''tests-Regression-Mocks''
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
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	811	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	812	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	813	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	814	privateIn:MockClass
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
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	837	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	838	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	839	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	840	category:''tests-Regression-Mocks''
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
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	844	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	845	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	846	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	847	privateIn:MockClass
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
72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	869	instanceVariableNames:''''
72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	870	classVariableNames:''''
72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	871	poolDictionaries:''''
72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	872	category:''tests-Regression-Mocks''
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	889	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	890	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	891	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	892	category:''tests-Regression-Mocks''
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
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	909	instanceVariableNames:''''
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	910	classVariableNames:''''
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	911	poolDictionaries:''''
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	912	privateIn:RegressionTests::ChangeSetTests
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
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	932	instanceVariableNames:''''
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	933	classVariableNames:''''
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	934	poolDictionaries:''''
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	935	privateIn:ChangeSetTests
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
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	954	TestCase subclass:#ChangeSetTests
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	955	instanceVariableNames:''classes''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	956	classVariableNames:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	957	poolDictionaries:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	958	category:''tests-Regression-System-Changes''
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>"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	968	!
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	test_ClassDefinitionChange_08b
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	971	\| cs \|
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	972
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	973	"Test nil superclass"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	974
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	975	cs := ChangeSet fromStream:'
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	976	"{ NameSpace: RegressionTests }"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	977
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	978	TestCase subclass:#ChangeSetTests
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	979	instanceVariableNames:''classes someMoreData''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	980	classVariableNames:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	981	poolDictionaries:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	982	category:''tests-Regression-System-Changes''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	983	' readStream.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	984
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	self assert: cs size == 1.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	987	self assert: cs anElement isClassDefinitionChange.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	988	self assert: cs anElement delta == #'~'
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	989
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	990	"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	991	!
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	test_ClassDefinitionChange_08c
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	994	\| cs \|
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	995
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	996	"Test nil superclass"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	997
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	998	cs := ChangeSet fromStream:'
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	999	"{ NameSpace: RegressionTests }"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1000
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1001	Object subclass:#ExistingPrivateClass
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1002	instanceVariableNames:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1003	classVariableNames:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1004	poolDictionaries:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1005	privateIn:ChangeSetTests
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1006	' readStream.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1007
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	self assert: cs size == 1.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1010	self assert: cs anElement isClassDefinitionChange.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1011	self assert: cs anElement delta == #'='
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1012
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1013	"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	1014	!
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	test_ClassDefinitionChange_08d
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1017	\| cs \|
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1018
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1019	"Test nil superclass"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1020
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1021	cs := ChangeSet fromStream:'
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1022	"{ NameSpace: RegressionTests }"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1023
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1024	Object subclass:#ExistingPrivateClass
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1025	instanceVariableNames:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1026	classVariableNames:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1027	poolDictionaries:''somePool''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1028	privateIn:ChangeSetTests
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1029	' readStream.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1030
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	self assert: cs size == 1.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1033	self assert: cs anElement isClassDefinitionChange.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1034	self assert: cs anElement delta == #'~'
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1035
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1036	"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	1037	!
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	test_ClassDefinitionChange_08e
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1040	\| cs \|
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1041
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1042	"Test nil superclass"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1043
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1044	cs := ChangeSet fromStream:'
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1045	"{ NameSpace: RegressionTests }"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1046
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1047	TestCase subclass:#ChangeSetTests2
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1048	instanceVariableNames:''classes someMoreData''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1049	classVariableNames:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1050	poolDictionaries:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1051	category:''tests-Regression-System-Changes''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1052	' readStream.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1053
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	self assert: cs size == 1.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1056	self assert: cs anElement isClassDefinitionChange.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1057	self assert: cs anElement delta == #'+'
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1058
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1059	"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	1060	!
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	test_ClassDefinitionChange_08f
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1063	\| cs \|
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1064
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1065	"Test nil superclass"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1066
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1067	cs := ChangeSet fromStream:'
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1068	"{ NameSpace: RegressionTests }"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1069
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1070	Object subclass:#ExistingPrivateClass2
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1071	instanceVariableNames:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1072	classVariableNames:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1073	poolDictionaries:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1074	privateIn:ChangeSetTests
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1075	' readStream.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1076
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	self assert: cs size == 1.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1079	self assert: cs anElement isClassDefinitionChange.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1080	self assert: cs anElement delta == #'+'
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1081
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1082	"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	1083	! !
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1084
1107 8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1085	!ChangeSetTests methodsFor:'tests - ClassInitializeChange'!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1086
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1087	test_ClassInitializeChange_01
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1088
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1089	\| cs \|
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1090
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1091	Object subclass:#MockClass
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1092	instanceVariableNames:''
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1093	classVariableNames:'MockVar'
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1094	poolDictionaries:''
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1095	category:'tests-Regression-Mocks'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1096	(Smalltalk at: #MockClass) class
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1097	compile: 'initialize MockVar := 1234';
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1098	compile: 'mockVar ^MockVar'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1099
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1100	cs := ChangeSet fromStream:'
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1101	MockClass initialize!!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1102
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1103	' readStream.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1104
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1105	self assert: cs size == 1.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1106	self assert: cs first class == ClassInitializeChange.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1107	self assert: cs first className = 'MockClass'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1108
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1109	self assert: (Smalltalk at: #MockClass) mockVar isNil.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1110	cs apply.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1111	self assert: (Smalltalk at: #MockClass) mockVar == 1234.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1112
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1113	"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	1114	!
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	test_ClassInitializeChange_02
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1117
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1118	\| cs \|
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1119
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1120	Object subclass:#MockClass
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1121	instanceVariableNames:''
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1122	classVariableNames:'MockVar'
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1123	poolDictionaries:''
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1124	category:'tests-Regression-Mocks'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1125
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1126	Object subclass:#PrivateClass
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1127	instanceVariableNames:''
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1128	classVariableNames:'MockVar'
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1129	poolDictionaries:''
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1130	privateIn:(Smalltalk at: #'MockClass').
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1131
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1132	(Smalltalk at: #'MockClass::PrivateClass') class
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1133	compile: 'initialize MockVar := 1234';
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1134	compile: 'mockVar ^MockVar'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1135
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1136	cs := ChangeSet fromStream:'
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1137	MockClass::PrivateClass initialize!!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1138
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1139	' readStream.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1140
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1141	self assert: cs size == 1.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1142	self assert: cs first class == ClassInitializeChange.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1143	self assert: cs first className = 'MockClass::PrivateClass'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1144
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1145	self assert: (Smalltalk at: #'MockClass::PrivateClass') mockVar isNil.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1146	cs apply.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1147	self assert: (Smalltalk at: #'MockClass::PrivateClass') mockVar == 1234.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1148
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1149	"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	1150	!
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	test_ClassInitializeChange_03a
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1153
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1154	\| cs \|
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1155
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1156	Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1157	Object subclass:#MockClass
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1158	instanceVariableNames:''
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1159	classVariableNames:'MockVar'
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1160	poolDictionaries:''
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1161	category:'tests-Regression-Mocks'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1162	].
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1163	(Smalltalk at: #'Mocks::MockClass') class
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1164	compile: 'initialize MockVar := 1234';
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1165	compile: 'mockVar ^MockVar'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1166
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	cs := ChangeSet fromStream:'
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1169	"{ NameSpace: Mocks }"
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1170
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1171	MockClass initialize!!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1172
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1173	' readStream.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1174
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1175	self assert: cs size == 1.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1176	self assert: cs first class == ClassInitializeChange.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1177	self assert: cs first className = 'MockClass'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1178	self assert: cs first fullClassName = 'Mocks::MockClass'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1179
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1180	self assert: (Smalltalk at: #'Mocks::MockClass') mockVar isNil.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1181	cs apply.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1182	self assert: (Smalltalk at: #'Mocks::MockClass') mockVar == 1234.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1183
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1184	"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	1185	!
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	test_ClassInitializeChange_03b
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1188
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1189	\| cs \|
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1190
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1191	Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1192	Object subclass:#MockClass
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1193	instanceVariableNames:''
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1194	classVariableNames:'MockVar'
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1195	poolDictionaries:''
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1196	category:'tests-Regression-Mocks'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1197	].
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1198	(Smalltalk at: #'Mocks::MockClass') class
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1199	compile: 'initialize MockVar := 1234';
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1200	compile: 'mockVar ^MockVar'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1201
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	cs := ChangeSet fromStream:'
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1204	"{ NameSpace: Mocks }"
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1205
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	!!MockClass methodsFor:''methods''!!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1208
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1209	foo
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1210
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	MockClass initialize!!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1214
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1215	' readStream.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1216
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1217	self assert: cs size == 2.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1218	self assert: cs second class == ClassInitializeChange.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1219	self assert: cs second className = 'MockClass'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1220	self assert: cs second fullClassName = 'Mocks::MockClass'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1221
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1222	self assert: (Smalltalk at: #'Mocks::MockClass') mockVar isNil.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1223	cs apply.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1224	self assert: (Smalltalk at: #'Mocks::MockClass') mockVar == 1234.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1225
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1226	"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	1227	!
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	test_ClassInitializeChange_04a
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1230
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1231	\| cs \|
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1232
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1233	Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1234	Object subclass:#MockClass
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1235	instanceVariableNames:''
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1236	classVariableNames:'MockVar'
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1237	poolDictionaries:''
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1238	category:'tests-Regression-Mocks'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1239
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1240	Object subclass:#PrivateClass
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1241	instanceVariableNames:''
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1242	classVariableNames:'MockVar'
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1243	poolDictionaries:''
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1244	privateIn:(Smalltalk at: #'Mocks::MockClass').
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1245
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	(Smalltalk at: #'Mocks::MockClass::PrivateClass') class
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1248	compile: 'initialize MockVar := 1234';
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1249	compile: 'mockVar ^MockVar'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1250
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	cs := ChangeSet fromStream:'
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1253	"{ NameSpace: Mocks }"
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1254
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1255	MockClass::PrivateClass initialize!!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1256
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1257	' readStream.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1258
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1259	self assert: cs size == 1.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1260	self assert: cs first class == ClassInitializeChange.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1261	self assert: cs first className = 'MockClass::PrivateClass'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1262	self assert: cs first fullClassName = 'Mocks::MockClass::PrivateClass'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1263
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1264	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	1265	cs apply.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1266	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	1267
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1268	"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	1269	!
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	test_ClassInitializeChange_04b
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1272
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1273	\| cs \|
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1274
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1275	Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1276	Object subclass:#MockClass
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1277	instanceVariableNames:''
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1278	classVariableNames:'MockVar'
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1279	poolDictionaries:''
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1280	category:'tests-Regression-Mocks'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1281
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1282	Object subclass:#PrivateClass
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1283	instanceVariableNames:''
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1284	classVariableNames:'MockVar'
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1285	poolDictionaries:''
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1286	privateIn:(Smalltalk at: #'Mocks::MockClass').
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1287
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
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1290	compile: 'initialize MockVar := 1234';
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1291	compile: 'mockVar ^MockVar'.
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
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1300	foo
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
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1350	instanceVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1351	classVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1352	poolDictionaries:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1353	category:''tests-Regression-Mocks''
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1381	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1382	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1383	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1384	category:''tests-Regression-Mocks''
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
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1412	instanceVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1413	classVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1414	poolDictionaries:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1415	category:''tests-Regression-Mocks''
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1445	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1446	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1447	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1448	category:''tests-Regression-Mocks''
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
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1472	\| cs \|
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
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1508	instanceVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1509	classVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1510	poolDictionaries:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1511	category:''tests-Regression-Mocks''
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
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1515	instanceVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1516	classVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1517	poolDictionaries:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1518	privateIn:MockClass
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1545	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1546	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1547	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1548	category:''tests-Regression-Mocks''
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1552	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1553	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1554	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1555	privateIn:MockClass
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
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1584	instanceVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1585	classVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1586	poolDictionaries:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1587	category:''tests-Regression-Mocks''
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
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1591	instanceVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1592	classVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1593	poolDictionaries:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1594	privateIn:MockClass
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1623	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1624	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1625	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1626	category:''tests-Regression-Mocks''
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1630	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1631	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1632	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1633	privateIn:MockClass
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1682	instanceVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1683	classVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1684	poolDictionaries:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1685	category:'tests-Regression-System-Changes'.
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1688	instanceVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1689	classVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1690	poolDictionaries: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1691	privateIn: (Smalltalk at: #'MockClass').
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.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1701	changefile readStream fileIn.
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1743	instanceVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1744	classVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1745	poolDictionaries:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1746	category:'tests-Regression-System-Changes'.
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1749	instanceVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1750	classVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1751	poolDictionaries: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1752	privateIn: (Smalltalk at: #'Mocks::MockClass').
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1759	!!
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.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1766	changefile readStream fileIn.
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1793	!! !!
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1815	instanceVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1816	classVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1817	poolDictionaries:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1818	category:'tests-Regression-System-Changes'.
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1821	instanceVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1822	classVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1823	poolDictionaries: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1824	privateIn: (Smalltalk at: #'MockClass').
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1829	instanceVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1830	classVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1831	poolDictionaries:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1832	category:'tests-Regression-System-Changes'.
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1835	instanceVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1836	classVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1837	poolDictionaries: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1838	privateIn: (Smalltalk at: #'Mocks::MockClass2').
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1839	].
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1890	!! !!
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1910	instanceVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1911	classVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1912	poolDictionaries:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1913	category:'tests-Regression-System-Changes'.
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1916	instanceVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1917	classVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1918	poolDictionaries: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1919	privateIn: (Smalltalk at: #'Mocks2::MockClass').
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1926	instanceVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1927	classVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1928	poolDictionaries:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1929	category:'tests-Regression-System-Changes'.
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1932	instanceVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1933	classVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1934	poolDictionaries: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1935	privateIn: (Smalltalk at: #'Mocks::MockClass2').
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1936	].
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1992	!! !!
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2012	instanceVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2013	classVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2014	poolDictionaries:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2015	category:'tests-Regression-System-Changes'.
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2018	instanceVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2019	classVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2020	poolDictionaries: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2021	privateIn: (Smalltalk at: #'Mocks2::MockClass').
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2022	].
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2025	instanceVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2026	classVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2027	poolDictionaries:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2028	category:'tests-Regression-System-Changes'.
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2031	instanceVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2032	classVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2033	poolDictionaries: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2034	privateIn: (Smalltalk at: #'MockClass2').
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2035
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2036
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
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2078	instanceVariableNames:''''
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2079	classVariableNames:''''
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2080	poolDictionaries:''''
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2081	category:''tests-Regression-Mocks''
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
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2114	instanceVariableNames:''''
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2115	classVariableNames:''''
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2116	poolDictionaries:''''
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2117	category:''tests-Regression-Mocks''
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
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2169	instanceVariableNames:''
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2170	classVariableNames:''
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2171	poolDictionaries:''
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2172	category:'tests-Regression-System-Changes'.
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
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2175	instanceVariableNames: ''
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2176	classVariableNames: ''
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2177	poolDictionaries: ''
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2178	privateIn: (Smalltalk at: #'MockClass').
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.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2191	changefile readStream fileIn.
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
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2204	\| cs \|
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
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2210	\|inst\|
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.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2213	^ inst.
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
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2225	\| cs \|
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
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2231	\|inst\|
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.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2234	^ inst.
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
866 30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2243	!ChangeSetTests methodsFor:'tests - utf8'!
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2244
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2245	test_reading_utf8_01
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2246	"
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2247	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	2248	"
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2249	\| file cs \|
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2250
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2251	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	2252	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	2253	"
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2254	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	2255	"
866 30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2256	cs := ChangeSet fromFile: file.
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2257	self assert: cs size == 4.
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2258	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	2259	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	2260
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2261	"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	2262	"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	2263	!
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2264
1105 1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2265	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	2266	"
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2267	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	2268	"
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2269	\| file stream cs \|
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2270
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2271	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	2272	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	2273	"
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2274	file contents asString
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2275	"
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2276	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	2277	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	2278	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	2279	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	2280	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	2281
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2282	"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	2283	!
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2284
1042 3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2285	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	2286	\| 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	2287
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2288	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	2289	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	2290	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	2291
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2292	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	2293
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2294	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	2295
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2296	"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	2297	"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	2298	! !
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2299
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2300	!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	2301
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2302	bar
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2303	^ '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	2304
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2305	"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	2306	!
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2307
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2308	foo
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2309	^ 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	2310
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2311	"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	2312	! !
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2313
1105 1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2314	!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	2315
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2316	position
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2317	"{ Pragma: +optSpace }"
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2318
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2319	"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	2320
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2321	^ self positionError
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2322	!
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2323
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2324	position:aPosition
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2325	"{ Pragma: +optSpace }"
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2326
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2327	"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	2328
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2329	^ self positionError
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2330	!
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2331
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2332	skip:numberToSkip
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2333	"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	2334	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	2335
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2336	"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	2337	numberToSkip < 0 ifTrue:[
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2338	PositionError raiseRequest.
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2339	^ self
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2340	].
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2341	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	2342
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2343	"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	2344	! !
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2345
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2346	!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	2347
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2348	isPositionable
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2349	^ false
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2350
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2351	"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	2352	! !
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2353
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2354	!ChangeSetTests class methodsFor:'documentation'!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2355
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2356	version
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2357	^ '$Header$'
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2358	!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2359
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2360	version_CVS
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2361	^ '$Header$'
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2362	! !
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2363

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Tue, 13 May 2014 12:31:27 +0200
changeset 1128	361088bf132d
parent 1111	15a933b0f58b
child 1146	1b087b0bf7e1
permissions	-rw-r--r--