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

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Fri, 21 Mar 2014 19:30:25 +0100
changeset 1107	8d4a3e77f905
parent 1106	eafa5b6e4421
child 1108	f00efe9de213
permissions	-rw-r--r--