hg/stx-goodies-regression: RegressionTests__ChangeSetTests.st@f00efe9de213 (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>"
1108 f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1363	!
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1364
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1365	test_ClassInitializeChange_05
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1366	\| cs1 cs2 diff \|
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1367
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1368	cs1 := ChangeSet fromStream:'
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1369	MockClass initialize!!
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1370
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1371	' readStream.
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1372
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1373	cs2 := ChangeSet fromStream:'
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1374	MockClass initialize!!
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1375
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1376	' readStream.
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1377
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1378	diff := cs1 diffSetsAgainst:cs2.
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1379
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1380	self assert: diff changed isEmpty.
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1381	self assert: diff onlyInReceiver isEmpty.
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1382	self assert: diff onlyInArg isEmpty.
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1383
f00efe9de213 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1107 diff changeset	1384	"Created: / 26-03-2014 / 17:37:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1107 8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1385	! !
8d4a3e77f905 Added tests for ClassInitializationChange Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1106 diff changeset	1386
924 f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	1387	!ChangeSetTests methodsFor:'tests - MethodDefinitionChange'!
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	1388
925 d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1389	test_MethodDefinitionChange_01
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1390
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1391	\| cs \|
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1392
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1393	cs := ChangeSet fromStream:'
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1394	Object subclass:#MockClass
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1395	instanceVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1396	classVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1397	poolDictionaries:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1398	category:''tests-Regression-Mocks''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1399	!!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1400
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1401	!!MockClass methodsFor:''methods''!!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1402
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1403	foo
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1404
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1405	!! !!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1406
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1407	' readStream.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1408
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1409	self assert: cs size == 2.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1410	self assert: cs second className = 'MockClass'.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1411	self assert: cs second fullClassName = 'MockClass'.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1412	self assert: (Smalltalk at: #MockClass) isNil.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1413	cs apply.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1414	self assert: (Smalltalk at: #MockClass) notNil.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1415	self assert:((Smalltalk at: #MockClass) methodDictionary includesKey: #foo)
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1416
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1417	"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	1418	!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1419
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1420	test_MethodDefinitionChange_01_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1421
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1422	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1423
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1424	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1425	Object subclass:#MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1426	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1427	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1428	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1429	category:''tests-Regression-Mocks''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1430	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1431
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1432	!!MockClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1433
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1434	foo
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1435
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1436	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1437
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1438	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1439
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1440	self assert: (Smalltalk at: #MockClass) isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1441	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1442	self assert: (Smalltalk at: #MockClass) notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1443	self assert:((Smalltalk at: #MockClass) methodDictionary includesKey: #foo)
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1444
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1445	"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	1446	"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	1447	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1448
925 d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1449	test_MethodDefinitionChange_02
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1450
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1451	\| cs \|
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1452
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1453	cs := ChangeSet fromStream:'
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1454	"{ NameSpace: Mocks }"
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1455
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1456	Object subclass:#MockClass
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1457	instanceVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1458	classVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1459	poolDictionaries:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1460	category:''tests-Regression-Mocks''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1461	!!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1462
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1463	!!MockClass methodsFor:''methods''!!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1464
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1465	foo
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1466
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1467	!! !!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1468
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1469	' readStream.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1470
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1471	self assert: cs size == 2.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1472	self assert: cs second className = 'MockClass'.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1473	self assert: cs second fullClassName = 'Mocks::MockClass'.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1474	self assert: (Smalltalk at: #'Mocks::MockClass') isNil.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1475	cs apply.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1476	self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1477	self assert:((Smalltalk at: #'Mocks::MockClass') methodDictionary includesKey: #foo)
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1478
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1479	"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	1480	!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1481
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1482	test_MethodDefinitionChange_02_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1483
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1484	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1485
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1486	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1487	"{ NameSpace: Mocks }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1488
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1489	Object subclass:#MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1490	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1491	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1492	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1493	category:''tests-Regression-Mocks''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1494	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1495
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1496	!!MockClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1497
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1498	foo
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1499
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1500	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1501
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1502	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1503
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1504	self assert: (Smalltalk at: #'Mocks::MockClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1505	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1506	self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1507	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	1508
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1509	"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	1510	"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	1511	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1512
926 7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1513	test_MethodDefinitionChange_02a
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1514	"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	1515	extension container"
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	\| cs \|
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1518
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1519	cs := ChangeSet fromStream:'"{ 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	!!AbstractSyntaxHighlighter class methodsFor:''api highlighting''!!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1522
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1523	formatExpression:aString in:aClass elementsInto:elementsCollection
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1524
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1525	^self formatExpression:aString in:aClass
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1526
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1527	!! !!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1528
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1529	!!AbstractSyntax class methodsFor:''xxx highlighting''!!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1530
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1531	xxx:aString in:aClass elementsInto:elementsCollection
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1532
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1533	^self formatExpression:aString in:aClass
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1534
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1535	!! !!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1536
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1537	' readStream.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1538
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1539	self assert: cs size = 2.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1540	self assert: cs first package = 'stx:libtool'.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1541	self assert: cs second package = 'stx:libtool'.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1542
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1543	"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	1544	"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	1545	!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1546
925 d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1547	test_MethodDefinitionChange_03a
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	\| cs \|
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	cs := ChangeSet fromStream:'
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1552	Object subclass:#MockClass
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1553	instanceVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1554	classVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1555	poolDictionaries:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1556	category:''tests-Regression-Mocks''
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
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1559	Object subclass:#PrivateClass
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1560	instanceVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1561	classVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1562	poolDictionaries:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1563	privateIn:MockClass
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1564	!!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1565
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1566	!!MockClass::PrivateClass methodsFor:''methods''!!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1567
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1568	foo
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1569
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1570	!! !!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1571	' readStream.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1572
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1573	self assert: cs size == 3.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1574	self assert: cs third className = 'MockClass::PrivateClass'.
928 bc2301253761 class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 927 diff changeset	1575	self assert: cs third fullClassName = 'MockClass::PrivateClass'.
925 d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1576	self assert: (Smalltalk at: #'MockClass') isNil.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1577	cs apply.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1578	self assert:((Smalltalk at: #'MockClass::PrivateClass') methodDictionary includesKey: #foo)
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1579
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1580	"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	1581	"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	1582	!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1583
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1584	test_MethodDefinitionChange_03a_fileIn
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	\| changefile \|
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	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1589	Object subclass:#MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1590	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1591	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1592	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1593	category:''tests-Regression-Mocks''
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1596	Object subclass:#PrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1597	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1598	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1599	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1600	privateIn:MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1601	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1602
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1603	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1604
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1605	foo
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1606
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1607	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1608	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1609
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1610
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1611
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1612
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1613	self assert: (Smalltalk at: #'MockClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1614	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1615	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	1616
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1617	"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	1618	"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	1619	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1620
925 d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1621	test_MethodDefinitionChange_03b
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1622
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1623	\| cs \|
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	cs := ChangeSet fromStream:'
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1626	"{ NameSpace: Mocks }"
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1627
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1628	Object subclass:#MockClass
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1629	instanceVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1630	classVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1631	poolDictionaries:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1632	category:''tests-Regression-Mocks''
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
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1635	Object subclass:#PrivateClass
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1636	instanceVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1637	classVariableNames:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1638	poolDictionaries:''''
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1639	privateIn:MockClass
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1640	!!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1641
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1642	!!MockClass::PrivateClass methodsFor:''methods''!!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1643
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1644	foo
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1645
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1646	!! !!
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1647	' readStream.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1648
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1649	self assert: cs size == 3.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1650	self assert: cs third className = 'MockClass::PrivateClass'.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1651	self assert: cs third fullClassName = 'Mocks::MockClass::PrivateClass'.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1652	self assert: (Smalltalk at: #'Mocks::MockClass') isNil.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1653	cs apply.
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1654	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	1655
d7ba2b279ffd class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 924 diff changeset	1656	"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	1657
926 7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1658	!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	1659
1104 7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1660	test_MethodDefinitionChange_03b_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1661
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1662	\| changefile \|
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	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1665	"{ NameSpace: Mocks }"
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	Object subclass:#MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1668	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1669	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1670	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1671	category:''tests-Regression-Mocks''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1672	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1673
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1674	Object subclass:#PrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1675	instanceVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1676	classVariableNames:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1677	poolDictionaries:''''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1678	privateIn:MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1679	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1680
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1681	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1682
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1683	foo
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1684
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1685	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1686	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1687
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1688
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1689
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1690
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1691	self assert: (Smalltalk at: #'Mocks::MockClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1692	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1693	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	1694
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1695	"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	1696
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1697	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1698
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1699	test_MethodDefinitionChange_04a
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1700
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1701	\| cs \|
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	cs := ChangeSet fromStream:'
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1704	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1705
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1706	foo
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1707
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1708	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1709	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1710
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1711	self assert: cs size == 1.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1712	self assert: cs first className = 'MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1713	self assert: cs first fullClassName = 'MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1714
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1715	"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	1716	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1717
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1718	test_MethodDefinitionChange_04a_fileIn
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	\| changefile \|
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	self assert: (Smalltalk at: #'MockClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1723	self assert: (Smalltalk at: #'MockClass::PrivateClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1724
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1725
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1726	Object subclass:#MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1727	instanceVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1728	classVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1729	poolDictionaries:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1730	category:'tests-Regression-System-Changes'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1731
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1732	Object subclass: #PrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1733	instanceVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1734	classVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1735	poolDictionaries: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1736	privateIn: (Smalltalk at: #'MockClass').
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1739	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1740	!!MockClass::PrivateClass methodsFor:''methods''!!
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	foo
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	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1745	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1746	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1747
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1748	self assert: (Smalltalk at: #'MockClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1749	self assert: (Smalltalk at: #'MockClass::PrivateClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1750	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	1751
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1752	"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	1753	"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	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
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	\| cs \|
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	cs := ChangeSet fromStream:'
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1761	"{ NameSpace: Mocks }"
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	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1764	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1765
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1766	foo
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1767
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1768	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1769	' readStream.
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	self assert: cs size == 1.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1772	self assert: cs first className = 'MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1773	self assert: cs first fullClassName = 'Mocks::MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1774
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1775	"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	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	test_MethodDefinitionChange_04b_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1779
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1780	\| changefile \|
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	self assert: (Smalltalk at: #'Mocks::MockClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1783	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') isNil.
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	Class nameSpaceQuerySignal answer: (NameSpace name: #'Mocks') do:[
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	Object subclass:#MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1788	instanceVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1789	classVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1790	poolDictionaries:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1791	category:'tests-Regression-System-Changes'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1792
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1793	Object subclass: #PrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1794	instanceVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1795	classVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1796	poolDictionaries: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1797	privateIn: (Smalltalk at: #'Mocks::MockClass').
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
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	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1802	"{ NameSpace: Mocks }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1803
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1804	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1805	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1806
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1807	foo
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	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1810	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1811	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1812
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1813	self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1814	self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1815	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	1816
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1817	"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	1818	"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	1819	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1820
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1821	test_MethodDefinitionChange_05a
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1822
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1823	\| cs \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1824
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1825	cs := ChangeSet fromStream:'
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1826	!!MockClass::PrivateClass methodsFor:''methods''!!
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	foo
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1829
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	"{ NameSpace: Mocks }"
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	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1834	!!MockClass2::PrivateClass methodsFor:''methods''!!
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	bar
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1837
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1838	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1839
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1840	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1841
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1842	self assert: cs size == 2.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1843	self assert: cs first className = 'MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1844	self assert: cs first fullClassName = 'MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1845	self assert: cs second className = 'MockClass2::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1846	self assert: cs second fullClassName = 'Mocks::MockClass2::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1847
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1848	"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	1849	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1850
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1851	test_MethodDefinitionChange_05a_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1852
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1853	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1854
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1855	self assert: (Smalltalk at: #'MockClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1856	self assert: (Smalltalk at: #'MockClass::PrivateClass') isNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1857
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1858
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1859	Object subclass:#MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1860	instanceVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1861	classVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1862	poolDictionaries:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1863	category:'tests-Regression-System-Changes'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1864
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1865	Object subclass: #PrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1866	instanceVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1867	classVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1868	poolDictionaries: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1869	privateIn: (Smalltalk at: #'MockClass').
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1870
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1871	Class nameSpaceQuerySignal answer: (NameSpace name: #'Mocks') do:[
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	Object subclass:#MockClass2
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1874	instanceVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1875	classVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1876	poolDictionaries:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1877	category:'tests-Regression-System-Changes'.
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	Object subclass: #PrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1880	instanceVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1881	classVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1882	poolDictionaries: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1883	privateIn: (Smalltalk at: #'Mocks::MockClass2').
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1884	].
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1885
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1886	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1887	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1888
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1889	foo
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1890
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1891	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1892	"{ NameSpace: Mocks }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1893
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1894	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1895	!!MockClass2::PrivateClass methodsFor:''methods''!!
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	bar
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1898
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	' readStream.
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	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1904	self assert: (Smalltalk at: #'MockClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1905	self assert: (Smalltalk at: #'MockClass::PrivateClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1906	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	1907	self assert: (Smalltalk at: #'Mocks::MockClass2') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1908	self assert: (Smalltalk at: #'Mocks::MockClass2::PrivateClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1909	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	1910
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1911	"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	1912	"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	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	test_MethodDefinitionChange_05b
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	\| cs \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1918
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1919	cs := ChangeSet fromStream:'
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1920	"{ NameSpace: Mocks2 }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1921
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1922	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1923	!!MockClass::PrivateClass methodsFor:''methods''!!
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	foo
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1926
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1927	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1928	"{ NameSpace: Mocks }"
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	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1931	!!MockClass2::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1932
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1933	bar
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1934
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1935	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1936
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1937	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1938
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1939	self assert: cs size == 2.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1940	self assert: cs first className = 'MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1941	self assert: cs first fullClassName = 'Mocks2::MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1942	self assert: cs second className = 'MockClass2::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1943	self assert: cs second fullClassName = 'Mocks::MockClass2::PrivateClass'.
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	"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	1946	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1947
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1948	test_MethodDefinitionChange_05b_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1949
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1950	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1951
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1952	Class nameSpaceQuerySignal answer: (NameSpace name: #'Mocks2') do:[
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:#MockClass
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	category:'tests-Regression-System-Changes'.
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	Object subclass: #PrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1961	instanceVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1962	classVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1963	poolDictionaries: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1964	privateIn: (Smalltalk at: #'Mocks2::MockClass').
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	].
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	Class nameSpaceQuerySignal answer: (NameSpace name: #'Mocks') do:[
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	Object subclass:#MockClass2
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1971	instanceVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1972	classVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1973	poolDictionaries:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1974	category:'tests-Regression-System-Changes'.
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	Object subclass: #PrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1977	instanceVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1978	classVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1979	poolDictionaries: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1980	privateIn: (Smalltalk at: #'Mocks::MockClass2').
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
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	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1985	"{ NameSpace: Mocks2 }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1986
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1987	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1988	!!MockClass::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1989
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1990	foo
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1991
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1992	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1993	"{ NameSpace: Mocks }"
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	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1996	!!MockClass2::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1997
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1998	bar
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	1999
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2000	!! !!
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	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2003
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2004	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2005
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2006	self assert: (Smalltalk at: #'Mocks2::MockClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2007	self assert: (Smalltalk at: #'Mocks2::MockClass::PrivateClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2008	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	2009	self assert: (Smalltalk at: #'Mocks::MockClass2') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2010	self assert: (Smalltalk at: #'Mocks::MockClass2::PrivateClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2011	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	2012
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2013	"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	2014	"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	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	test_MethodDefinitionChange_05c
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	\| cs \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2020
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2021	cs := ChangeSet fromStream:'
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2022	"{ NameSpace: Mocks2 }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2023
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2024	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2025	!!MockClass::PrivateClass methodsFor:''methods''!!
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	foo
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2028
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	"{ NameSpace: Smalltalk }"
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	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2033	!!MockClass2::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2034
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2035	bar
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2036
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2037	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2038
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2039	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2040
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2041	self assert: cs size == 2.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2042	self assert: cs first className = 'MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2043	self assert: cs first fullClassName = 'Mocks2::MockClass::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2044	self assert: cs second className = 'MockClass2::PrivateClass'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2045	self assert: cs second fullClassName = 'MockClass2::PrivateClass'.
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	"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	2048	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2049
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2050	test_MethodDefinitionChange_05c_fileIn
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2051
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2052	\| changefile \|
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2053
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2054	Class nameSpaceQuerySignal answer: (NameSpace name: #'Mocks2') do:[
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2055
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2056	Object subclass:#MockClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2057	instanceVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2058	classVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2059	poolDictionaries:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2060	category:'tests-Regression-System-Changes'.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2061
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2062	Object subclass: #PrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2063	instanceVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2064	classVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2065	poolDictionaries: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2066	privateIn: (Smalltalk at: #'Mocks2::MockClass').
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2067	].
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	Object subclass:#MockClass2
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2070	instanceVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2071	classVariableNames:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2072	poolDictionaries:''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2073	category:'tests-Regression-System-Changes'.
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	Object subclass: #PrivateClass
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2076	instanceVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2077	classVariableNames: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2078	poolDictionaries: ''
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2079	privateIn: (Smalltalk at: #'MockClass2').
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
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2082
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2083	changefile :='
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2084	"{ NameSpace: Mocks2 }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2085
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2086	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2087	!!MockClass::PrivateClass methodsFor:''methods''!!
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	foo
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2090
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	"{ NameSpace: Smalltalk }"
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2093
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2094	!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2095	!!MockClass2::PrivateClass methodsFor:''methods''!!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2096
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2097	bar
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2098
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2099	!! !!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2100
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2101	' readStream.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2102
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2103	changefile readStream fileIn.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2104	self assert: (Smalltalk at: #'Mocks2::MockClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2105	self assert: (Smalltalk at: #'Mocks2::MockClass::PrivateClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2106	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	2107	self assert: (Smalltalk at: #'MockClass2') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2108	self assert: (Smalltalk at: #'MockClass2::PrivateClass') notNil.
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2109	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	2110
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2111	"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	2112	"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	2113	!
7182494b732e More tests to changeset... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1042 diff changeset	2114
926 7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2115	test_MethodDefinitionChange_jextension_01a
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2116	"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	2117
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2118	\| cs \|
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2119
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2120	cs := ChangeSet fromStream:'
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2121	!!(Java classForName:''java.lang.Long'') class methodsFor:''queries''!!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2122
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2123	javaWrap: object
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2124	\|inst\|
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2125	inst := self basicNew.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2126	inst perform: #''<init>(J)V'' with: object with: nil.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2127	^ inst.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2128	!! !!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2129	' readStream.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2130
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2131	self assert: cs size == 1.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2132
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2133	"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	2134	!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2135
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2136	test_MethodDefinitionChange_jextension_01b
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2137	"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	2138
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2139	\| cs \|
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2140
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2141	cs := ChangeSet fromStream:'
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2142	!!(Java classForName:''java.lang.Long'') methodsFor:''queries''!!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2143
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2144	javaWrap: object
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2145	\|inst\|
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2146	inst := self basicNew.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2147	inst perform: #''<init>(J)V'' with: object with: nil.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2148	^ inst.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2149	!! !!
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2150	' readStream.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2151
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2152	self assert: cs size == 1.
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2153
7229c7cc2b9d class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 925 diff changeset	2154	"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	2155	! !
f0ec0d58eebe class: RegressionTests::ChangeSetTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 912 diff changeset	2156
866 30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2157	!ChangeSetTests methodsFor:'tests - utf8'!
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2158
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2159	test_reading_utf8_01
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2160	"
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2161	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	2162	"
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2163	\| file cs \|
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2164
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2165	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	2166	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	2167	"
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2168	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	2169	"
866 30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2170	cs := ChangeSet fromFile: file.
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2171	self assert: cs size == 4.
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2172	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	2173	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	2174
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2175	"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	2176	"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	2177	!
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2178
1105 1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2179	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	2180	"
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2181	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	2182	"
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2183	\| file stream cs \|
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2184
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2185	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	2186	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	2187	"
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2188	file contents asString
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2189	"
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2190	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	2191	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	2192	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	2193	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	2194	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	2195
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2196	"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	2197	!
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2198
1042 3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2199	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	2200	\| 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	2201
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2202	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	2203	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	2204	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	2205
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2206	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	2207
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2208	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	2209
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2210	"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	2211	"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	2212	! !
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2213
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2214	!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	2215
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2216	bar
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2217	^ '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	2218
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2219	"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	2220	!
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2221
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2222	foo
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2223	^ 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	2224
3ebb3255dc9a Updated tests after dropping support for change namespace override using query. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1007 diff changeset	2225	"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	2226	! !
30af67f910e9 Added test for UTF8 encoded changefile Jan Vrany <jan.vrany@fit.cvut.cz> parents: 794 diff changeset	2227
1105 1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2228	!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	2229
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2230	position
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2231	"{ Pragma: +optSpace }"
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	"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	2234
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2235	^ self positionError
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	position:aPosition
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2239	"{ Pragma: +optSpace }"
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2240
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2241	"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	2242
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2243	^ self positionError
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
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2246	skip:numberToSkip
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2247	"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	2248	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	2249
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2250	"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	2251	numberToSkip < 0 ifTrue:[
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2252	PositionError raiseRequest.
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2253	^ self
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2254	].
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2255	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	2256
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2257	"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	2258	! !
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2259
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2260	!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	2261
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2262	isPositionable
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2263	^ false
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2264
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2265	"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	2266	! !
1a5e6c3e2dff Added test for reading changesets from non-positionable streams. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1104 diff changeset	2267
794 5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2268	!ChangeSetTests class methodsFor:'documentation'!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2269
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2270	version
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2271	^ '$Header$'
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2272	!
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2273
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2274	version_CVS
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2275	^ '$Header$'
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2276	! !
5124f441d609 initial checkin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2277

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 26 Mar 2014 18:41:43 +0100
changeset 1108	f00efe9de213
parent 1107	8d4a3e77f905
child 1111	15a933b0f58b
permissions	-rw-r--r--