hg/stx-goodies-regression: RegressionTests__ChangeSetTests.st@ed7bfc0e4bfe (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
1146 1b087b0bf7e1 Fixed test RegressionTests::ChangeSetTests>>#test_saveToStream_format_nil_01 (bug was in the test, actually) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1128 diff changeset	44	cs := ChangeSet forExistingClass: self class.
1b087b0bf7e1 Fixed test RegressionTests::ChangeSetTests>>#test_saveToStream_format_nil_01 (bug was in the test, actually) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1128 diff changeset	45	cs := cs select:[:each \| each isMethodChange and:[ each selector = testSelector ]].
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	46	output := (String streamContents:[ :s \| cs saveToStream: s format: nil ]) readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	47	chunks := OrderedCollection streamContents:[ :s \|
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) = ''.
1146 1b087b0bf7e1 Fixed test RegressionTests::ChangeSetTests>>#test_saveToStream_format_nil_01 (bug was in the test, actually) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1128 diff changeset	57	self assert: (chunks at: 3) = ('ChangeSetTests methodsFor: ''%1''' bindWith: (self class compiledMethodAt: testSelector) category).
1b087b0bf7e1 Fixed test RegressionTests::ChangeSetTests>>#test_saveToStream_format_nil_01 (bug was in the test, actually) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1128 diff changeset	58	self assert: (chunks at: 4) = (self class compiledMethodAt: testSelector) source.
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	59	self assert: (chunks at: 5) = ''.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	60	self assert: (chunks at: 6) = ''.
1042 3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	61
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	62	"Created: / 04-02-2014 / 11:51:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1146 1b087b0bf7e1 Fixed test RegressionTests::ChangeSetTests>>#test_saveToStream_format_nil_01 (bug was in the test, actually) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1128 diff changeset	63	"Modified: / 24-06-2014 / 16:42:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1042 3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	64	!
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	65
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	66	test_saveToStream_format_nil_02
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	67	\| cs output chunks \|
1042 3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	68
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	69	cs := ChangeSet forExistingClass: ChangeSetTests::ExistingPrivateClass.
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	70	cs := cs select:[:each \| each isMethodChange and:[ each selector = #foo ]].
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	71	output := (String streamContents:[ :s \| cs saveToStream: s format: nil ]) readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	72	chunks := OrderedCollection streamContents:[ :s \|
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
1147 ed7bfc0e4bfe Fixed RegressionTests::ChangeSetTests>>#test_ClassDefinitionChange_08a (bug was actually in the test) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1146 diff changeset	954	ClassAndMethodCompilingTestCase subclass:#ChangeSetTests
ed7bfc0e4bfe Fixed RegressionTests::ChangeSetTests>>#test_ClassDefinitionChange_08a (bug was actually in the test) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1146 diff changeset	955	instanceVariableNames:''''
1007 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>"
1147 ed7bfc0e4bfe Fixed RegressionTests::ChangeSetTests>>#test_ClassDefinitionChange_08a (bug was actually in the test) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1146 diff changeset	968	"Modified: / 24-06-2014 / 16:48:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1007 ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	969	!
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	970
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	971	test_ClassDefinitionChange_08b
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	972	\| cs \|
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	973
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	974	"Test nil superclass"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	975
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	976	cs := ChangeSet fromStream:'
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	977	"{ NameSpace: RegressionTests }"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	978
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	979	TestCase subclass:#ChangeSetTests
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	980	instanceVariableNames:''classes someMoreData''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	981	classVariableNames:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	982	poolDictionaries:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	983	category:''tests-Regression-System-Changes''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	984	' readStream.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	985
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	986
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	987	self assert: cs size == 1.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	988	self assert: cs anElement isClassDefinitionChange.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	989	self assert: cs anElement delta == #'~'
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	990
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	991	"Created: / 13-11-2013 / 17:43:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	992	!
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	993
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	994	test_ClassDefinitionChange_08c
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	995	\| cs \|
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	996
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	997	"Test nil superclass"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	998
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	999	cs := ChangeSet fromStream:'
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1000	"{ NameSpace: RegressionTests }"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1001
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1002	Object subclass:#ExistingPrivateClass
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1003	instanceVariableNames:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1004	classVariableNames:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1005	poolDictionaries:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1006	privateIn:ChangeSetTests
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1007	' readStream.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1008
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1009
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1010	self assert: cs size == 1.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1011	self assert: cs anElement isClassDefinitionChange.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1012	self assert: cs anElement delta == #'='
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1013
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1014	"Created: / 13-11-2013 / 17:44:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1015	!
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1016
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1017	test_ClassDefinitionChange_08d
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1018	\| cs \|
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1019
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1020	"Test nil superclass"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1021
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1022	cs := ChangeSet fromStream:'
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1023	"{ NameSpace: RegressionTests }"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1024
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1025	Object subclass:#ExistingPrivateClass
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1026	instanceVariableNames:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1027	classVariableNames:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1028	poolDictionaries:''somePool''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1029	privateIn:ChangeSetTests
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1030	' readStream.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1031
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1032
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1033	self assert: cs size == 1.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1034	self assert: cs anElement isClassDefinitionChange.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1035	self assert: cs anElement delta == #'~'
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1036
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1037	"Created: / 13-11-2013 / 17:44:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1038	!
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1039
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1040	test_ClassDefinitionChange_08e
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1041	\| cs \|
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1042
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1043	"Test nil superclass"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1044
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1045	cs := ChangeSet fromStream:'
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1046	"{ NameSpace: RegressionTests }"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1047
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1048	TestCase subclass:#ChangeSetTests2
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1049	instanceVariableNames:''classes someMoreData''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1050	classVariableNames:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1051	poolDictionaries:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1052	category:''tests-Regression-System-Changes''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1053	' readStream.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1054
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1055
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1056	self assert: cs size == 1.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1057	self assert: cs anElement isClassDefinitionChange.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1058	self assert: cs anElement delta == #'+'
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1059
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1060	"Created: / 13-11-2013 / 17:44:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1061	!
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1062
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1063	test_ClassDefinitionChange_08f
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1064	\| cs \|
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1065
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1066	"Test nil superclass"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1067
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1068	cs := ChangeSet fromStream:'
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1069	"{ NameSpace: RegressionTests }"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1070
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1071	Object subclass:#ExistingPrivateClass2
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1072	instanceVariableNames:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1073	classVariableNames:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1074	poolDictionaries:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1075	privateIn:ChangeSetTests
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1076	' readStream.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1077
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1078
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1079	self assert: cs size == 1.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1080	self assert: cs anElement isClassDefinitionChange.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1081	self assert: cs anElement delta == #'+'
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1082
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1083	"Created: / 13-11-2013 / 17:44:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1084	! !
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1085
1107 8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1086	!ChangeSetTests methodsFor:'tests - ClassInitializeChange'!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1087
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1088	test_ClassInitializeChange_01
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1089
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1090	\| cs \|
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1091
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1092	Object subclass:#MockClass
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1093	instanceVariableNames:''
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1094	classVariableNames:'MockVar'
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1095	poolDictionaries:''
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1096	category:'tests-Regression-Mocks'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1097	(Smalltalk at: #MockClass) class
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1098	compile: 'initialize MockVar := 1234';
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1099	compile: 'mockVar ^MockVar'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1100
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1101	cs := ChangeSet fromStream:'
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1102	MockClass initialize!!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1103
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1104	' readStream.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1105
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1106	self assert: cs size == 1.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1107	self assert: cs first class == ClassInitializeChange.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1108	self assert: cs first className = 'MockClass'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1109
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1110	self assert: (Smalltalk at: #MockClass) mockVar isNil.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1111	cs apply.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1112	self assert: (Smalltalk at: #MockClass) mockVar == 1234.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1113
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1114	"Created: / 21-03-2014 / 17:48:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1115	!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1116
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1117	test_ClassInitializeChange_02
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1118
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1119	\| cs \|
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1120
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1121	Object subclass:#MockClass
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1122	instanceVariableNames:''
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1123	classVariableNames:'MockVar'
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1124	poolDictionaries:''
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1125	category:'tests-Regression-Mocks'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1126
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1127	Object subclass:#PrivateClass
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1128	instanceVariableNames:''
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1129	classVariableNames:'MockVar'
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1130	poolDictionaries:''
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1131	privateIn:(Smalltalk at: #'MockClass').
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1132
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1133	(Smalltalk at: #'MockClass::PrivateClass') class
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1134	compile: 'initialize MockVar := 1234';
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1135	compile: 'mockVar ^MockVar'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1136
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1137	cs := ChangeSet fromStream:'
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1138	MockClass::PrivateClass initialize!!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1139
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1140	' readStream.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1141
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1142	self assert: cs size == 1.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1143	self assert: cs first class == ClassInitializeChange.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1144	self assert: cs first className = 'MockClass::PrivateClass'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1145
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1146	self assert: (Smalltalk at: #'MockClass::PrivateClass') mockVar isNil.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1147	cs apply.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1148	self assert: (Smalltalk at: #'MockClass::PrivateClass') mockVar == 1234.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1149
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1150	"Created: / 21-03-2014 / 18:04:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1151	!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1152
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1153	test_ClassInitializeChange_03a
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1154
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1155	\| cs \|
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1156
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1157	Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1158	Object subclass:#MockClass
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1159	instanceVariableNames:''
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1160	classVariableNames:'MockVar'
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1161	poolDictionaries:''
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1162	category:'tests-Regression-Mocks'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1163	].
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1164	(Smalltalk at: #'Mocks::MockClass') class
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1165	compile: 'initialize MockVar := 1234';
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1166	compile: 'mockVar ^MockVar'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1167
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1168
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1169	cs := ChangeSet fromStream:'
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1170	"{ NameSpace: Mocks }"
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1171
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1172	MockClass initialize!!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1173
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1174	' readStream.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1175
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1176	self assert: cs size == 1.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1177	self assert: cs first class == ClassInitializeChange.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1178	self assert: cs first className = 'MockClass'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1179	self assert: cs first fullClassName = 'Mocks::MockClass'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1180
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1181	self assert: (Smalltalk at: #'Mocks::MockClass') mockVar isNil.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1182	cs apply.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1183	self assert: (Smalltalk at: #'Mocks::MockClass') mockVar == 1234.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1184
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1185	"Created: / 21-03-2014 / 18:02:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1186	!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1187
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1188	test_ClassInitializeChange_03b
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1189
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1190	\| cs \|
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1191
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1192	Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1193	Object subclass:#MockClass
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1194	instanceVariableNames:''
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1195	classVariableNames:'MockVar'
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1196	poolDictionaries:''
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1197	category:'tests-Regression-Mocks'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1198	].
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1199	(Smalltalk at: #'Mocks::MockClass') class
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1200	compile: 'initialize MockVar := 1234';
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1201	compile: 'mockVar ^MockVar'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1202
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1203
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1204	cs := ChangeSet fromStream:'
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1205	"{ NameSpace: Mocks }"
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1206
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1207	!!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1208	!!MockClass methodsFor:''methods''!!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1209
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1210	foo
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1211
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1212	!! !!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1213
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1214	MockClass initialize!!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1215
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1216	' readStream.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1217
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1218	self assert: cs size == 2.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1219	self assert: cs second class == ClassInitializeChange.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1220	self assert: cs second className = 'MockClass'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1221	self assert: cs second fullClassName = 'Mocks::MockClass'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1222
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1223	self assert: (Smalltalk at: #'Mocks::MockClass') mockVar isNil.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1224	cs apply.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1225	self assert: (Smalltalk at: #'Mocks::MockClass') mockVar == 1234.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1226
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1227	"Created: / 21-03-2014 / 18:04:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1228	!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1229
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1230	test_ClassInitializeChange_04a
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1231
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1232	\| cs \|
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1233
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1234	Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1235	Object subclass:#MockClass
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1236	instanceVariableNames:''
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1237	classVariableNames:'MockVar'
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1238	poolDictionaries:''
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1239	category:'tests-Regression-Mocks'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1240
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1241	Object subclass:#PrivateClass
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1242	instanceVariableNames:''
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1243	classVariableNames:'MockVar'
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1244	poolDictionaries:''
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1245	privateIn:(Smalltalk at: #'Mocks::MockClass').
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1246
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1247	].
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1248	(Smalltalk at: #'Mocks::MockClass::PrivateClass') class
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1249	compile: 'initialize MockVar := 1234';
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1250	compile: 'mockVar ^MockVar'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1251
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1252
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1253	cs := ChangeSet fromStream:'
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1254	"{ NameSpace: Mocks }"
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1255
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1256	MockClass::PrivateClass initialize!!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1257
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1258	' readStream.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1259
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1260	self assert: cs size == 1.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1261	self assert: cs first class == ClassInitializeChange.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1262	self assert: cs first className = 'MockClass::PrivateClass'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1263	self assert: cs first fullClassName = 'Mocks::MockClass::PrivateClass'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1264
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1265	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') mockVar isNil.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1266	cs apply.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1267	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') mockVar == 1234.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1268
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1269	"Created: / 21-03-2014 / 18:09:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1270	!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1271
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1272	test_ClassInitializeChange_04b
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1273
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1274	\| cs \|
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1275
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1276	Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1277	Object subclass:#MockClass
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1278	instanceVariableNames:''
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1279	classVariableNames:'MockVar'
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1280	poolDictionaries:''
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1281	category:'tests-Regression-Mocks'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1282
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1283	Object subclass:#PrivateClass
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1284	instanceVariableNames:''
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1285	classVariableNames:'MockVar'
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1286	poolDictionaries:''
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1287	privateIn:(Smalltalk at: #'Mocks::MockClass').
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	].
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1290	(Smalltalk at: #'Mocks::MockClass::PrivateClass') class
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1291	compile: 'initialize MockVar := 1234';
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1292	compile: 'mockVar ^MockVar'.
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
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1295	cs := ChangeSet fromStream:'
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1296	"{ NameSpace: Mocks }"
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	!!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1299	!!MockClass methodsFor:''methods''!!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1300
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1301	foo
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
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1305	MockClass::PrivateClass initialize!!
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1306
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1307	' readStream.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1308
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1309	self assert: cs size == 2.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1310	self assert: cs second class == ClassInitializeChange.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1311	self assert: cs second className = 'MockClass::PrivateClass'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1312	self assert: cs second fullClassName = 'Mocks::MockClass::PrivateClass'.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1313
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1314	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	1315	cs apply.
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1316	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	1317
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1318	"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	1319	!
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1320
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1321	test_ClassInitializeChange_05
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1322	\| cs1 cs2 diff \|
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1323
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1324	cs1 := ChangeSet fromStream:'
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1325	MockClass initialize!!
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1326
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1327	' readStream.
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1328
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1329	cs2 := ChangeSet fromStream:'
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1330	MockClass initialize!!
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1331
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1332	' readStream.
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1333
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1334	diff := cs1 diffSetsAgainst:cs2.
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1335
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1336	self assert: diff changed isEmpty.
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1337	self assert: diff onlyInReceiver isEmpty.
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1338	self assert: diff onlyInArg isEmpty.
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1339
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1340	"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	1341	! !
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1342
924 f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	1343	!ChangeSetTests methodsFor:'tests - MethodDefinitionChange'!
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	1344
925 d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1345	test_MethodDefinitionChange_01
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1346
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1347	\| cs \|
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1348
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1349	cs := ChangeSet fromStream:'
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1350	Object subclass:#MockClass
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1351	instanceVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1352	classVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1353	poolDictionaries:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1354	category:''tests-Regression-Mocks''
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
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1357	!!MockClass methodsFor:''methods''!!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1358
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1359	foo
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
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1363	' readStream.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1364
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1365	self assert: cs size == 2.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1366	self assert: cs second className = 'MockClass'.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1367	self assert: cs second fullClassName = 'MockClass'.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1368	self assert: (Smalltalk at: #MockClass) isNil.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1369	cs apply.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1370	self assert: (Smalltalk at: #MockClass) notNil.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1371	self assert:((Smalltalk at: #MockClass) methodDictionary includesKey: #foo)
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1372
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1373	"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	1374	!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1375
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1376	test_MethodDefinitionChange_01_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1377
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1378	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1379
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1380	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1381	Object subclass:#MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1382	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1383	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1384	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1385	category:''tests-Regression-Mocks''
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1388	!!MockClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1389
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1390	foo
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1394	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1395
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1396	self assert: (Smalltalk at: #MockClass) isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1397	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1398	self assert: (Smalltalk at: #MockClass) notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1399	self assert:((Smalltalk at: #MockClass) methodDictionary includesKey: #foo)
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1400
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1401	"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	1402	"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	1403	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1404
925 d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1405	test_MethodDefinitionChange_02
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1406
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1407	\| cs \|
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1408
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1409	cs := ChangeSet fromStream:'
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1410	"{ NameSpace: Mocks }"
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1411
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1412	Object subclass:#MockClass
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1413	instanceVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1414	classVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1415	poolDictionaries:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1416	category:''tests-Regression-Mocks''
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
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1419	!!MockClass methodsFor:''methods''!!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1420
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1421	foo
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
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1425	' readStream.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1426
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1427	self assert: cs size == 2.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1428	self assert: cs second className = 'MockClass'.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1429	self assert: cs second fullClassName = 'Mocks::MockClass'.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1430	self assert: (Smalltalk at: #'Mocks::MockClass') isNil.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1431	cs apply.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1432	self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1433	self assert:((Smalltalk at: #'Mocks::MockClass') methodDictionary includesKey: #foo)
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1434
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1435	"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	1436	!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1437
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1438	test_MethodDefinitionChange_02_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1439
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1440	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1441
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1442	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1443	"{ NameSpace: Mocks }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1444
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1445	Object subclass:#MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1446	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1447	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1448	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1449	category:''tests-Regression-Mocks''
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1452	!!MockClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1453
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1454	foo
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1458	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1459
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1460	self assert: (Smalltalk at: #'Mocks::MockClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1461	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1462	self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1463	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	1464
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1465	"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	1466	"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	1467	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1468
926 7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1469	test_MethodDefinitionChange_02a
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1470	"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	1471	extension container"
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1472
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1473	\| cs \|
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1474
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1475	cs := ChangeSet fromStream:'"{ Package: ''stx:libtool'' }"!!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1476
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1477	!!AbstractSyntaxHighlighter class methodsFor:''api highlighting''!!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1478
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1479	formatExpression:aString in:aClass elementsInto:elementsCollection
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1480
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1481	^self formatExpression:aString in:aClass
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
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1485	!!AbstractSyntax class methodsFor:''xxx highlighting''!!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1486
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1487	xxx:aString in:aClass elementsInto:elementsCollection
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1488
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1489	^self formatExpression:aString in:aClass
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
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1493	' readStream.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1494
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1495	self assert: cs size = 2.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1496	self assert: cs first package = 'stx:libtool'.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1497	self assert: cs second package = 'stx:libtool'.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1498
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1499	"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	1500	"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	1501	!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1502
925 d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1503	test_MethodDefinitionChange_03a
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1504
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1505	\| cs \|
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1506
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1507	cs := ChangeSet fromStream:'
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1508	Object subclass:#MockClass
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1509	instanceVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1510	classVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1511	poolDictionaries:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1512	category:''tests-Regression-Mocks''
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
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1515	Object subclass:#PrivateClass
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1516	instanceVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1517	classVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1518	poolDictionaries:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1519	privateIn:MockClass
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
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1522	!!MockClass::PrivateClass methodsFor:''methods''!!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1523
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1524	foo
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	!! !!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1527	' readStream.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1528
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1529	self assert: cs size == 3.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1530	self assert: cs third className = 'MockClass::PrivateClass'.
928 bc2301253761 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 927 diff changeset	1531	self assert: cs third fullClassName = 'MockClass::PrivateClass'.
925 d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1532	self assert: (Smalltalk at: #'MockClass') isNil.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1533	cs apply.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1534	self assert:((Smalltalk at: #'MockClass::PrivateClass') methodDictionary includesKey: #foo)
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1535
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1536	"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	1537	"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	1538	!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1539
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1540	test_MethodDefinitionChange_03a_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1541
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1542	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1543
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1544	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1545	Object subclass:#MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1546	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1547	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1548	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1549	category:''tests-Regression-Mocks''
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1552	Object subclass:#PrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1553	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1554	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1555	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1556	privateIn:MockClass
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1559	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1560
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1561	foo
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	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1564	' readStream.
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1569	self assert: (Smalltalk at: #'MockClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1570	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1571	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	1572
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1573	"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	1574	"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	1575	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1576
925 d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1577	test_MethodDefinitionChange_03b
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1578
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1579	\| cs \|
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1580
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1581	cs := ChangeSet fromStream:'
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1582	"{ NameSpace: Mocks }"
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1583
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1584	Object subclass:#MockClass
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1585	instanceVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1586	classVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1587	poolDictionaries:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1588	category:''tests-Regression-Mocks''
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
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1591	Object subclass:#PrivateClass
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1592	instanceVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1593	classVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1594	poolDictionaries:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1595	privateIn:MockClass
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
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1598	!!MockClass::PrivateClass methodsFor:''methods''!!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1599
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1600	foo
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	!! !!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1603	' readStream.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1604
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1605	self assert: cs size == 3.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1606	self assert: cs third className = 'MockClass::PrivateClass'.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1607	self assert: cs third fullClassName = 'Mocks::MockClass::PrivateClass'.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1608	self assert: (Smalltalk at: #'Mocks::MockClass') isNil.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1609	cs apply.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1610	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	1611
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1612	"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	1613
926 7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1614	!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1615
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1616	test_MethodDefinitionChange_03b_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1617
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1618	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1619
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1620	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1621	"{ NameSpace: Mocks }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1622
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1623	Object subclass:#MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1624	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1625	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1626	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1627	category:''tests-Regression-Mocks''
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1630	Object subclass:#PrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1631	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1632	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1633	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1634	privateIn:MockClass
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1637	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1638
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1639	foo
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	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1642	' readStream.
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1647	self assert: (Smalltalk at: #'Mocks::MockClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1648	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1649	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	1650
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1651	"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	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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1655	test_MethodDefinitionChange_04a
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1656
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1657	\| cs \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1658
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1659	cs := ChangeSet fromStream:'
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1660	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1661
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1662	foo
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	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1665	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1666
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1667	self assert: cs size == 1.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1668	self assert: cs first className = 'MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1669	self assert: cs first fullClassName = 'MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1670
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1671	"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	1672	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1673
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1674	test_MethodDefinitionChange_04a_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1675
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1676	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1677
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1678	self assert: (Smalltalk at: #'MockClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1679	self assert: (Smalltalk at: #'MockClass::PrivateClass') isNil.
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1682	Object subclass:#MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1683	instanceVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1684	classVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1685	poolDictionaries:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1686	category:'tests-Regression-System-Changes'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1687
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1688	Object subclass: #PrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1689	instanceVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1690	classVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1691	poolDictionaries: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1692	privateIn: (Smalltalk at: #'MockClass').
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1695	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1696	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1697
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1698	foo
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	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1701	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1702	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1703
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1704	self assert: (Smalltalk at: #'MockClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1705	self assert: (Smalltalk at: #'MockClass::PrivateClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1706	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	1707
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1708	"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	1709	"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	1710	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1711
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1712	test_MethodDefinitionChange_04b
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1713
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1714	\| cs \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1715
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1716	cs := ChangeSet fromStream:'
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1717	"{ NameSpace: Mocks }"
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	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1720	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1721
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1722	foo
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	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1725	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1726
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1727	self assert: cs size == 1.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1728	self assert: cs first className = 'MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1729	self assert: cs first fullClassName = 'Mocks::MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1730
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1731	"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	1732	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1733
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1734	test_MethodDefinitionChange_04b_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1735
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1736	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1737
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1738	self assert: (Smalltalk at: #'Mocks::MockClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1739	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1740
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1741	Class nameSpaceQuerySignal answer: (NameSpace name: #'Mocks') do:[
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1742
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1743	Object subclass:#MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1744	instanceVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1745	classVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1746	poolDictionaries:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1747	category:'tests-Regression-System-Changes'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1748
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1749	Object subclass: #PrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1750	instanceVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1751	classVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1752	poolDictionaries: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1753	privateIn: (Smalltalk at: #'Mocks::MockClass').
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1757	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1758	"{ NameSpace: Mocks }"
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	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1761	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1762
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1763	foo
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	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1766	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1767	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1768
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1769	self assert: (Smalltalk at: #'Mocks::MockClass') 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') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1771	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	1772
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1773	"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	1774	"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	1775	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1776
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1777	test_MethodDefinitionChange_05a
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1778
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1779	\| cs \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1780
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1781	cs := ChangeSet fromStream:'
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1782	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1783
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1784	foo
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	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1787	"{ NameSpace: Mocks }"
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	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1790	!!MockClass2::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1791
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1792	bar
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1796	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1797
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1798	self assert: cs size == 2.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1799	self assert: cs first className = 'MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1800	self assert: cs first fullClassName = 'MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1801	self assert: cs second className = 'MockClass2::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1802	self assert: cs second fullClassName = 'Mocks::MockClass2::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1803
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1804	"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	1805	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1806
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1807	test_MethodDefinitionChange_05a_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1808
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1809	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1810
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1811	self assert: (Smalltalk at: #'MockClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1812	self assert: (Smalltalk at: #'MockClass::PrivateClass') isNil.
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1815	Object subclass:#MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1816	instanceVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1817	classVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1818	poolDictionaries:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1819	category:'tests-Regression-System-Changes'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1820
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1821	Object subclass: #PrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1822	instanceVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1823	classVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1824	poolDictionaries: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1825	privateIn: (Smalltalk at: #'MockClass').
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1826
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1827	Class nameSpaceQuerySignal answer: (NameSpace name: #'Mocks') do:[
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1828
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1829	Object subclass:#MockClass2
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1830	instanceVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1831	classVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1832	poolDictionaries:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1833	category:'tests-Regression-System-Changes'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1834
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1835	Object subclass: #PrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1836	instanceVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1837	classVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1838	poolDictionaries: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1839	privateIn: (Smalltalk at: #'Mocks::MockClass2').
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1842	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1843	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1844
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1845	foo
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	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1848	"{ NameSpace: Mocks }"
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	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1851	!!MockClass2::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1852
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1853	bar
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1857	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1858
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1859	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1860	self assert: (Smalltalk at: #'MockClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1861	self assert: (Smalltalk at: #'MockClass::PrivateClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1862	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	1863	self assert: (Smalltalk at: #'Mocks::MockClass2') 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') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1865	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	1866
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1867	"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	1868	"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	1869	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1870
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1871	test_MethodDefinitionChange_05b
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1872
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1873	\| cs \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1874
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1875	cs := ChangeSet fromStream:'
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1876	"{ NameSpace: Mocks2 }"
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	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1879	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1880
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1881	foo
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	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1884	"{ NameSpace: Mocks }"
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	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1887	!!MockClass2::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1888
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1889	bar
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1893	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1894
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1895	self assert: cs size == 2.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1896	self assert: cs first className = 'MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1897	self assert: cs first fullClassName = 'Mocks2::MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1898	self assert: cs second className = 'MockClass2::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1899	self assert: cs second fullClassName = 'Mocks::MockClass2::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1900
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1901	"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	1902	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1903
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1904	test_MethodDefinitionChange_05b_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1905
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1906	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1907
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1908	Class nameSpaceQuerySignal answer: (NameSpace name: #'Mocks2') do:[
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1909
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1910	Object subclass:#MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1911	instanceVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1912	classVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1913	poolDictionaries:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1914	category:'tests-Regression-System-Changes'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1915
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1916	Object subclass: #PrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1917	instanceVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1918	classVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1919	poolDictionaries: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1920	privateIn: (Smalltalk at: #'Mocks2::MockClass').
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1924	Class nameSpaceQuerySignal answer: (NameSpace name: #'Mocks') do:[
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1925
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1926	Object subclass:#MockClass2
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1927	instanceVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1928	classVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1929	poolDictionaries:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1930	category:'tests-Regression-System-Changes'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1931
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1932	Object subclass: #PrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1933	instanceVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1934	classVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1935	poolDictionaries: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1936	privateIn: (Smalltalk at: #'Mocks::MockClass2').
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1940	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1941	"{ NameSpace: Mocks2 }"
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	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1944	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1945
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1946	foo
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	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1949	"{ NameSpace: Mocks }"
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	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1952	!!MockClass2::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1953
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1954	bar
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1958	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1959
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1960	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1961
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1962	self assert: (Smalltalk at: #'Mocks2::MockClass') 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') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1964	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	1965	self assert: (Smalltalk at: #'Mocks::MockClass2') 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') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1967	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	1968
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1969	"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	1970	"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	1971	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1972
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1973	test_MethodDefinitionChange_05c
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1974
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1975	\| cs \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1976
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1977	cs := ChangeSet fromStream:'
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1978	"{ NameSpace: Mocks2 }"
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	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1981	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1982
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1983	foo
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	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1986	"{ NameSpace: Smalltalk }"
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	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1989	!!MockClass2::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1990
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1991	bar
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1995	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1996
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1997	self assert: cs size == 2.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1998	self assert: cs first className = 'MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1999	self assert: cs first fullClassName = 'Mocks2::MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2000	self assert: cs second className = 'MockClass2::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2001	self assert: cs second fullClassName = 'MockClass2::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2002
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2003	"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	2004	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2005
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2006	test_MethodDefinitionChange_05c_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2007
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2008	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2009
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2010	Class nameSpaceQuerySignal answer: (NameSpace name: #'Mocks2') do:[
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2011
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2012	Object subclass:#MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2013	instanceVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2014	classVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2015	poolDictionaries:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2016	category:'tests-Regression-System-Changes'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2017
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2018	Object subclass: #PrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2019	instanceVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2020	classVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2021	poolDictionaries: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2022	privateIn: (Smalltalk at: #'Mocks2::MockClass').
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2025	Object subclass:#MockClass2
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2026	instanceVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2027	classVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2028	poolDictionaries:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2029	category:'tests-Regression-System-Changes'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2030
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2031	Object subclass: #PrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2032	instanceVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2033	classVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2034	poolDictionaries: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2035	privateIn: (Smalltalk at: #'MockClass2').
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2039	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2040	"{ NameSpace: Mocks2 }"
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	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2043	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2044
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2045	foo
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	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2048	"{ NameSpace: Smalltalk }"
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	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2051	!!MockClass2::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2052
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2053	bar
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2057	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2058
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2059	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2060	self assert: (Smalltalk at: #'Mocks2::MockClass') 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') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2062	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	2063	self assert: (Smalltalk at: #'MockClass2') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2064	self assert: (Smalltalk at: #'MockClass2::PrivateClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2065	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	2066
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2067	"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	2068	"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	2069	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2070
1111 15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2071	test_MethodDefinitionChange_06
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2072
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2073	\| cs \|
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2074
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2075	cs := ChangeSet fromStream:'
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2076	"{ Package: ''mocks:ChangeSetTests'' }"
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2077
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2078	Object subclass:#MockClass
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2079	instanceVariableNames:''''
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2080	classVariableNames:''''
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2081	poolDictionaries:''''
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2082	category:''tests-Regression-Mocks''
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
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2085	!!MockClass methodsFor:''methods''!!
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2086
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2087	foo
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
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2091	' readStream.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2092
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2093	self assert: cs size == 2.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2094	self assert: cs second className = 'MockClass'.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2095	self assert: cs second fullClassName = 'MockClass'.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2096	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	2097	self assert: (Smalltalk at: #MockClass) isNil.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2098	cs apply.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2099	self assert: (Smalltalk at: #MockClass) notNil.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2100	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	2101	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	2102	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	2103
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2104	"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	2105	!
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2106
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2107	test_MethodDefinitionChange_06_fileIn
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2108
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2109	\| changefile \|
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2110
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2111	changefile :='
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2112	"{ Package: ''mocks:ChangeSetTests'' }"
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2113
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2114	Object subclass:#MockClass
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2115	instanceVariableNames:''''
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2116	classVariableNames:''''
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2117	poolDictionaries:''''
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2118	category:''tests-Regression-Mocks''
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
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2121	!!MockClass methodsFor:''methods''!!
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2122
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2123	foo
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
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2127	' readStream.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2128
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2129	self assert: (Smalltalk at: #MockClass) isNil.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2130	changefile readStream fileIn.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2131	self assert: (Smalltalk at: #MockClass) notNil.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2132	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	2133	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	2134	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	2135
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2136	"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	2137	!
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2138
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2139	test_MethodDefinitionChange_07
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2140
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2141	\| cs \|
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2142
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2143	cs := ChangeSet fromStream:'
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2144	"{ Package: ''mocks:ChangeSetTests'' }"
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2145
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2146	!!MockClass::PrivateClass methodsFor:''methods''!!
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2147
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2148	foo
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	!! !!
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2151	' readStream.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2152
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2153	self assert: cs size == 1.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2154	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	2155	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	2156	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	2157
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2158	"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	2159	!
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2160
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2161	test_MethodDefinitionChange_07_fileIn
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2162
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2163	\| changefile \|
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2164
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2165	self assert: (Smalltalk at: #'MockClass') isNil.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2166	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	2167
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2168
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2169	Object subclass:#MockClass
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2170	instanceVariableNames:''
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2171	classVariableNames:''
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2172	poolDictionaries:''
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2173	category:'tests-Regression-System-Changes'.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2174
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2175	Object subclass: #PrivateClass
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2176	instanceVariableNames: ''
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2177	classVariableNames: ''
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2178	poolDictionaries: ''
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2179	privateIn: (Smalltalk at: #'MockClass').
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
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2182	changefile :='
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2183	"{ Package: ''mocks:ChangeSetTests'' }"
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	!!
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2186	!!MockClass::PrivateClass methodsFor:''methods''!!
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2187
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2188	foo
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	!! !!
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2191	' readStream.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2192	changefile readStream fileIn.
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2193
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2194	self assert: (Smalltalk at: #'MockClass') 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') notNil.
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 includesKey:#foo).
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2197	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	2198
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2199	"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	2200	!
15a933b0f58b Added package-related tests for MethodChange. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1108 diff changeset	2201
926 7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2202	test_MethodDefinitionChange_jextension_01a
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2203	"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	2204
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2205	\| cs \|
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2206
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2207	cs := ChangeSet fromStream:'
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2208	!!(Java classForName:''java.lang.Long'') class methodsFor:''queries''!!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2209
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2210	javaWrap: object
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2211	\|inst\|
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2212	inst := self basicNew.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2213	inst perform: #''<init>(J)V'' with: object with: nil.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2214	^ inst.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2215	!! !!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2216	' readStream.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2217
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2218	self assert: cs size == 1.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2219
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2220	"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	2221	!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2222
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2223	test_MethodDefinitionChange_jextension_01b
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2224	"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	2225
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2226	\| cs \|
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2227
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2228	cs := ChangeSet fromStream:'
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2229	!!(Java classForName:''java.lang.Long'') methodsFor:''queries''!!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2230
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2231	javaWrap: object
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2232	\|inst\|
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2233	inst := self basicNew.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2234	inst perform: #''<init>(J)V'' with: object with: nil.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2235	^ inst.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2236	!! !!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2237	' readStream.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2238
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2239	self assert: cs size == 1.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2240
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2241	"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	2242	! !
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	2243
866 30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2244	!ChangeSetTests methodsFor:'tests - utf8'!
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2245
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2246	test_reading_utf8_01
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2247	"
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2248	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	2249	"
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2250	\| file cs \|
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2251
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2252	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	2253	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	2254	"
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2255	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	2256	"
866 30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2257	cs := ChangeSet fromFile: file.
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2258	self assert: cs size == 4.
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2259	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	2260	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	2261
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2262	"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	2263	"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	2264	!
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2265
1105 1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2266	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	2267	"
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2268	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	2269	"
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2270	\| file stream cs \|
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2271
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2272	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	2273	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	2274	"
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2275	file contents asString
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2276	"
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2277	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	2278	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	2279	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	2280	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	2281	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	2282
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2283	"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	2284	!
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2285
1042 3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2286	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	2287	\| 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	2288
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2289	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	2290	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	2291	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	2292
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2293	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	2294
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2295	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	2296
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2297	"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	2298	"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	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
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2301	!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	2302
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2303	bar
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2304	^ '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	2305
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2306	"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	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
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2309	foo
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2310	^ 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	2311
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2312	"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	2313	! !
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2314
1105 1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2315	!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	2316
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2317	position
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2318	"{ Pragma: +optSpace }"
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2319
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2320	"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	2321
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2322	^ self positionError
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
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2325	position:aPosition
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2326	"{ Pragma: +optSpace }"
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2327
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2328	"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	2329
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2330	^ self positionError
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
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2333	skip:numberToSkip
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2334	"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	2335	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	2336
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2337	"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	2338	numberToSkip < 0 ifTrue:[
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2339	PositionError raiseRequest.
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2340	^ self
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2341	].
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2342	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	2343
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2344	"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	2345	! !
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2346
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2347	!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	2348
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2349	isPositionable
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2350	^ false
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2351
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2352	"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	2353	! !
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2354
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2355	!ChangeSetTests class methodsFor:'documentation'!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2356
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2357	version
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2358	^ '$Header$'
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
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2361	version_CVS
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2362	^ '$Header$'
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2363	! !
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2364

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Tue, 24 Jun 2014 17:48:55 +0200
changeset 1147	ed7bfc0e4bfe
parent 1146	1b087b0bf7e1
child 1167	e5046afd028f
permissions	-rw-r--r--