hg/stx-goodies-regression: RegressionTests__ChangeSetTests.st@1a5e6c3e2dff (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
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	TestCase subclass:#ChangeSetTests
926 7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	8	instanceVariableNames:'classes'
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:'change & update'!
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	update: aspect with: param from: sender
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33	aspect == #newClass ifTrue:[
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34	classes add: param.
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
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37	"Created: / 20-11-2012 / 14:47:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	38	! !
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	39
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	40	!ChangeSetTests methodsFor:'private'!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	41
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	42	performTest
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	43	^Class withoutUpdatingChangesDo:[
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	44	super performTest
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	45	]
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	46
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	47	"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	48	! !
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	49
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	50	!ChangeSetTests methodsFor:'running'!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	51
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	52	setUp
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	53	Smalltalk addDependent: self.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	54	classes := Set new.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	55
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	56	"Created: / 20-11-2012 / 14:46:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	57	!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	58
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	59	tearDown
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	60	\| ns \|
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	61
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62	Smalltalk removeDependent: self.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	63	classes do:[:each\|
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	64	(each fullName startsWith: 'Mock') ifTrue:[
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	65	Smalltalk removeClass: each
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	66	].
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	67	].
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	68
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	69	#(Mocks Mocks2 Mocks3) do:[:nsName\|
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	70	(ns := Smalltalk at:nsName) notNil ifTrue:[
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	71	Smalltalk removeClass: ns
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	72	].
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	73	].
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	74
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	75	"Created: / 20-11-2012 / 14:46:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	76	"Modified: / 06-03-2014 / 10:57:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	77	! !
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	78
1042 3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	79	!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	80
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	81	test_saveToStream_format_nil_01
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	82	\| 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	83
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	84	cs := ChangeSet forExistingClass: ChangeSetTests.
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	85	cs := cs select:[:each \| each isMethodChange and:[ each selector = #setUp ]].
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	86	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	87	chunks := OrderedCollection streamContents:[ :s \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	88	[ output atEnd ] whileFalse:[
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	89	s nextPut: output nextChunk.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	90	].
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	91	].
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	92
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	93	self assert: chunks size == 6.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	94
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	95	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	96	self assert: (chunks at: 2) = ''.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	97	self assert: (chunks at: 3) = 'ChangeSetTests methodsFor: ''running'''.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	98	self assert: (chunks at: 4) = (self class compiledMethodAt: #setUp) source.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	99	self assert: (chunks at: 5) = ''.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	100	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	101
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	102	"Created: / 04-02-2014 / 11:51:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	103	"Modified: / 06-03-2014 / 12:46:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1042 3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	104	!
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	105
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	106	test_saveToStream_format_nil_02
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	107	\| 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	108
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	109	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	110	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	111	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	112	chunks := OrderedCollection streamContents:[ :s \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	113	[ output atEnd ] whileFalse:[
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	114	s nextPut: output nextChunk.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	115	].
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	116	].
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	117
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	118	self assert: chunks size == 6.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	119
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	120	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	121	self assert: (chunks at: 2) = ''.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	122	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	123	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	124	self assert: (chunks at: 5) = ''.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	125	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	126
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	127	"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	128	"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	129	! !
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	130
924 f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	131	!ChangeSetTests methodsFor:'tests - ChangeSet::ClassSourceWriter'!
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	test_ClassSourceWriter_01
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	134	\| sourceFileout cs sourceChangeset\|
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	135
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	136	sourceFileout := String streamContents:[:s\|
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	137	AbstractSourceCodeManager fileOutSourceCodeOf:ChangeSet on:s
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	138	].
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	139
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	140	cs := ChangeSet fromStream: sourceFileout readStream.
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	141
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	142	sourceChangeset := String streamContents:[:s\|
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	143	cs saveToStream:s format:#classSource
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	144	].
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	145	self assert: sourceFileout asByteArray = sourceChangeset asByteArray.
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	146	"
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	147	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	148	'/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	149	'/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	150	"
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	151
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	152	"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	153	"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	154	!
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	155
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	156	test_ClassSourceWriter_02
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	157	\| sourceFileout cs sourceChangeset\|
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	158
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	159	sourceFileout := String streamContents:[:s\|
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	160	AbstractSourceCodeManager fileOutSourceCodeOf:Tools::HierarchicalPackageFilterList on:s
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	161	].
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	162
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	163	cs := ChangeSet fromStream: sourceFileout readStream.
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	164
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	165	sourceChangeset := String streamContents:[:s\|
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	166	cs saveToStream:s format:#classSource
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	167	].
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	168	self assert: sourceFileout asByteArray = sourceChangeset asByteArray.
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	169	"
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	170	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	171	"
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	172
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	173	"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	174	! !
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	175
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	176	!ChangeSetTests methodsFor:'tests - ClassDefinitionChange'!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	177
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	178	test_ClassDefinitionChange_01
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	179
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	180	\| cs \|
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 := ChangeSet fromStream:'
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	183	Object subclass:#MockClass
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	184	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	185	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	186	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	187	category:''tests-Regression-Mocks''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	188	' readStream.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	189
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	190	self assert: cs size == 1.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	191	self assert: cs first className = 'MockClass'.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	192	self assert: (Smalltalk at: #MockClass) isNil.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	193	cs apply.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	194	self assert: (Smalltalk at: #MockClass) notNil.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	195
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	196	"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	197	!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	198
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	199	test_ClassDefinitionChange_01_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	200
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	201	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	202
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	203	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	204	Object subclass:#MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	205	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	206	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	207	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	208	category:''tests-Regression-Mocks''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	209	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	210
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	213	self assert: (Smalltalk at: #MockClass) isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	214	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	215	self assert: (Smalltalk at: #MockClass) notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	216
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	217	"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	218	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	219
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	220	test_ClassDefinitionChange_02
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	221
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	222	\| cs \|
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	223
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	224	cs := ChangeSet fromStream:'
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	225	"{ NameSpace: Mocks }"
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	226
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	227	Object subclass:#MockClass
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	228	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	229	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	230	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	231	category:''tests-Regression-Mocks''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	232	' readStream.
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	self assert: cs size == 1.
912 8705b4ee9a6f class: RegressionTests::ChangeSetTests Claus Gittinger <cg@exept.de> parents: 866 diff changeset	235	self assert: cs first className = 'MockClass'.
8705b4ee9a6f class: RegressionTests::ChangeSetTests Claus Gittinger <cg@exept.de> parents: 866 diff changeset	236	self assert: cs first fullClassName = 'Mocks::MockClass'.
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	237	self assert: cs first nameSpaceName = 'Mocks'.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	238	self assert: (Smalltalk at: #'Mocks::MockClass') isNil.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	239	cs apply.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	240	self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
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	"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	243	!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	244
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	245	test_ClassDefinitionChange_02_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	246
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	247	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	248
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	249	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	250	"{ NameSpace: Mocks }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	251
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	252	Object subclass:#MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	253	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	254	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	255	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	256	category:''tests-Regression-Mocks''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	257	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	258
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	259
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	260
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	261
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	262
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	263	self assert: (Smalltalk at: #'Mocks::MockClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	264	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	265	self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	266
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	267	"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	268	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	269
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	270	test_ClassDefinitionChange_03a
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	271
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	272	\| cs \|
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	273
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	274	cs := ChangeSet fromStream:'
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	275	Object subclass:#MockClass
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	276	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	277	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	278	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	279	category:''tests-Regression-Mocks''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	280
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	281	!!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	282
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	283	Object subclass:#PrivateClass
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	284	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	285	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	286	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	287	privateIn:MockClass
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	288
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	289	' readStream.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	290
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	291	self assert: cs size == 2.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	292	self assert: cs first className = 'MockClass'.
927 d0826769b96a class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 926 diff changeset	293	self assert: cs first fullClassName = 'MockClass'.
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	294	self assert: cs second className = 'MockClass::PrivateClass'.
927 d0826769b96a class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 926 diff changeset	295	self assert: cs second fullClassName = 'MockClass::PrivateClass'.
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	296	self assert: (Smalltalk at: #'MockClass') isNil.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	297	cs apply.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	298	self assert: (Smalltalk at: #'MockClass') notNil.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	299	self assert: (Smalltalk at: #'MockClass::PrivateClass') notNil.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	300	self assert: (Smalltalk at: #'MockClass::PrivateClass') name == #'MockClass::PrivateClass'.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	301	self assert: (Smalltalk at: #'MockClass::PrivateClass') isPrivate
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	302
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	303	"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	304	"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	305	!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	306
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	307	test_ClassDefinitionChange_03a_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	308
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	309	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	310
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	311	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	312	Object subclass:#MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	313	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	314	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	315	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	316	category:''tests-Regression-Mocks''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	317
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	318	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	319
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	320	Object subclass:#PrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	321	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	322	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	323	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	324	privateIn:MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	325
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	326	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	327
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	328
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	329
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	330
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	331
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	332
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	333	self assert: (Smalltalk at: #'MockClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	334	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	335	self assert: (Smalltalk at: #'MockClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	336	self assert: (Smalltalk at: #'MockClass::PrivateClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	337	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	338	self assert: (Smalltalk at: #'MockClass::PrivateClass') isPrivate
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	339
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	340	"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	341	"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	342	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	343
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	344	test_ClassDefinitionChange_03b
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	345
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	346	\| cs \|
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	347
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	348	cs := ChangeSet fromStream:'
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	349	"{ NameSpace: Mocks }"
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	350
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	351	Object subclass:#MockClass
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	352	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	353	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	354	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	355	category:''tests-Regression-Mocks''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	356
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	357	!!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	358
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	359	Object subclass:#PrivateClass
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	360	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	361	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	362	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	363	privateIn:MockClass
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	364
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	365	' readStream.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	366
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	367	self assert: cs size == 2.
912 8705b4ee9a6f class: RegressionTests::ChangeSetTests Claus Gittinger <cg@exept.de> parents: 866 diff changeset	368	self assert: cs first className = 'MockClass'.
8705b4ee9a6f class: RegressionTests::ChangeSetTests Claus Gittinger <cg@exept.de> parents: 866 diff changeset	369	self assert: cs first fullClassName = 'Mocks::MockClass'.
8705b4ee9a6f class: RegressionTests::ChangeSetTests Claus Gittinger <cg@exept.de> parents: 866 diff changeset	370	self assert: cs second className = 'MockClass::PrivateClass'.
8705b4ee9a6f class: RegressionTests::ChangeSetTests Claus Gittinger <cg@exept.de> parents: 866 diff changeset	371	self assert: cs second fullClassName = 'Mocks::MockClass::PrivateClass'.
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	372	self assert: cs second nameSpaceName = 'Mocks'.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	373	self assert: (Smalltalk at: #'Mocks::MockClass') isNil.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	374	cs apply.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	375	self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	376	self assert: (Smalltalk at: #'Mocks::MockClass') isPrivate not.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	377	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') notNil.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	378	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') name == #'Mocks::MockClass::PrivateClass'.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	379	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') isPrivate
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	380
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	381	"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	382	!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	383
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	384	test_ClassDefinitionChange_03b_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	385
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	386	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	387
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	388	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	389	"{ NameSpace: Mocks }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	390
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	391	Object subclass:#MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	392	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	393	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	394	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	395	category:''tests-Regression-Mocks''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	396
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	397	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	398
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	399	Object subclass:#PrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	400	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	401	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	402	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	403	privateIn:MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	404
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	405	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	406
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	407
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	408
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	409
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	410
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	411
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	self assert: (Smalltalk at: #'Mocks::MockClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	414	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	415	self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	416	self assert: (Smalltalk at: #'Mocks::MockClass') isPrivate not.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	417	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	418	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	419	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') isPrivate
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	420
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	421	"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	422	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	423
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	424	test_ClassDefinitionChange_04a
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	425
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	426	\| cs \|
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	427
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	428	cs := ChangeSet fromStream:'
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	429	Object subclass:#MockClass
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	430	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	431	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	432	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	433	category:''tests-Regression-Mocks''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	434	' readStream.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	435
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	436	Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	437	cs apply.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	438	].
1042 3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	439	"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	440	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	441	namespace "
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	442
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	443	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	444	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	445	self assert: (Smalltalk at: #'Mocks::MockClass') isNil
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	446
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	447	"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	448	"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	449	!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	450
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	451	test_ClassDefinitionChange_04a_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	452
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	453	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	454
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	455	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	456	Object subclass:#MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	457	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	458	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	459	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	460	category:''tests-Regression-Mocks''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	461	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	462
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	463	Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	464	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	465	].
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	466	"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	467	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	468	namespace "
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	469
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	470	self assert: (Smalltalk at: #'MockClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	471	self assert: (Smalltalk at: #'MockClass') name == #'MockClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	472	self assert: (Smalltalk at: #'Mocks::MockClass') isNil
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	"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	475	"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	476	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	477
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	478	test_ClassDefinitionChange_04b
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	479
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	480	\| cs \|
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	481
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	482	cs := ChangeSet fromStream:'
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	483	"{ NameSpace: Mocks2 }"
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	484
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	485	Object subclass:#MockClass
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	486	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	487	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	488	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	489	category:''tests-Regression-Mocks''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	490	' readStream.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	491
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	492	Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	493	cs apply.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	494	].
1042 3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	495	"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	496	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	497	namespace "
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	498
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	499	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	500	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	501	self assert: (Smalltalk at: #'Mocks::MockClass') isNil.
794 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	"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	504	"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	505	!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	506
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	507	test_ClassDefinitionChange_04b_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	508
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	509	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	510
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	511	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	512	"{ NameSpace: Mocks2 }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	513
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	514	Object subclass:#MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	515	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	516	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	517	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	518	category:''tests-Regression-Mocks''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	519	' readStream.
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	Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	522	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	523	].
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	524	"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	525	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	526	namespace "
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	527
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	528	self assert: (Smalltalk at: #'Mocks2::MockClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	529	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	530	self assert: (Smalltalk at: #'Mocks::MockClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	531
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	532	"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	533	"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	534	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	535
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	536	test_ClassDefinitionChange_04c
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	537
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	538	\| cs \|
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	539
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	540	cs := ChangeSet fromStream:'
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	541	"{ NameSpace: Mocks }"
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	542
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	543	Object subclass:#MockClass
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	544	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	545	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	546	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	547	category:''tests-Regression-Mocks''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	548	' readStream.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	549
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	550	Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	551	cs apply.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	552	].
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	553	self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	554	self assert: (Smalltalk at: #'Mocks::MockClass') name == #'Mocks::MockClass'.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	555
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	556	"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	557	!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	558
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	559	test_ClassDefinitionChange_04c_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	560
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	561	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	562
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	563	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	564	"{ NameSpace: Mocks }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	565
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	566	Object subclass:#MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	567	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	568	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	569	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	570	category:''tests-Regression-Mocks''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	571	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	572
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	573	Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	574	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	575	].
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	576	self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	577	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	578
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	579	"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	580	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	581
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	582	test_ClassDefinitionChange_04d
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	583
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	584	\| cs \|
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	cs := ChangeSet fromStream:'
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	587	Object subclass:#MockClass
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	588	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	589	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	590	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	591	category:''tests-Regression-Mocks''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	592	' readStream.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	593
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	594	cs first nameSpaceOverride: (NameSpace name: #Mocks).
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	595	cs apply.
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	self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	598	self assert: (Smalltalk at: #'Mocks::MockClass') name == #'Mocks::MockClass'.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	599
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	600	"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	601	!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	602
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	603	test_ClassDefinitionChange_04e
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	\| cs \|
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	cs := ChangeSet fromStream:'
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	608	"{ NameSpace: Mocks2 }"
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	609
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	610	Object subclass:#MockClass
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	611	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	612	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	613	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	614	category:''tests-Regression-Mocks''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	615	' readStream.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	616
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	617	cs first nameSpaceOverride: (NameSpace name: #Mocks).
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	618	cs apply.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	619
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	620	self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	621	self assert: (Smalltalk at: #'Mocks::MockClass') name == #'Mocks::MockClass'.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	622
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	623	"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	624	!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	625
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	626	test_ClassDefinitionChange_05a
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	627
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	628	\| cs \|
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	629
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	630	cs := ChangeSet fromStream:'
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	631	Object subclass:#MockClass
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	632	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	633	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	634	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	635	category:''tests-Regression-Mocks''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	636	!!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	637
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	638	Object subclass:#PrivateClass
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	639	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	640	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	641	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	642	privateIn:MockClass
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	643
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	644
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	645	' readStream.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	646
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	647	Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	648	cs apply.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	649	].
1042 3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	650	"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	651	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	652	namespace "
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	653
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	654	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	655	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	656	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') isNil.
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	657
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	658	"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	659	"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	660	!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	661
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	662	test_ClassDefinitionChange_05a_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	663
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	664	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	665
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	666	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	667	Object subclass:#MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	668	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	669	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	670	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	671	category:''tests-Regression-Mocks''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	672	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	673
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	674	Object subclass:#PrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	675	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	676	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	677	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	678	privateIn:MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	679
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	680
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	681	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	682
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	683	Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	684	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	685	].
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	686	"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	687	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	688	namespace "
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	689
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	690	self assert: (Smalltalk at: #'MockClass::PrivateClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	691	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	692	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	693
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	694	"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	695	"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	696	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	697
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	698	test_ClassDefinitionChange_05b
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	699
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	700	\| cs \|
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	701
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	702	cs := ChangeSet fromStream:'
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	703	"{ NameSpace: Mocks2 }"
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	704
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	705	Object subclass:#MockClass
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	706	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	707	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	708	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	709	category:''tests-Regression-Mocks''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	710	!!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	711
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	712	Object subclass:#PrivateClass
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	713	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	714	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	715	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	716	privateIn:MockClass
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	717
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	718
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	719	' readStream.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	720
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	721	Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	722	cs apply.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	723	].
1042 3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	724	"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	725	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	726	namespace "
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	727
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	728	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	729	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	730	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') isNil.
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	731
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	732	"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	733	"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	734	!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	735
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	736	test_ClassDefinitionChange_05b_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	737
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	738	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	739
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	740	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	741	"{ NameSpace: Mocks2 }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	742
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	743	Object subclass:#MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	744	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	745	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	746	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	747	category:''tests-Regression-Mocks''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	748	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	749
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	750	Object subclass:#PrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	751	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	752	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	753	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	754	privateIn:MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	755
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	756
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	757	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	758
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	759	Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	760	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	761	].
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	762	"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	763	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	764	namespace "
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	765
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	766	self assert: (Smalltalk at: #'Mocks2::MockClass::PrivateClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	767	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	768	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') isNil.
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	"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	771	"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	772	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	773
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	774	test_ClassDefinitionChange_05c
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	775
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	776	\| cs \|
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	777
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	778	cs := ChangeSet fromStream:'
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	779	"{ NameSpace: Mocks }"
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	780
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	781	Object subclass:#MockClass
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	782	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	783	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	784	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	785	category:''tests-Regression-Mocks''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	786	!!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	787
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	788	Object subclass:#PrivateClass
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	789	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	790	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	791	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	792	privateIn:MockClass
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	793
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	794
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	795	' readStream.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	796
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	797	Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	798	cs apply.
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	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') notNil.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	801	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') name == #'Mocks::MockClass::PrivateClass'.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	802
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	803	"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	804	!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	805
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	806	test_ClassDefinitionChange_05c_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	807
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	808	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	809
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	810	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	811	"{ NameSpace: Mocks }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	812
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	813	Object subclass:#MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	814	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	815	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	816	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	817	category:''tests-Regression-Mocks''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	818	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	819
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	820	Object subclass:#PrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	821	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	822	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	823	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	824	privateIn:MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	825
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	826
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	827	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	828
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	829	Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	830	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	831	].
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	832	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	833	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	834
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	835	"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	836	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	837
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	838	test_ClassDefinitionChange_05d
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	839
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	840	\| cs \|
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	cs := ChangeSet fromStream:'
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	843	Object subclass:#MockClass
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	category:''tests-Regression-Mocks''
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	Object subclass:#PrivateClass
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	851	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	852	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	853	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	854	privateIn:MockClass
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
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	857	' readStream.
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	cs first nameSpaceOverride: (NameSpace name: #Mocks).
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	860	cs second nameSpaceOverride: (NameSpace name: #Mocks).
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	861	cs apply.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	862
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	863	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') notNil.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	864	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') name == #'Mocks::MockClass::PrivateClass'.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	865
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	866	"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	867	!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	868
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	869	test_ClassDefinitionChange_05e
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	870
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	871	\| cs \|
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	872
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	873	cs := ChangeSet fromStream:'
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	874	"{ NameSpace: Mocks2 }"
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	875
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	876	Object subclass:#MockClass
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	877	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	878	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	879	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	880	category:''tests-Regression-Mocks''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	881	!!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	882
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	883	Object subclass:#PrivateClass
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	884	instanceVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	885	classVariableNames:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	886	poolDictionaries:''''
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	887	privateIn:MockClass
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	888
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	889
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	890	' readStream.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	891
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	892	cs first nameSpaceOverride: (NameSpace name: #Mocks).
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	893	cs second nameSpaceOverride: (NameSpace name: #Mocks).
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	894	cs apply.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	895
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	896	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') notNil.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	897	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') name == #'Mocks::MockClass::PrivateClass'.
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	898
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	899	"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	900	!
72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	901
72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	902	test_ClassDefinitionChange_06a
72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	903	\| cs \|
72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	904
72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	905	"Test nil superclass"
72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	906
72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	907	cs := ChangeSet fromStream:'
72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	908	nil subclass:#MockClass
72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	909	instanceVariableNames:''''
72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	910	classVariableNames:''''
72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	911	poolDictionaries:''''
72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	912	category:''tests-Regression-Mocks''
72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	913	' readStream.
72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	914
72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	915	cs apply.
72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	916
72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	917	self assert: (Smalltalk at: #MockClass) superclass isNil
72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	918
72b27d83338f class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 928 diff changeset	919	"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	920	!
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	921
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	922	test_ClassDefinitionChange_06a_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	923	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	924
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	925	"Test nil superclass"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	926
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	927	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	928	nil subclass:#MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	929	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	930	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	931	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	932	category:''tests-Regression-Mocks''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	933	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	934
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	935	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	936
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	937	self assert: (Smalltalk at: #MockClass) superclass isNil
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	938
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	939	"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	940	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	941
1006 9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	942	test_ClassDefinitionChange_07a
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	943	\| cs \|
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	944
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	945	"Test nil superclass"
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	946
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	947	cs := ChangeSet fromStream:'
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	948	Object subclass:#ExistingPrivateClass
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	949	instanceVariableNames:''''
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	950	classVariableNames:''''
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	951	poolDictionaries:''''
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	952	privateIn:RegressionTests::ChangeSetTests
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	953	' readStream.
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	954
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	955
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	956	self assert: cs size == 1.
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	957	self assert: cs anElement isClassDefinitionChange.
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	958	self assert: cs anElement changeClass == ExistingPrivateClass.
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	959
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	960	"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	961	!
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	962
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	963	test_ClassDefinitionChange_07a_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	964	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	965
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	966	"Test nil superclass"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	967
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	968	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	969	Object subclass:#ExistingPrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	970	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	971	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	972	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	973	privateIn:RegressionTests::ChangeSetTests
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	974	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	975
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	976
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	977
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	978
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	979
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	980
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	981	"Created: / 12-11-2013 / 17:53:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	982	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	983
1006 9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	984	test_ClassDefinitionChange_07b
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	985	\| cs \|
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	986
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	987	"Test nil superclass"
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	988
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	989	cs := ChangeSet fromStream:'
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	990	"{ NameSpace: RegressionTests }"
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	991
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	992	Object subclass:#ExistingPrivateClass
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	993	instanceVariableNames:''''
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	994	classVariableNames:''''
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	995	poolDictionaries:''''
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	996	privateIn:ChangeSetTests
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	997	' readStream.
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	998
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	999
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	1000	self assert: cs size == 1.
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	1001	self assert: cs anElement isClassDefinitionChange.
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	1002	self assert: cs anElement changeClass == ExistingPrivateClass.
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	1003
9433a9a7d974 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 947 diff changeset	1004	"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	1005	!
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1006
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1007	test_ClassDefinitionChange_07b_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1008	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1009
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1010	"Test nil superclass"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1011
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1012	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1013	"{ NameSpace: RegressionTests }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1014
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1015	Object subclass:#ExistingPrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1016	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1017	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1018	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1019	privateIn:ChangeSetTests
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1020	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1021
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1022
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1023
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1024
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1025
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1026
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1027	"Created: / 12-11-2013 / 17:54:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1028	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1029
1007 ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1030	test_ClassDefinitionChange_08a
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1031	\| cs \|
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	"Test nil superclass"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1034
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1035	cs := ChangeSet fromStream:'
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1036	"{ NameSpace: RegressionTests }"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1037
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1038	TestCase subclass:#ChangeSetTests
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1039	instanceVariableNames:''classes''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1040	classVariableNames:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1041	poolDictionaries:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1042	category:''tests-Regression-System-Changes''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1043	' readStream.
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
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1046	self assert: cs size == 1.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1047	self assert: cs anElement isClassDefinitionChange.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1048	self assert: cs anElement changeClass == ChangeSetTests.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1049	self assert: cs anElement delta == #'='
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1050
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1051	"Created: / 13-11-2013 / 17:41:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1052	!
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1053
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1054	test_ClassDefinitionChange_08a_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1055	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1056
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1057	"Test nil superclass"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1058
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1059	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1060	"{ NameSpace: RegressionTests }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1061
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1062	TestCase subclass:#ChangeSetTests
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1063	instanceVariableNames:''classes''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1064	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1065	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1066	category:''tests-Regression-System-Changes''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1067	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1068
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1069
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1070
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1071
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1072
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1073
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1074
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1075	"Created: / 13-11-2013 / 17:41:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1076	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1077
1007 ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1078	test_ClassDefinitionChange_08b
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1079	\| cs \|
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1080
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1081	"Test nil superclass"
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	cs := ChangeSet fromStream:'
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1084	"{ NameSpace: RegressionTests }"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1085
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1086	TestCase subclass:#ChangeSetTests
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1087	instanceVariableNames:''classes someMoreData''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1088	classVariableNames:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1089	poolDictionaries:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1090	category:''tests-Regression-System-Changes''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1091	' readStream.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1092
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1093
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1094	self assert: cs size == 1.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1095	self assert: cs anElement isClassDefinitionChange.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1096	self assert: cs anElement delta == #'~'
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1097
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1098	"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	1099	!
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1100
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1101	test_ClassDefinitionChange_08b_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1102	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1103
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1104	"Test nil superclass"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1105
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1106	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1107	"{ NameSpace: RegressionTests }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1108
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1109	TestCase subclass:#ChangeSetTests
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1110	instanceVariableNames:''classes someMoreData''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1111	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1112	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1113	category:''tests-Regression-System-Changes''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1114	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1115
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1116
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1117
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1118
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1119
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1120
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1121	"Created: / 13-11-2013 / 17:43:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1122	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1123
1007 ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1124	test_ClassDefinitionChange_08c
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1125	\| cs \|
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1126
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1127	"Test nil superclass"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1128
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1129	cs := ChangeSet fromStream:'
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1130	"{ NameSpace: RegressionTests }"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1131
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1132	Object subclass:#ExistingPrivateClass
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1133	instanceVariableNames:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1134	classVariableNames:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1135	poolDictionaries:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1136	privateIn:ChangeSetTests
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1137	' readStream.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1138
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1139
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1140	self assert: cs size == 1.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1141	self assert: cs anElement isClassDefinitionChange.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1142	self assert: cs anElement delta == #'='
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1143
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1144	"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	1145	!
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1146
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1147	test_ClassDefinitionChange_08c_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1148	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1149
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1150	"Test nil superclass"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1151
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1152	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1153	"{ NameSpace: RegressionTests }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1154
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1155	Object subclass:#ExistingPrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1156	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1157	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1158	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1159	privateIn:ChangeSetTests
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1160	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1161
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1162
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1163
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1164
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1165
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1166
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1167	"Created: / 13-11-2013 / 17:44:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1168	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1169
1007 ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1170	test_ClassDefinitionChange_08d
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1171	\| cs \|
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1172
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1173	"Test nil superclass"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1174
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1175	cs := ChangeSet fromStream:'
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1176	"{ NameSpace: RegressionTests }"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1177
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1178	Object subclass:#ExistingPrivateClass
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1179	instanceVariableNames:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1180	classVariableNames:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1181	poolDictionaries:''somePool''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1182	privateIn:ChangeSetTests
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1183	' readStream.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1184
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1185
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1186	self assert: cs size == 1.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1187	self assert: cs anElement isClassDefinitionChange.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1188	self assert: cs anElement delta == #'~'
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1189
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1190	"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	1191	!
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1192
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1193	test_ClassDefinitionChange_08d_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1194	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1195
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1196	"Test nil superclass"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1197
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1198	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1199	"{ NameSpace: RegressionTests }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1200
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1201	Object subclass:#ExistingPrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1202	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1203	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1204	poolDictionaries:''somePool''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1205	privateIn:ChangeSetTests
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1206	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1207
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1208
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1209
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1210
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1211
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1212
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1213	"Created: / 13-11-2013 / 17:44:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1214	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1215
1007 ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1216	test_ClassDefinitionChange_08e
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1217	\| cs \|
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1218
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1219	"Test nil superclass"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1220
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1221	cs := ChangeSet fromStream:'
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1222	"{ NameSpace: RegressionTests }"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1223
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1224	TestCase subclass:#ChangeSetTests2
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1225	instanceVariableNames:''classes someMoreData''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1226	classVariableNames:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1227	poolDictionaries:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1228	category:''tests-Regression-System-Changes''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1229	' readStream.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1230
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1231
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1232	self assert: cs size == 1.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1233	self assert: cs anElement isClassDefinitionChange.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1234	self assert: cs anElement delta == #'+'
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1235
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1236	"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	1237	!
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1238
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1239	test_ClassDefinitionChange_08e_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1240	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1241
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1242	"Test nil superclass"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1243
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1244	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1245	"{ NameSpace: RegressionTests }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1246
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1247	TestCase subclass:#ChangeSetTests2
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1248	instanceVariableNames:''classes someMoreData''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1249	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1250	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1251	category:''tests-Regression-System-Changes''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1252	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1253
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1254
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1255
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1256
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1257
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1258
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1259	"Created: / 13-11-2013 / 17:44:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1260	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1261
1007 ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1262	test_ClassDefinitionChange_08f
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1263	\| cs \|
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1264
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1265	"Test nil superclass"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1266
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1267	cs := ChangeSet fromStream:'
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1268	"{ NameSpace: RegressionTests }"
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1269
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1270	Object subclass:#ExistingPrivateClass2
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1271	instanceVariableNames:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1272	classVariableNames:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1273	poolDictionaries:''''
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1274	privateIn:ChangeSetTests
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1275	' readStream.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1276
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1277
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1278	self assert: cs size == 1.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1279	self assert: cs anElement isClassDefinitionChange.
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1280	self assert: cs anElement delta == #'+'
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1281
ad329f1d5fcf class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1006 diff changeset	1282	"Created: / 13-11-2013 / 17:44:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1283	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1284
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1285	test_ClassDefinitionChange_08f_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1286	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1287
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1288	"Test nil superclass"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1289
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1290	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1291	"{ NameSpace: RegressionTests }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1292
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1293	Object subclass:#ExistingPrivateClass2
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1294	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1295	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1296	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1297	privateIn:ChangeSetTests
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1298	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1299
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1300
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1301
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1302
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1303
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1304
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1305	"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	1306	! !
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1307
924 f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	1308	!ChangeSetTests methodsFor:'tests - MethodDefinitionChange'!
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	1309
925 d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1310	test_MethodDefinitionChange_01
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1311
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1312	\| cs \|
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1313
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1314	cs := ChangeSet fromStream:'
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1315	Object subclass:#MockClass
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1316	instanceVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1317	classVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1318	poolDictionaries:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1319	category:''tests-Regression-Mocks''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1320	!!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1321
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1322	!!MockClass methodsFor:''methods''!!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1323
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1324	foo
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1325
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1326	!! !!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1327
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1328	' readStream.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1329
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1330	self assert: cs size == 2.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1331	self assert: cs second className = 'MockClass'.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1332	self assert: cs second fullClassName = 'MockClass'.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1333	self assert: (Smalltalk at: #MockClass) isNil.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1334	cs apply.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1335	self assert: (Smalltalk at: #MockClass) notNil.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1336	self assert:((Smalltalk at: #MockClass) methodDictionary includesKey: #foo)
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1337
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1338	"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	1339	!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1340
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1341	test_MethodDefinitionChange_01_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1342
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1343	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1344
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1345	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1346	Object subclass:#MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1347	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1348	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1349	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1350	category:''tests-Regression-Mocks''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1351	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1352
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1353	!!MockClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1354
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1355	foo
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1356
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1357	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1358
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1359	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1360
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1361	self assert: (Smalltalk at: #MockClass) isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1362	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1363	self assert: (Smalltalk at: #MockClass) notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1364	self assert:((Smalltalk at: #MockClass) methodDictionary includesKey: #foo)
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1365
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1366	"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	1367	"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	1368	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1369
925 d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1370	test_MethodDefinitionChange_02
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1371
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1372	\| cs \|
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1373
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1374	cs := ChangeSet fromStream:'
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1375	"{ NameSpace: Mocks }"
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1376
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1377	Object subclass:#MockClass
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1378	instanceVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1379	classVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1380	poolDictionaries:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1381	category:''tests-Regression-Mocks''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1382	!!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1383
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1384	!!MockClass methodsFor:''methods''!!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1385
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1386	foo
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1387
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1388	!! !!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1389
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1390	' readStream.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1391
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1392	self assert: cs size == 2.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1393	self assert: cs second className = 'MockClass'.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1394	self assert: cs second fullClassName = 'Mocks::MockClass'.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1395	self assert: (Smalltalk at: #'Mocks::MockClass') isNil.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1396	cs apply.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1397	self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1398	self assert:((Smalltalk at: #'Mocks::MockClass') methodDictionary includesKey: #foo)
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1399
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1400	"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	1401	!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1402
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1403	test_MethodDefinitionChange_02_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1404
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1405	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1406
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1407	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1408	"{ NameSpace: Mocks }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1409
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1410	Object subclass:#MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1411	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1412	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1413	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1414	category:''tests-Regression-Mocks''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1415	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1416
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1417	!!MockClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1418
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1419	foo
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1420
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1421	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1422
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1423	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1424
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1425	self assert: (Smalltalk at: #'Mocks::MockClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1426	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1427	self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1428	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	1429
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1430	"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	1431	"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	1432	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1433
926 7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1434	test_MethodDefinitionChange_02a
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1435	"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	1436	extension container"
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1437
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1438	\| cs \|
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1439
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1440	cs := ChangeSet fromStream:'"{ Package: ''stx:libtool'' }"!!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1441
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1442	!!AbstractSyntaxHighlighter class methodsFor:''api highlighting''!!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1443
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1444	formatExpression:aString in:aClass elementsInto:elementsCollection
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1445
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1446	^self formatExpression:aString in:aClass
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1447
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1448	!! !!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1449
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1450	!!AbstractSyntax class methodsFor:''xxx highlighting''!!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1451
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1452	xxx:aString in:aClass elementsInto:elementsCollection
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1453
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1454	^self formatExpression:aString in:aClass
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1455
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1456	!! !!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1457
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1458	' readStream.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1459
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1460	self assert: cs size = 2.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1461	self assert: cs first package = 'stx:libtool'.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1462	self assert: cs second package = 'stx:libtool'.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1463
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1464	"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	1465	"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	1466	!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1467
925 d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1468	test_MethodDefinitionChange_03a
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1469
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1470	\| cs \|
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1471
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1472	cs := ChangeSet fromStream:'
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1473	Object subclass:#MockClass
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1474	instanceVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1475	classVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1476	poolDictionaries:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1477	category:''tests-Regression-Mocks''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1478	!!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1479
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1480	Object subclass:#PrivateClass
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1481	instanceVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1482	classVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1483	poolDictionaries:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1484	privateIn:MockClass
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1485	!!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1486
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1487	!!MockClass::PrivateClass methodsFor:''methods''!!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1488
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1489	foo
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1490
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1491	!! !!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1492	' readStream.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1493
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1494	self assert: cs size == 3.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1495	self assert: cs third className = 'MockClass::PrivateClass'.
928 bc2301253761 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 927 diff changeset	1496	self assert: cs third fullClassName = 'MockClass::PrivateClass'.
925 d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1497	self assert: (Smalltalk at: #'MockClass') isNil.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1498	cs apply.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1499	self assert:((Smalltalk at: #'MockClass::PrivateClass') methodDictionary includesKey: #foo)
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1500
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1501	"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	1502	"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	1503	!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1504
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1505	test_MethodDefinitionChange_03a_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1506
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1507	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1508
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1509	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1510	Object subclass:#MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1511	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1512	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1513	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1514	category:''tests-Regression-Mocks''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1515	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1516
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1517	Object subclass:#PrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1518	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1519	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1520	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1521	privateIn:MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1522	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1523
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1524	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1525
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1526	foo
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1527
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1528	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1529	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1530
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1531
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1532
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1533
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1534	self assert: (Smalltalk at: #'MockClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1535	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1536	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	1537
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1538	"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	1539	"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	1540	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1541
925 d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1542	test_MethodDefinitionChange_03b
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1543
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1544	\| cs \|
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1545
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1546	cs := ChangeSet fromStream:'
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1547	"{ NameSpace: Mocks }"
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1548
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1549	Object subclass:#MockClass
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1550	instanceVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1551	classVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1552	poolDictionaries:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1553	category:''tests-Regression-Mocks''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1554	!!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1555
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1556	Object subclass:#PrivateClass
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1557	instanceVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1558	classVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1559	poolDictionaries:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1560	privateIn:MockClass
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1561	!!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1562
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1563	!!MockClass::PrivateClass methodsFor:''methods''!!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1564
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1565	foo
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1566
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1567	!! !!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1568	' readStream.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1569
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1570	self assert: cs size == 3.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1571	self assert: cs third className = 'MockClass::PrivateClass'.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1572	self assert: cs third fullClassName = 'Mocks::MockClass::PrivateClass'.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1573	self assert: (Smalltalk at: #'Mocks::MockClass') isNil.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1574	cs apply.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1575	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	1576
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1577	"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	1578
926 7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1579	!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1580
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1581	test_MethodDefinitionChange_03b_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1582
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1583	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1584
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1585	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1586	"{ NameSpace: Mocks }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1587
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1588	Object subclass:#MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1589	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1590	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1591	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1592	category:''tests-Regression-Mocks''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1593	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1594
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1595	Object subclass:#PrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1596	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1597	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1598	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1599	privateIn:MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1600	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1601
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1602	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1603
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1604	foo
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1605
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1606	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1607	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1608
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1609
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1610
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1611
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1612	self assert: (Smalltalk at: #'Mocks::MockClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1613	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1614	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	1615
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1616	"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	1617
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1618	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1619
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1620	test_MethodDefinitionChange_04a
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1621
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1622	\| cs \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1623
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1624	cs := ChangeSet fromStream:'
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1625	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1626
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1627	foo
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	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1631
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1632	self assert: cs size == 1.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1633	self assert: cs first className = 'MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1634	self assert: cs first fullClassName = 'MockClass::PrivateClass'.
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	"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	1637	!
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	test_MethodDefinitionChange_04a_fileIn
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	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1642
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1643	self assert: (Smalltalk at: #'MockClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1644	self assert: (Smalltalk at: #'MockClass::PrivateClass') isNil.
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	Object subclass:#MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1648	instanceVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1649	classVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1650	poolDictionaries:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1651	category:'tests-Regression-System-Changes'.
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	Object subclass: #PrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1654	instanceVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1655	classVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1656	poolDictionaries: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1657	privateIn: (Smalltalk at: #'MockClass').
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1660	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1661	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1662
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1663	foo
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	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1666	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1667	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1668
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1669	self assert: (Smalltalk at: #'MockClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1670	self assert: (Smalltalk at: #'MockClass::PrivateClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1671	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	1672
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1673	"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	1674	"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	1675	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1676
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1677	test_MethodDefinitionChange_04b
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1678
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1679	\| cs \|
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	cs := ChangeSet fromStream:'
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1682	"{ NameSpace: Mocks }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1683
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1684	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1685	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1686
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1687	foo
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1688
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1689	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1690	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1691
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1692	self assert: cs size == 1.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1693	self assert: cs first className = 'MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1694	self assert: cs first fullClassName = 'Mocks::MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1695
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1696	"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	1697	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1698
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1699	test_MethodDefinitionChange_04b_fileIn
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	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1702
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1703	self assert: (Smalltalk at: #'Mocks::MockClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1704	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1705
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1706	Class nameSpaceQuerySignal answer: (NameSpace name: #'Mocks') do:[
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	Object subclass:#MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1709	instanceVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1710	classVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1711	poolDictionaries:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1712	category:'tests-Regression-System-Changes'.
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	Object subclass: #PrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1715	instanceVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1716	classVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1717	poolDictionaries: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1718	privateIn: (Smalltalk at: #'Mocks::MockClass').
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
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	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1723	"{ NameSpace: Mocks }"
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	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1726	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1727
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1728	foo
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1729
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1730	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1731	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1732	changefile readStream fileIn.
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	self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1735	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1736	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	1737
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1738	"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	1739	"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	1740	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1741
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1742	test_MethodDefinitionChange_05a
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1743
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1744	\| cs \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1745
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1746	cs := ChangeSet fromStream:'
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1747	!!MockClass::PrivateClass methodsFor:''methods''!!
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	foo
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1750
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1751	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1752	"{ NameSpace: Mocks }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1753
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1754	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1755	!!MockClass2::PrivateClass methodsFor:''methods''!!
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	bar
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1758
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1759	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1760
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1761	' readStream.
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	self assert: cs size == 2.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1764	self assert: cs first className = 'MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1765	self assert: cs first fullClassName = 'MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1766	self assert: cs second className = 'MockClass2::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1767	self assert: cs second fullClassName = 'Mocks::MockClass2::PrivateClass'.
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	"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	1770	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1771
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1772	test_MethodDefinitionChange_05a_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1773
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1774	\| changefile \|
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	self assert: (Smalltalk at: #'MockClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1777	self assert: (Smalltalk at: #'MockClass::PrivateClass') isNil.
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1780	Object subclass:#MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1781	instanceVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1782	classVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1783	poolDictionaries:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1784	category:'tests-Regression-System-Changes'.
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	Object subclass: #PrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1787	instanceVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1788	classVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1789	poolDictionaries: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1790	privateIn: (Smalltalk at: #'MockClass').
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	Class nameSpaceQuerySignal answer: (NameSpace name: #'Mocks') do:[
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	Object subclass:#MockClass2
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1795	instanceVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1796	classVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1797	poolDictionaries:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1798	category:'tests-Regression-System-Changes'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1799
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1800	Object subclass: #PrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1801	instanceVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1802	classVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1803	poolDictionaries: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1804	privateIn: (Smalltalk at: #'Mocks::MockClass2').
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	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1808	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1809
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1810	foo
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1811
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1812	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1813	"{ NameSpace: Mocks }"
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	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1816	!!MockClass2::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1817
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1818	bar
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1819
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1820	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1821
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1822	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1823
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1824	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1825	self assert: (Smalltalk at: #'MockClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1826	self assert: (Smalltalk at: #'MockClass::PrivateClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1827	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	1828	self assert: (Smalltalk at: #'Mocks::MockClass2') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1829	self assert: (Smalltalk at: #'Mocks::MockClass2::PrivateClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1830	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	1831
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1832	"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	1833	"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	1834	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1835
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1836	test_MethodDefinitionChange_05b
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1837
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1838	\| cs \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1839
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1840	cs := ChangeSet fromStream:'
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1841	"{ NameSpace: Mocks2 }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1842
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1843	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1844	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1845
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1846	foo
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	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1849	"{ NameSpace: Mocks }"
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	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1852	!!MockClass2::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1853
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1854	bar
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1858	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1859
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1860	self assert: cs size == 2.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1861	self assert: cs first className = 'MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1862	self assert: cs first fullClassName = 'Mocks2::MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1863	self assert: cs second className = 'MockClass2::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1864	self assert: cs second fullClassName = 'Mocks::MockClass2::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1865
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1866	"Created: / 06-03-2014 / 10: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	1867	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1868
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1869	test_MethodDefinitionChange_05b_fileIn
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	\| changefile \|
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	Class nameSpaceQuerySignal answer: (NameSpace name: #'Mocks2') do:[
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	Object subclass:#MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1876	instanceVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1877	classVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1878	poolDictionaries:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1879	category:'tests-Regression-System-Changes'.
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	Object subclass: #PrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1882	instanceVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1883	classVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1884	poolDictionaries: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1885	privateIn: (Smalltalk at: #'Mocks2::MockClass').
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	].
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	Class nameSpaceQuerySignal answer: (NameSpace name: #'Mocks') do:[
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	Object subclass:#MockClass2
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1892	instanceVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1893	classVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1894	poolDictionaries:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1895	category:'tests-Regression-System-Changes'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1896
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1897	Object subclass: #PrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1898	instanceVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1899	classVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1900	poolDictionaries: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1901	privateIn: (Smalltalk at: #'Mocks::MockClass2').
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1905	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1906	"{ NameSpace: Mocks2 }"
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	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1909	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1910
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1911	foo
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1912
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1913	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1914	"{ NameSpace: Mocks }"
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	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1917	!!MockClass2::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1918
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1919	bar
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1920
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1921	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1922
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1923	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1924
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1925	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1926
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1927	self assert: (Smalltalk at: #'Mocks2::MockClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1928	self assert: (Smalltalk at: #'Mocks2::MockClass::PrivateClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1929	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	1930	self assert: (Smalltalk at: #'Mocks::MockClass2') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1931	self assert: (Smalltalk at: #'Mocks::MockClass2::PrivateClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1932	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	1933
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1934	"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	1935	"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	1936	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1937
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1938	test_MethodDefinitionChange_05c
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	\| cs \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1941
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1942	cs := ChangeSet fromStream:'
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1943	"{ NameSpace: Mocks2 }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1944
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1945	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1946	!!MockClass::PrivateClass methodsFor:''methods''!!
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	foo
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1949
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1950	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1951	"{ NameSpace: Smalltalk }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1952
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1953	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1954	!!MockClass2::PrivateClass methodsFor:''methods''!!
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	bar
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	!! !!
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	' readStream.
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: cs size == 2.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1963	self assert: cs first className = 'MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1964	self assert: cs first fullClassName = 'Mocks2::MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1965	self assert: cs second className = 'MockClass2::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1966	self assert: cs second fullClassName = 'MockClass2::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1967
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1968	"Created: / 06-03-2014 / 10: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	1969	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1970
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1971	test_MethodDefinitionChange_05c_fileIn
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	\| changefile \|
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	Class nameSpaceQuerySignal answer: (NameSpace name: #'Mocks2') do:[
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	Object subclass:#MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1978	instanceVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1979	classVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1980	poolDictionaries:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1981	category:'tests-Regression-System-Changes'.
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	Object subclass: #PrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1984	instanceVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1985	classVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1986	poolDictionaries: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1987	privateIn: (Smalltalk at: #'Mocks2::MockClass').
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1990	Object subclass:#MockClass2
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1991	instanceVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1992	classVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1993	poolDictionaries:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1994	category:'tests-Regression-System-Changes'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1995
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1996	Object subclass: #PrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1997	instanceVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1998	classVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1999	poolDictionaries: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2000	privateIn: (Smalltalk at: #'MockClass2').
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2001
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2002
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2003
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2004	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2005	"{ NameSpace: Mocks2 }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2006
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2007	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2008	!!MockClass::PrivateClass methodsFor:''methods''!!
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	foo
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	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2013	"{ NameSpace: Smalltalk }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2014
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2015	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2016	!!MockClass2::PrivateClass methodsFor:''methods''!!
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	bar
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2019
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2020	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2021
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2022	' readStream.
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	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2025	self assert: (Smalltalk at: #'Mocks2::MockClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2026	self assert: (Smalltalk at: #'Mocks2::MockClass::PrivateClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2027	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	2028	self assert: (Smalltalk at: #'MockClass2') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2029	self assert: (Smalltalk at: #'MockClass2::PrivateClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2030	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	2031
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2032	"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	2033	"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	2034	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2035
926 7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2036	test_MethodDefinitionChange_jextension_01a
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2037	"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	2038
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2039	\| cs \|
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2040
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2041	cs := ChangeSet fromStream:'
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2042	!!(Java classForName:''java.lang.Long'') class methodsFor:''queries''!!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2043
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2044	javaWrap: object
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2045	\|inst\|
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2046	inst := self basicNew.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2047	inst perform: #''<init>(J)V'' with: object with: nil.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2048	^ inst.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2049	!! !!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2050	' readStream.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2051
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2052	self assert: cs size == 1.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2053
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2054	"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	2055	!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2056
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2057	test_MethodDefinitionChange_jextension_01b
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2058	"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	2059
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2060	\| cs \|
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2061
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2062	cs := ChangeSet fromStream:'
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2063	!!(Java classForName:''java.lang.Long'') methodsFor:''queries''!!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2064
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2065	javaWrap: object
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2066	\|inst\|
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2067	inst := self basicNew.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2068	inst perform: #''<init>(J)V'' with: object with: nil.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2069	^ inst.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2070	!! !!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2071	' readStream.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2072
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2073	self assert: cs size == 1.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2074
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2075	"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	2076	! !
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	2077
866 30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2078	!ChangeSetTests methodsFor:'tests - utf8'!
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2079
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2080	test_reading_utf8_01
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2081	"
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2082	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	2083	"
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2084	\| file cs \|
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2085
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2086	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	2087	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	2088	"
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2089	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	2090	"
866 30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2091	cs := ChangeSet fromFile: file.
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2092	self assert: cs size == 4.
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2093	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	2094	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	2095
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2096	"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	2097	"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	2098	!
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2099
1105 1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2100	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	2101	"
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2102	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	2103	"
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2104	\| file stream cs \|
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2105
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2106	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	2107	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	2108	"
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2109	file contents asString
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2110	"
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2111	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	2112	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	2113	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	2114	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	2115	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	2116
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2117	"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	2118	!
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2119
1042 3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2120	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	2121	\| 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	2122
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2123	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	2124	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	2125	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	2126
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2127	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	2128
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2129	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	2130
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2131	"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	2132	"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	2133	! !
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2134
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2135	!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	2136
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2137	bar
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2138	^ '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	2139
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2140	"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	2141	!
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2142
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2143	foo
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2144	^ 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	2145
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2146	"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	2147	! !
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2148
1105 1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2149	!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	2150
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2151	position
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2152	"{ Pragma: +optSpace }"
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2153
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2154	"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	2155
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2156	^ self positionError
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2157	!
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2158
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2159	position:aPosition
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2160	"{ Pragma: +optSpace }"
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2161
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2162	"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	2163
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2164	^ self positionError
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2165	!
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2166
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2167	skip:numberToSkip
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2168	"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	2169	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	2170
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2171	"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	2172	numberToSkip < 0 ifTrue:[
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2173	PositionError raiseRequest.
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2174	^ self
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2175	].
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2176	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	2177
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2178	"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	2179	! !
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2180
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2181	!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	2182
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2183	isPositionable
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2184	^ false
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2185
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2186	"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	2187	! !
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2188
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2189	!ChangeSetTests class methodsFor:'documentation'!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2190
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2191	version
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2192	^ '$Header$'
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2193	!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2194
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2195	version_CVS
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2196	^ '$Header$'
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2197	! !
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2198

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Fri, 14 Mar 2014 17:40:37 +0100
changeset 1105	1a5e6c3e2dff
parent 1104	7182494b732e
child 1106	eafa5b6e4421
permissions	-rw-r--r--