hg/stx-goodies-metacello: MetacelloPackagesSpecTestCase.st@504152ada1fc (annotated)

1 9e312de5f694 - Initial commit jv parents: diff changeset	1	"{ Package: 'stx:goodies/metacello' }"
9e312de5f694 - Initial commit jv parents: diff changeset	2
9e312de5f694 - Initial commit jv parents: diff changeset	3	MetacelloSpecTestCase subclass:#MetacelloPackagesSpecTestCase
9e312de5f694 - Initial commit jv parents: diff changeset	4	instanceVariableNames:''
9e312de5f694 - Initial commit jv parents: diff changeset	5	classVariableNames:''
9e312de5f694 - Initial commit jv parents: diff changeset	6	poolDictionaries:''
9e312de5f694 - Initial commit jv parents: diff changeset	7	category:'Metacello-TestsCore-Specs'
9e312de5f694 - Initial commit jv parents: diff changeset	8	!
9e312de5f694 - Initial commit jv parents: diff changeset	9
9e312de5f694 - Initial commit jv parents: diff changeset	10
9e312de5f694 - Initial commit jv parents: diff changeset	11	!MetacelloPackagesSpecTestCase methodsFor:'tests'!
9e312de5f694 - Initial commit jv parents: diff changeset	12
9e312de5f694 - Initial commit jv parents: diff changeset	13	testAddGroupA
9e312de5f694 - Initial commit jv parents: diff changeset	14	"used by MetacelloAbstractVersionConstructor>>group:overrides:"
9e312de5f694 - Initial commit jv parents: diff changeset	15
9e312de5f694 - Initial commit jv parents: diff changeset	16	\| packages group \|
9e312de5f694 - Initial commit jv parents: diff changeset	17	packages := self packagesSpec.
9e312de5f694 - Initial commit jv parents: diff changeset	18	packages
9e312de5f694 - Initial commit jv parents: diff changeset	19	add:
9e312de5f694 - Initial commit jv parents: diff changeset	20	(self groupSpec
9e312de5f694 - Initial commit jv parents: diff changeset	21	name: 'Platform';
9e312de5f694 - Initial commit jv parents: diff changeset	22	includes: 'Core';
9e312de5f694 - Initial commit jv parents: diff changeset	23	yourself).
9e312de5f694 - Initial commit jv parents: diff changeset	24	packages
9e312de5f694 - Initial commit jv parents: diff changeset	25	add:
9e312de5f694 - Initial commit jv parents: diff changeset	26	(self groupSpec
9e312de5f694 - Initial commit jv parents: diff changeset	27	name: 'Platform';
9e312de5f694 - Initial commit jv parents: diff changeset	28	includes: 'Tests';
9e312de5f694 - Initial commit jv parents: diff changeset	29	yourself).
9e312de5f694 - Initial commit jv parents: diff changeset	30	group := packages packageNamed: 'Platform' ifAbsent: [ self assert: false ].
9e312de5f694 - Initial commit jv parents: diff changeset	31	self deny: (group includes includes: 'Core').
9e312de5f694 - Initial commit jv parents: diff changeset	32	self assert: (group includes includes: 'Tests')
9e312de5f694 - Initial commit jv parents: diff changeset	33	!
9e312de5f694 - Initial commit jv parents: diff changeset	34
9e312de5f694 - Initial commit jv parents: diff changeset	35	testAddGroupB
9e312de5f694 - Initial commit jv parents: diff changeset	36	"used by MetacelloAbstractVersionConstructor>>group:overrides:"
9e312de5f694 - Initial commit jv parents: diff changeset	37
9e312de5f694 - Initial commit jv parents: diff changeset	38	\| packages group \|
9e312de5f694 - Initial commit jv parents: diff changeset	39	packages := self packagesSpec.
9e312de5f694 - Initial commit jv parents: diff changeset	40	packages
9e312de5f694 - Initial commit jv parents: diff changeset	41	add:
9e312de5f694 - Initial commit jv parents: diff changeset	42	{(self groupSpec
9e312de5f694 - Initial commit jv parents: diff changeset	43	name: 'Platform';
9e312de5f694 - Initial commit jv parents: diff changeset	44	includes: 'Core';
9e312de5f694 - Initial commit jv parents: diff changeset	45	yourself).
9e312de5f694 - Initial commit jv parents: diff changeset	46	(self groupSpec
9e312de5f694 - Initial commit jv parents: diff changeset	47	name: 'Platform';
9e312de5f694 - Initial commit jv parents: diff changeset	48	includes: 'Tests';
9e312de5f694 - Initial commit jv parents: diff changeset	49	yourself)}.
9e312de5f694 - Initial commit jv parents: diff changeset	50	group := packages packageNamed: 'Platform' ifAbsent: [ self assert: false ].
9e312de5f694 - Initial commit jv parents: diff changeset	51	self deny: (group includes includes: 'Core').
9e312de5f694 - Initial commit jv parents: diff changeset	52	self assert: (group includes includes: 'Tests')
9e312de5f694 - Initial commit jv parents: diff changeset	53	!
9e312de5f694 - Initial commit jv parents: diff changeset	54
9e312de5f694 - Initial commit jv parents: diff changeset	55	testAddProjectA
9e312de5f694 - Initial commit jv parents: diff changeset	56	"used by MetacelloAbstractVersionConstructor>>project:overrides:"
9e312de5f694 - Initial commit jv parents: diff changeset	57
9e312de5f694 - Initial commit jv parents: diff changeset	58	\| packages project projectReferenceSpec \|
9e312de5f694 - Initial commit jv parents: diff changeset	59	packages := self packagesSpec.
9e312de5f694 - Initial commit jv parents: diff changeset	60	packages
9e312de5f694 - Initial commit jv parents: diff changeset	61	add:
9e312de5f694 - Initial commit jv parents: diff changeset	62	(self projectSpec
9e312de5f694 - Initial commit jv parents: diff changeset	63	name: 'Project';
9e312de5f694 - Initial commit jv parents: diff changeset	64	className: 'ConfigurationOfProjectA';
9e312de5f694 - Initial commit jv parents: diff changeset	65	versionString: #'stable';
9e312de5f694 - Initial commit jv parents: diff changeset	66	loads: #('MyPackage' 'MyTests');
9e312de5f694 - Initial commit jv parents: diff changeset	67	preLoadDoIt: #'preLoadDoItB';
9e312de5f694 - Initial commit jv parents: diff changeset	68	postLoadDoIt: #'postLoadDoItB';
9e312de5f694 - Initial commit jv parents: diff changeset	69	yourself).
9e312de5f694 - Initial commit jv parents: diff changeset	70	packages
9e312de5f694 - Initial commit jv parents: diff changeset	71	add:
9e312de5f694 - Initial commit jv parents: diff changeset	72	(self projectSpec
9e312de5f694 - Initial commit jv parents: diff changeset	73	name: 'Project';
9e312de5f694 - Initial commit jv parents: diff changeset	74	className: 'ConfigurationOfProject';
9e312de5f694 - Initial commit jv parents: diff changeset	75	versionString: '1.0';
9e312de5f694 - Initial commit jv parents: diff changeset	76	operator: #'<';
9e312de5f694 - Initial commit jv parents: diff changeset	77	loads: #('MyPackage');
9e312de5f694 - Initial commit jv parents: diff changeset	78	preLoadDoIt: #'preLoadDoIt';
9e312de5f694 - Initial commit jv parents: diff changeset	79	postLoadDoIt: #'postLoadDoIt';
9e312de5f694 - Initial commit jv parents: diff changeset	80	yourself).
9e312de5f694 - Initial commit jv parents: diff changeset	81	projectReferenceSpec := packages packageNamed: 'Project' ifAbsent: [ self assert: false ].
9e312de5f694 - Initial commit jv parents: diff changeset	82	self assert: projectReferenceSpec projectName = 'Project'.
9e312de5f694 - Initial commit jv parents: diff changeset	83	self assert: projectReferenceSpec versionString = '1.0'.
9e312de5f694 - Initial commit jv parents: diff changeset	84	self should: [ projectReferenceSpec includes: #() ] raise: Error.
9e312de5f694 - Initial commit jv parents: diff changeset	85	self should: [ projectReferenceSpec requires: #() ] raise: Error.
9e312de5f694 - Initial commit jv parents: diff changeset	86	self should: [ projectReferenceSpec answers: #() ] raise: Error.
9e312de5f694 - Initial commit jv parents: diff changeset	87	projectReferenceSpec
9e312de5f694 - Initial commit jv parents: diff changeset	88	projectDo: [ :prjct \| self assert: projectReferenceSpec == prjct ]
9e312de5f694 - Initial commit jv parents: diff changeset	89	packageDo: [ :ignored \| self assert: false ]
9e312de5f694 - Initial commit jv parents: diff changeset	90	groupDo: [ :ignored \| self assert: false ].
9e312de5f694 - Initial commit jv parents: diff changeset	91	project := projectReferenceSpec referencedSpec.
9e312de5f694 - Initial commit jv parents: diff changeset	92	self assert: project name = 'Project'.
9e312de5f694 - Initial commit jv parents: diff changeset	93	self assert: project className = 'ConfigurationOfProject'.
9e312de5f694 - Initial commit jv parents: diff changeset	94	self assert: project versionString = '1.0'.
9e312de5f694 - Initial commit jv parents: diff changeset	95	self assert: project operator == #'<'.
9e312de5f694 - Initial commit jv parents: diff changeset	96	self assert: project loads = #('MyPackage').
9e312de5f694 - Initial commit jv parents: diff changeset	97	self assert: project preLoadDoIt value == #'preLoadDoIt'.
9e312de5f694 - Initial commit jv parents: diff changeset	98	self assert: project postLoadDoIt value == #'postLoadDoIt'.
9e312de5f694 - Initial commit jv parents: diff changeset	99	project
9e312de5f694 - Initial commit jv parents: diff changeset	100	projectDo: [ :prjct \| self assert: project == prjct ]
9e312de5f694 - Initial commit jv parents: diff changeset	101	packageDo: [ :ignored \| self assert: false ]
9e312de5f694 - Initial commit jv parents: diff changeset	102	groupDo: [ :ignored \| self assert: false ]
9e312de5f694 - Initial commit jv parents: diff changeset	103	!
9e312de5f694 - Initial commit jv parents: diff changeset	104
9e312de5f694 - Initial commit jv parents: diff changeset	105	testAddProjectB
9e312de5f694 - Initial commit jv parents: diff changeset	106	"used by MetacelloAbstractVersionConstructor>>project:overrides:"
9e312de5f694 - Initial commit jv parents: diff changeset	107
9e312de5f694 - Initial commit jv parents: diff changeset	108	\| packages project projectReferenceSpec \|
9e312de5f694 - Initial commit jv parents: diff changeset	109	packages := self packagesSpec.
9e312de5f694 - Initial commit jv parents: diff changeset	110	packages
9e312de5f694 - Initial commit jv parents: diff changeset	111	add:
9e312de5f694 - Initial commit jv parents: diff changeset	112	{(self projectSpec
9e312de5f694 - Initial commit jv parents: diff changeset	113	name: 'Project';
9e312de5f694 - Initial commit jv parents: diff changeset	114	className: 'ConfigurationOfProjectA';
9e312de5f694 - Initial commit jv parents: diff changeset	115	versionString: #'stable';
9e312de5f694 - Initial commit jv parents: diff changeset	116	loads: #('MyPackage' 'MyTests');
9e312de5f694 - Initial commit jv parents: diff changeset	117	preLoadDoIt: #'preLoadDoItB';
9e312de5f694 - Initial commit jv parents: diff changeset	118	postLoadDoIt: #'postLoadDoItB';
9e312de5f694 - Initial commit jv parents: diff changeset	119	yourself).
9e312de5f694 - Initial commit jv parents: diff changeset	120	(self projectSpec
9e312de5f694 - Initial commit jv parents: diff changeset	121	name: 'Project';
9e312de5f694 - Initial commit jv parents: diff changeset	122	className: 'ConfigurationOfProject';
9e312de5f694 - Initial commit jv parents: diff changeset	123	versionString: '1.0';
9e312de5f694 - Initial commit jv parents: diff changeset	124	operator: #'<';
9e312de5f694 - Initial commit jv parents: diff changeset	125	loads: #('MyPackage');
9e312de5f694 - Initial commit jv parents: diff changeset	126	preLoadDoIt: #'preLoadDoIt';
9e312de5f694 - Initial commit jv parents: diff changeset	127	postLoadDoIt: #'postLoadDoIt';
9e312de5f694 - Initial commit jv parents: diff changeset	128	yourself)}.
9e312de5f694 - Initial commit jv parents: diff changeset	129	projectReferenceSpec := packages packageNamed: 'Project' ifAbsent: [ self assert: false ].
9e312de5f694 - Initial commit jv parents: diff changeset	130	self assert: projectReferenceSpec projectName = 'Project'.
9e312de5f694 - Initial commit jv parents: diff changeset	131	self assert: projectReferenceSpec versionString = '1.0'.
9e312de5f694 - Initial commit jv parents: diff changeset	132	self should: [ projectReferenceSpec includes: #() ] raise: Error.
9e312de5f694 - Initial commit jv parents: diff changeset	133	self should: [ projectReferenceSpec requires: #() ] raise: Error.
9e312de5f694 - Initial commit jv parents: diff changeset	134	self should: [ projectReferenceSpec answers: #() ] raise: Error.
9e312de5f694 - Initial commit jv parents: diff changeset	135	projectReferenceSpec
9e312de5f694 - Initial commit jv parents: diff changeset	136	projectDo: [ :prjct \| self assert: projectReferenceSpec == prjct ]
9e312de5f694 - Initial commit jv parents: diff changeset	137	packageDo: [ :ignored \| self assert: false ]
9e312de5f694 - Initial commit jv parents: diff changeset	138	groupDo: [ :ignored \| self assert: false ].
9e312de5f694 - Initial commit jv parents: diff changeset	139	project := projectReferenceSpec referencedSpec.
9e312de5f694 - Initial commit jv parents: diff changeset	140	self assert: project name = 'Project'.
9e312de5f694 - Initial commit jv parents: diff changeset	141	self assert: project className = 'ConfigurationOfProject'.
9e312de5f694 - Initial commit jv parents: diff changeset	142	self assert: project versionString = '1.0'.
9e312de5f694 - Initial commit jv parents: diff changeset	143	self assert: project operator == #'<'.
9e312de5f694 - Initial commit jv parents: diff changeset	144	self assert: project loads = #('MyPackage').
9e312de5f694 - Initial commit jv parents: diff changeset	145	self assert: project preLoadDoIt value == #'preLoadDoIt'.
9e312de5f694 - Initial commit jv parents: diff changeset	146	self assert: project postLoadDoIt value == #'postLoadDoIt'.
9e312de5f694 - Initial commit jv parents: diff changeset	147	project
9e312de5f694 - Initial commit jv parents: diff changeset	148	projectDo: [ :prjct \| self assert: project == prjct ]
9e312de5f694 - Initial commit jv parents: diff changeset	149	packageDo: [ :ignored \| self assert: false ]
9e312de5f694 - Initial commit jv parents: diff changeset	150	groupDo: [ :ignored \| self assert: false ]
9e312de5f694 - Initial commit jv parents: diff changeset	151	!
9e312de5f694 - Initial commit jv parents: diff changeset	152
9e312de5f694 - Initial commit jv parents: diff changeset	153	testCopyToGroup
9e312de5f694 - Initial commit jv parents: diff changeset	154	"not currently used by MetacelloAbstractVersionConstructor"
9e312de5f694 - Initial commit jv parents: diff changeset	155
9e312de5f694 - Initial commit jv parents: diff changeset	156	\| packages group \|
9e312de5f694 - Initial commit jv parents: diff changeset	157	packages := self packagesSpec.
9e312de5f694 - Initial commit jv parents: diff changeset	158	packages
9e312de5f694 - Initial commit jv parents: diff changeset	159	add:
9e312de5f694 - Initial commit jv parents: diff changeset	160	(self groupSpec
9e312de5f694 - Initial commit jv parents: diff changeset	161	name: 'Platform';
9e312de5f694 - Initial commit jv parents: diff changeset	162	includes: 'Core';
9e312de5f694 - Initial commit jv parents: diff changeset	163	yourself).
9e312de5f694 - Initial commit jv parents: diff changeset	164	packages
9e312de5f694 - Initial commit jv parents: diff changeset	165	merge:
9e312de5f694 - Initial commit jv parents: diff changeset	166	(self groupSpec
9e312de5f694 - Initial commit jv parents: diff changeset	167	name: 'Platform';
9e312de5f694 - Initial commit jv parents: diff changeset	168	includes: 'Tests';
9e312de5f694 - Initial commit jv parents: diff changeset	169	yourself).
9e312de5f694 - Initial commit jv parents: diff changeset	170	group := packages packageNamed: 'Platform' ifAbsent: [ self assert: false ].
9e312de5f694 - Initial commit jv parents: diff changeset	171	self assert: (group includes includes: 'Core').
9e312de5f694 - Initial commit jv parents: diff changeset	172	self assert: (group includes includes: 'Tests').
9e312de5f694 - Initial commit jv parents: diff changeset	173	group := self groupSpec
9e312de5f694 - Initial commit jv parents: diff changeset	174	name: 'PlatformCopy';
9e312de5f694 - Initial commit jv parents: diff changeset	175	includes: 'Copy';
9e312de5f694 - Initial commit jv parents: diff changeset	176	yourself.
9e312de5f694 - Initial commit jv parents: diff changeset	177	packages copy: 'Platform' to: group.
9e312de5f694 - Initial commit jv parents: diff changeset	178	group := packages packageNamed: 'PlatformCopy' ifAbsent: [ self assert: false ].
9e312de5f694 - Initial commit jv parents: diff changeset	179	self assert: (group includes includes: 'Core').
9e312de5f694 - Initial commit jv parents: diff changeset	180	self assert: (group includes includes: 'Copy').
9e312de5f694 - Initial commit jv parents: diff changeset	181	self assert: (group includes includes: 'Tests')
9e312de5f694 - Initial commit jv parents: diff changeset	182	!
9e312de5f694 - Initial commit jv parents: diff changeset	183
9e312de5f694 - Initial commit jv parents: diff changeset	184	testCopyToProject
9e312de5f694 - Initial commit jv parents: diff changeset	185	"used by MetacelloAbstractVersionConstructor>>project:copyFrom:with:"
9e312de5f694 - Initial commit jv parents: diff changeset	186
9e312de5f694 - Initial commit jv parents: diff changeset	187	\| packages project referenceSpec \|
9e312de5f694 - Initial commit jv parents: diff changeset	188	packages := self packagesSpec.
9e312de5f694 - Initial commit jv parents: diff changeset	189	packages
9e312de5f694 - Initial commit jv parents: diff changeset	190	add:
9e312de5f694 - Initial commit jv parents: diff changeset	191	(self projectSpec
9e312de5f694 - Initial commit jv parents: diff changeset	192	name: 'Project';
9e312de5f694 - Initial commit jv parents: diff changeset	193	className: 'ConfigurationOfProjectA';
9e312de5f694 - Initial commit jv parents: diff changeset	194	versionString: #'stable';
9e312de5f694 - Initial commit jv parents: diff changeset	195	loads: #('MyPackage' 'MyTests');
9e312de5f694 - Initial commit jv parents: diff changeset	196	preLoadDoIt: #'preLoadDoItB';
9e312de5f694 - Initial commit jv parents: diff changeset	197	postLoadDoIt: #'postLoadDoItB';
9e312de5f694 - Initial commit jv parents: diff changeset	198	yourself).
9e312de5f694 - Initial commit jv parents: diff changeset	199	project := self projectSpec
9e312de5f694 - Initial commit jv parents: diff changeset	200	name: 'ProjectCopy';
9e312de5f694 - Initial commit jv parents: diff changeset	201	yourself.
9e312de5f694 - Initial commit jv parents: diff changeset	202	referenceSpec := self project projectReferenceSpec
9e312de5f694 - Initial commit jv parents: diff changeset	203	name: 'ProjectCopy';
9e312de5f694 - Initial commit jv parents: diff changeset	204	projectReference: project;
9e312de5f694 - Initial commit jv parents: diff changeset	205	yourself.
9e312de5f694 - Initial commit jv parents: diff changeset	206	packages copy: 'Project' to: referenceSpec.
9e312de5f694 - Initial commit jv parents: diff changeset	207	project := (packages packageNamed: 'ProjectCopy' ifAbsent: [ self assert: false ]) referencedSpec.
9e312de5f694 - Initial commit jv parents: diff changeset	208	self assert: project name = 'ProjectCopy'.
9e312de5f694 - Initial commit jv parents: diff changeset	209	self assert: project className = 'ConfigurationOfProjectA'.
9e312de5f694 - Initial commit jv parents: diff changeset	210	self assert: project versionString = #'stable'.
9e312de5f694 - Initial commit jv parents: diff changeset	211	self assert: project operator == #'>='.
9e312de5f694 - Initial commit jv parents: diff changeset	212	self assert: project loads = #('MyPackage' 'MyTests').
9e312de5f694 - Initial commit jv parents: diff changeset	213	self assert: project preLoadDoIt value == #'preLoadDoItB'.
9e312de5f694 - Initial commit jv parents: diff changeset	214	self assert: project postLoadDoIt value == #'postLoadDoItB'
9e312de5f694 - Initial commit jv parents: diff changeset	215	!
9e312de5f694 - Initial commit jv parents: diff changeset	216
9e312de5f694 - Initial commit jv parents: diff changeset	217	testMergeGroupA
9e312de5f694 - Initial commit jv parents: diff changeset	218	"used by MetacelloAbstractVersionConstructor>>group:with:"
9e312de5f694 - Initial commit jv parents: diff changeset	219
9e312de5f694 - Initial commit jv parents: diff changeset	220	\| packages group \|
9e312de5f694 - Initial commit jv parents: diff changeset	221	packages := self packagesSpec.
9e312de5f694 - Initial commit jv parents: diff changeset	222	packages
9e312de5f694 - Initial commit jv parents: diff changeset	223	add:
9e312de5f694 - Initial commit jv parents: diff changeset	224	(self groupSpec
9e312de5f694 - Initial commit jv parents: diff changeset	225	name: 'Platform';
9e312de5f694 - Initial commit jv parents: diff changeset	226	includes: 'Core';
9e312de5f694 - Initial commit jv parents: diff changeset	227	yourself).
9e312de5f694 - Initial commit jv parents: diff changeset	228	packages
9e312de5f694 - Initial commit jv parents: diff changeset	229	merge:
9e312de5f694 - Initial commit jv parents: diff changeset	230	(self groupSpec
9e312de5f694 - Initial commit jv parents: diff changeset	231	name: 'Platform';
9e312de5f694 - Initial commit jv parents: diff changeset	232	includes: 'Tests';
9e312de5f694 - Initial commit jv parents: diff changeset	233	yourself).
9e312de5f694 - Initial commit jv parents: diff changeset	234	group := packages packageNamed: 'Platform' ifAbsent: [ self assert: false ].
9e312de5f694 - Initial commit jv parents: diff changeset	235	self assert: (group includes includes: 'Core').
9e312de5f694 - Initial commit jv parents: diff changeset	236	self assert: (group includes includes: 'Tests')
9e312de5f694 - Initial commit jv parents: diff changeset	237	!
9e312de5f694 - Initial commit jv parents: diff changeset	238
9e312de5f694 - Initial commit jv parents: diff changeset	239	testMergeGroupB
9e312de5f694 - Initial commit jv parents: diff changeset	240	"used by MetacelloAbstractVersionConstructor>>group:with:"
9e312de5f694 - Initial commit jv parents: diff changeset	241
9e312de5f694 - Initial commit jv parents: diff changeset	242	\| packages group \|
9e312de5f694 - Initial commit jv parents: diff changeset	243	packages := self packagesSpec.
9e312de5f694 - Initial commit jv parents: diff changeset	244	packages
9e312de5f694 - Initial commit jv parents: diff changeset	245	add:
9e312de5f694 - Initial commit jv parents: diff changeset	246	(self groupSpec
9e312de5f694 - Initial commit jv parents: diff changeset	247	name: 'Platform';
9e312de5f694 - Initial commit jv parents: diff changeset	248	includes: 'Core';
9e312de5f694 - Initial commit jv parents: diff changeset	249	yourself).
9e312de5f694 - Initial commit jv parents: diff changeset	250	packages
9e312de5f694 - Initial commit jv parents: diff changeset	251	merge:
9e312de5f694 - Initial commit jv parents: diff changeset	252	{(self groupSpec
9e312de5f694 - Initial commit jv parents: diff changeset	253	name: 'Platform';
9e312de5f694 - Initial commit jv parents: diff changeset	254	includes: 'Tests';
9e312de5f694 - Initial commit jv parents: diff changeset	255	yourself)}.
9e312de5f694 - Initial commit jv parents: diff changeset	256	group := packages packageNamed: 'Platform' ifAbsent: [ self assert: false ].
9e312de5f694 - Initial commit jv parents: diff changeset	257	self assert: (group includes includes: 'Core').
9e312de5f694 - Initial commit jv parents: diff changeset	258	self assert: (group includes includes: 'Tests')
9e312de5f694 - Initial commit jv parents: diff changeset	259	!
9e312de5f694 - Initial commit jv parents: diff changeset	260
9e312de5f694 - Initial commit jv parents: diff changeset	261	testMergeProjectA
9e312de5f694 - Initial commit jv parents: diff changeset	262	"used by MetacelloAbstractVersionConstructor>>project:with:"
9e312de5f694 - Initial commit jv parents: diff changeset	263
9e312de5f694 - Initial commit jv parents: diff changeset	264	\| packages project projectReferenceSpec referenceSpec \|
9e312de5f694 - Initial commit jv parents: diff changeset	265	packages := self packagesSpec.
9e312de5f694 - Initial commit jv parents: diff changeset	266	project := self projectSpec
9e312de5f694 - Initial commit jv parents: diff changeset	267	name: 'Project';
9e312de5f694 - Initial commit jv parents: diff changeset	268	className: 'ConfigurationOfProjectA';
9e312de5f694 - Initial commit jv parents: diff changeset	269	versionString: #'stable';
9e312de5f694 - Initial commit jv parents: diff changeset	270	loads: #('MyPackage' 'MyTests');
9e312de5f694 - Initial commit jv parents: diff changeset	271	preLoadDoIt: #'preLoadDoItB';
9e312de5f694 - Initial commit jv parents: diff changeset	272	postLoadDoIt: #'postLoadDoItB';
9e312de5f694 - Initial commit jv parents: diff changeset	273	yourself.
9e312de5f694 - Initial commit jv parents: diff changeset	274	referenceSpec := self project projectReferenceSpec
9e312de5f694 - Initial commit jv parents: diff changeset	275	name: project name;
9e312de5f694 - Initial commit jv parents: diff changeset	276	projectReference: project;
9e312de5f694 - Initial commit jv parents: diff changeset	277	yourself.
9e312de5f694 - Initial commit jv parents: diff changeset	278	packages add: referenceSpec.
9e312de5f694 - Initial commit jv parents: diff changeset	279	project := self projectSpec
9e312de5f694 - Initial commit jv parents: diff changeset	280	name: 'Project';
9e312de5f694 - Initial commit jv parents: diff changeset	281	className: 'ConfigurationOfProject';
9e312de5f694 - Initial commit jv parents: diff changeset	282	versionString: '1.0';
9e312de5f694 - Initial commit jv parents: diff changeset	283	operator: #'<';
9e312de5f694 - Initial commit jv parents: diff changeset	284	loads: #('MyPackage');
9e312de5f694 - Initial commit jv parents: diff changeset	285	preLoadDoIt: #'preLoadDoIt';
9e312de5f694 - Initial commit jv parents: diff changeset	286	postLoadDoIt: #'postLoadDoIt';
9e312de5f694 - Initial commit jv parents: diff changeset	287	yourself.
9e312de5f694 - Initial commit jv parents: diff changeset	288	referenceSpec := self project projectReferenceSpec
9e312de5f694 - Initial commit jv parents: diff changeset	289	name: project name;
9e312de5f694 - Initial commit jv parents: diff changeset	290	projectReference: project;
9e312de5f694 - Initial commit jv parents: diff changeset	291	yourself.
9e312de5f694 - Initial commit jv parents: diff changeset	292	packages merge: referenceSpec.
9e312de5f694 - Initial commit jv parents: diff changeset	293	projectReferenceSpec := packages packageNamed: 'Project' ifAbsent: [ self assert: false ].
9e312de5f694 - Initial commit jv parents: diff changeset	294	project := projectReferenceSpec referencedSpec.
9e312de5f694 - Initial commit jv parents: diff changeset	295	self assert: project name = 'Project'.
9e312de5f694 - Initial commit jv parents: diff changeset	296	self assert: project className = 'ConfigurationOfProject'.
9e312de5f694 - Initial commit jv parents: diff changeset	297	self assert: project versionString = '1.0'.
9e312de5f694 - Initial commit jv parents: diff changeset	298	self assert: project operator == #'<'.
9e312de5f694 - Initial commit jv parents: diff changeset	299	self assert: project loads = #('MyPackage').
9e312de5f694 - Initial commit jv parents: diff changeset	300	self assert: project preLoadDoIt value == #'preLoadDoIt'.
9e312de5f694 - Initial commit jv parents: diff changeset	301	self assert: project postLoadDoIt value == #'postLoadDoIt'.
9e312de5f694 - Initial commit jv parents: diff changeset	302	project
9e312de5f694 - Initial commit jv parents: diff changeset	303	projectDo: [ :prjct \| self assert: project == prjct ]
9e312de5f694 - Initial commit jv parents: diff changeset	304	packageDo: [ :ignored \| self assert: false ]
9e312de5f694 - Initial commit jv parents: diff changeset	305	groupDo: [ :ignored \| self assert: false ]
9e312de5f694 - Initial commit jv parents: diff changeset	306	!
9e312de5f694 - Initial commit jv parents: diff changeset	307
9e312de5f694 - Initial commit jv parents: diff changeset	308	testMergeProjectB
9e312de5f694 - Initial commit jv parents: diff changeset	309	"used by MetacelloAbstractVersionConstructor>>project:with:"
9e312de5f694 - Initial commit jv parents: diff changeset	310
9e312de5f694 - Initial commit jv parents: diff changeset	311	\| packages project projectReferenceSpec referenceSpec \|
9e312de5f694 - Initial commit jv parents: diff changeset	312	packages := self packagesSpec.
9e312de5f694 - Initial commit jv parents: diff changeset	313	project := self projectSpec
9e312de5f694 - Initial commit jv parents: diff changeset	314	name: 'Project';
9e312de5f694 - Initial commit jv parents: diff changeset	315	className: 'ConfigurationOfProjectA';
9e312de5f694 - Initial commit jv parents: diff changeset	316	versionString: #'stable';
9e312de5f694 - Initial commit jv parents: diff changeset	317	loads: #('MyPackage' 'MyTests');
9e312de5f694 - Initial commit jv parents: diff changeset	318	preLoadDoIt: #'preLoadDoItB';
9e312de5f694 - Initial commit jv parents: diff changeset	319	postLoadDoIt: #'postLoadDoItB';
9e312de5f694 - Initial commit jv parents: diff changeset	320	yourself.
9e312de5f694 - Initial commit jv parents: diff changeset	321	referenceSpec := self project projectReferenceSpec
9e312de5f694 - Initial commit jv parents: diff changeset	322	name: project name;
9e312de5f694 - Initial commit jv parents: diff changeset	323	projectReference: project;
9e312de5f694 - Initial commit jv parents: diff changeset	324	yourself.
9e312de5f694 - Initial commit jv parents: diff changeset	325	packages add: referenceSpec.
9e312de5f694 - Initial commit jv parents: diff changeset	326	project := self projectSpec
9e312de5f694 - Initial commit jv parents: diff changeset	327	name: 'Project';
9e312de5f694 - Initial commit jv parents: diff changeset	328	className: 'ConfigurationOfProject';
9e312de5f694 - Initial commit jv parents: diff changeset	329	versionString: '1.0';
9e312de5f694 - Initial commit jv parents: diff changeset	330	operator: #'<';
9e312de5f694 - Initial commit jv parents: diff changeset	331	loads: #('MyPackage');
9e312de5f694 - Initial commit jv parents: diff changeset	332	preLoadDoIt: #'preLoadDoIt';
9e312de5f694 - Initial commit jv parents: diff changeset	333	postLoadDoIt: #'postLoadDoIt';
9e312de5f694 - Initial commit jv parents: diff changeset	334	yourself.
9e312de5f694 - Initial commit jv parents: diff changeset	335	referenceSpec := self project projectReferenceSpec
9e312de5f694 - Initial commit jv parents: diff changeset	336	name: project name;
9e312de5f694 - Initial commit jv parents: diff changeset	337	projectReference: project;
9e312de5f694 - Initial commit jv parents: diff changeset	338	yourself.
9e312de5f694 - Initial commit jv parents: diff changeset	339	packages merge: {referenceSpec}.
9e312de5f694 - Initial commit jv parents: diff changeset	340	projectReferenceSpec := packages packageNamed: 'Project' ifAbsent: [ self assert: false ].
9e312de5f694 - Initial commit jv parents: diff changeset	341	project := projectReferenceSpec referencedSpec.
9e312de5f694 - Initial commit jv parents: diff changeset	342	self assert: project name = 'Project'.
9e312de5f694 - Initial commit jv parents: diff changeset	343	self assert: project className = 'ConfigurationOfProject'.
9e312de5f694 - Initial commit jv parents: diff changeset	344	self assert: project versionString = '1.0'.
9e312de5f694 - Initial commit jv parents: diff changeset	345	self assert: project operator == #'<'.
9e312de5f694 - Initial commit jv parents: diff changeset	346	self assert: project loads = #('MyPackage').
9e312de5f694 - Initial commit jv parents: diff changeset	347	self assert: project preLoadDoIt value == #'preLoadDoIt'.
9e312de5f694 - Initial commit jv parents: diff changeset	348	self assert: project postLoadDoIt value == #'postLoadDoIt'.
9e312de5f694 - Initial commit jv parents: diff changeset	349	project
9e312de5f694 - Initial commit jv parents: diff changeset	350	projectDo: [ :prjct \| self assert: project == prjct ]
9e312de5f694 - Initial commit jv parents: diff changeset	351	packageDo: [ :ignored \| self assert: false ]
9e312de5f694 - Initial commit jv parents: diff changeset	352	groupDo: [ :ignored \| self assert: false ]
9e312de5f694 - Initial commit jv parents: diff changeset	353	!
9e312de5f694 - Initial commit jv parents: diff changeset	354
9e312de5f694 - Initial commit jv parents: diff changeset	355	testRemoveGroupA
9e312de5f694 - Initial commit jv parents: diff changeset	356	"used by MetacelloAbstractVersionConstructor>>removeGroup:"
9e312de5f694 - Initial commit jv parents: diff changeset	357
9e312de5f694 - Initial commit jv parents: diff changeset	358	\| packages group removed \|
9e312de5f694 - Initial commit jv parents: diff changeset	359	packages := self packagesSpec.
9e312de5f694 - Initial commit jv parents: diff changeset	360	packages
9e312de5f694 - Initial commit jv parents: diff changeset	361	add:
9e312de5f694 - Initial commit jv parents: diff changeset	362	(self groupSpec
9e312de5f694 - Initial commit jv parents: diff changeset	363	name: 'Platform';
9e312de5f694 - Initial commit jv parents: diff changeset	364	includes: 'Core';
9e312de5f694 - Initial commit jv parents: diff changeset	365	yourself).
9e312de5f694 - Initial commit jv parents: diff changeset	366	packages
9e312de5f694 - Initial commit jv parents: diff changeset	367	merge:
9e312de5f694 - Initial commit jv parents: diff changeset	368	(self groupSpec
9e312de5f694 - Initial commit jv parents: diff changeset	369	name: 'Platform';
9e312de5f694 - Initial commit jv parents: diff changeset	370	includes: 'Tests';
9e312de5f694 - Initial commit jv parents: diff changeset	371	yourself).
9e312de5f694 - Initial commit jv parents: diff changeset	372	group := packages packageNamed: 'Platform' ifAbsent: [ self assert: false ].
9e312de5f694 - Initial commit jv parents: diff changeset	373	self assert: (group includes includes: 'Core').
9e312de5f694 - Initial commit jv parents: diff changeset	374	self assert: (group includes includes: 'Tests').
9e312de5f694 - Initial commit jv parents: diff changeset	375	packages
9e312de5f694 - Initial commit jv parents: diff changeset	376	remove:
9e312de5f694 - Initial commit jv parents: diff changeset	377	(self groupSpec
9e312de5f694 - Initial commit jv parents: diff changeset	378	name: 'Platform';
9e312de5f694 - Initial commit jv parents: diff changeset	379	includes: 'Core';
9e312de5f694 - Initial commit jv parents: diff changeset	380	yourself).
9e312de5f694 - Initial commit jv parents: diff changeset	381	removed := false.
9e312de5f694 - Initial commit jv parents: diff changeset	382	packages packageNamed: 'Platform' ifAbsent: [ removed := true ].
9e312de5f694 - Initial commit jv parents: diff changeset	383	self assert: removed
9e312de5f694 - Initial commit jv parents: diff changeset	384	!
9e312de5f694 - Initial commit jv parents: diff changeset	385
9e312de5f694 - Initial commit jv parents: diff changeset	386	testRemoveGroupB
9e312de5f694 - Initial commit jv parents: diff changeset	387	"used by MetacelloAbstractVersionConstructor>>removeGroup:"
9e312de5f694 - Initial commit jv parents: diff changeset	388
9e312de5f694 - Initial commit jv parents: diff changeset	389	\| packages group removed \|
9e312de5f694 - Initial commit jv parents: diff changeset	390	packages := self packagesSpec.
9e312de5f694 - Initial commit jv parents: diff changeset	391	packages
9e312de5f694 - Initial commit jv parents: diff changeset	392	add:
9e312de5f694 - Initial commit jv parents: diff changeset	393	{(self groupSpec
9e312de5f694 - Initial commit jv parents: diff changeset	394	name: 'Platform';
9e312de5f694 - Initial commit jv parents: diff changeset	395	includes: 'Core';
9e312de5f694 - Initial commit jv parents: diff changeset	396	yourself).
9e312de5f694 - Initial commit jv parents: diff changeset	397	(self groupSpec
9e312de5f694 - Initial commit jv parents: diff changeset	398	name: 'Base';
9e312de5f694 - Initial commit jv parents: diff changeset	399	includes: 'Base';
9e312de5f694 - Initial commit jv parents: diff changeset	400	yourself).
9e312de5f694 - Initial commit jv parents: diff changeset	401	(self groupSpec
9e312de5f694 - Initial commit jv parents: diff changeset	402	name: 'Tests';
9e312de5f694 - Initial commit jv parents: diff changeset	403	includes: 'Tests';
9e312de5f694 - Initial commit jv parents: diff changeset	404	yourself)}.
9e312de5f694 - Initial commit jv parents: diff changeset	405	packages packageNamed: 'Platform' ifAbsent: [ self assert: false ].
9e312de5f694 - Initial commit jv parents: diff changeset	406	packages packageNamed: 'Base' ifAbsent: [ self assert: false ].
9e312de5f694 - Initial commit jv parents: diff changeset	407	packages packageNamed: 'Tests' ifAbsent: [ self assert: false ].
9e312de5f694 - Initial commit jv parents: diff changeset	408	packages
9e312de5f694 - Initial commit jv parents: diff changeset	409	remove:
9e312de5f694 - Initial commit jv parents: diff changeset	410	{'Base'.
9e312de5f694 - Initial commit jv parents: diff changeset	411	'Tests'}.
9e312de5f694 - Initial commit jv parents: diff changeset	412	packages packageNamed: 'Platform' ifAbsent: [ self assert: false ].
9e312de5f694 - Initial commit jv parents: diff changeset	413	removed := false.
9e312de5f694 - Initial commit jv parents: diff changeset	414	packages packageNamed: 'Base' ifAbsent: [ removed := true ].
9e312de5f694 - Initial commit jv parents: diff changeset	415	self assert: removed.
9e312de5f694 - Initial commit jv parents: diff changeset	416	removed := false.
9e312de5f694 - Initial commit jv parents: diff changeset	417	packages packageNamed: 'Tests' ifAbsent: [ removed := true ].
9e312de5f694 - Initial commit jv parents: diff changeset	418	self assert: removed
9e312de5f694 - Initial commit jv parents: diff changeset	419	!
9e312de5f694 - Initial commit jv parents: diff changeset	420
9e312de5f694 - Initial commit jv parents: diff changeset	421	testRemoveGroupC
9e312de5f694 - Initial commit jv parents: diff changeset	422	"used by MetacelloAbstractVersionConstructor>>removeGroup:"
9e312de5f694 - Initial commit jv parents: diff changeset	423
9e312de5f694 - Initial commit jv parents: diff changeset	424	\| packages group removed \|
9e312de5f694 - Initial commit jv parents: diff changeset	425	packages := self packagesSpec.
9e312de5f694 - Initial commit jv parents: diff changeset	426	packages
9e312de5f694 - Initial commit jv parents: diff changeset	427	add:
9e312de5f694 - Initial commit jv parents: diff changeset	428	{(self groupSpec
9e312de5f694 - Initial commit jv parents: diff changeset	429	name: 'Platform';
9e312de5f694 - Initial commit jv parents: diff changeset	430	includes: 'Core';
9e312de5f694 - Initial commit jv parents: diff changeset	431	yourself).
9e312de5f694 - Initial commit jv parents: diff changeset	432	(self groupSpec
9e312de5f694 - Initial commit jv parents: diff changeset	433	name: 'Base';
9e312de5f694 - Initial commit jv parents: diff changeset	434	includes: 'Base';
9e312de5f694 - Initial commit jv parents: diff changeset	435	yourself).
9e312de5f694 - Initial commit jv parents: diff changeset	436	(self groupSpec
9e312de5f694 - Initial commit jv parents: diff changeset	437	name: 'Tests';
9e312de5f694 - Initial commit jv parents: diff changeset	438	includes: 'Tests';
9e312de5f694 - Initial commit jv parents: diff changeset	439	yourself)}.
9e312de5f694 - Initial commit jv parents: diff changeset	440	packages packageNamed: 'Platform' ifAbsent: [ self assert: false ].
9e312de5f694 - Initial commit jv parents: diff changeset	441	packages packageNamed: 'Base' ifAbsent: [ self assert: false ].
9e312de5f694 - Initial commit jv parents: diff changeset	442	packages packageNamed: 'Tests' ifAbsent: [ self assert: false ].
9e312de5f694 - Initial commit jv parents: diff changeset	443	packages remove: 'Tests'.
9e312de5f694 - Initial commit jv parents: diff changeset	444	packages packageNamed: 'Platform' ifAbsent: [ self assert: false ].
9e312de5f694 - Initial commit jv parents: diff changeset	445	packages packageNamed: 'Base' ifAbsent: [ self assert: false ].
9e312de5f694 - Initial commit jv parents: diff changeset	446	removed := false.
9e312de5f694 - Initial commit jv parents: diff changeset	447	packages packageNamed: 'Tests' ifAbsent: [ removed := true ].
9e312de5f694 - Initial commit jv parents: diff changeset	448	self assert: removed
9e312de5f694 - Initial commit jv parents: diff changeset	449	!
9e312de5f694 - Initial commit jv parents: diff changeset	450
9e312de5f694 - Initial commit jv parents: diff changeset	451	testRemoveProjectA
9e312de5f694 - Initial commit jv parents: diff changeset	452	"used by MetacelloAbstractVersionConstructor>>removeProject:"
9e312de5f694 - Initial commit jv parents: diff changeset	453
9e312de5f694 - Initial commit jv parents: diff changeset	454	\| packages project projectReferenceSpec removed \|
9e312de5f694 - Initial commit jv parents: diff changeset	455	packages := self packagesSpec.
9e312de5f694 - Initial commit jv parents: diff changeset	456	packages
9e312de5f694 - Initial commit jv parents: diff changeset	457	add:
9e312de5f694 - Initial commit jv parents: diff changeset	458	(self projectSpec
9e312de5f694 - Initial commit jv parents: diff changeset	459	name: 'Project';
9e312de5f694 - Initial commit jv parents: diff changeset	460	className: 'ConfigurationOfProject';
9e312de5f694 - Initial commit jv parents: diff changeset	461	versionString: '1.0';
9e312de5f694 - Initial commit jv parents: diff changeset	462	operator: #'<';
9e312de5f694 - Initial commit jv parents: diff changeset	463	loads: #('MyPackage');
9e312de5f694 - Initial commit jv parents: diff changeset	464	preLoadDoIt: #'preLoadDoIt';
9e312de5f694 - Initial commit jv parents: diff changeset	465	postLoadDoIt: #'postLoadDoIt';
9e312de5f694 - Initial commit jv parents: diff changeset	466	yourself).
9e312de5f694 - Initial commit jv parents: diff changeset	467	projectReferenceSpec := packages packageNamed: 'Project' ifAbsent: [ self assert: false ].
9e312de5f694 - Initial commit jv parents: diff changeset	468	project := projectReferenceSpec referencedSpec.
9e312de5f694 - Initial commit jv parents: diff changeset	469	self assert: project name = 'Project'.
9e312de5f694 - Initial commit jv parents: diff changeset	470	self assert: project className = 'ConfigurationOfProject'.
9e312de5f694 - Initial commit jv parents: diff changeset	471	self assert: project versionString = '1.0'.
9e312de5f694 - Initial commit jv parents: diff changeset	472	self assert: project operator == #'<'.
9e312de5f694 - Initial commit jv parents: diff changeset	473	self assert: project loads = #('MyPackage').
9e312de5f694 - Initial commit jv parents: diff changeset	474	self assert: project preLoadDoIt value == #'preLoadDoIt'.
9e312de5f694 - Initial commit jv parents: diff changeset	475	self assert: project postLoadDoIt value == #'postLoadDoIt'.
9e312de5f694 - Initial commit jv parents: diff changeset	476	packages
9e312de5f694 - Initial commit jv parents: diff changeset	477	remove:
9e312de5f694 - Initial commit jv parents: diff changeset	478	(self projectReferenceSpec
9e312de5f694 - Initial commit jv parents: diff changeset	479	name: 'Project';
9e312de5f694 - Initial commit jv parents: diff changeset	480	yourself).
9e312de5f694 - Initial commit jv parents: diff changeset	481	removed := false.
9e312de5f694 - Initial commit jv parents: diff changeset	482	packages packageNamed: 'Project' ifAbsent: [ removed := true ].
9e312de5f694 - Initial commit jv parents: diff changeset	483	self assert: removed
9e312de5f694 - Initial commit jv parents: diff changeset	484	!
9e312de5f694 - Initial commit jv parents: diff changeset	485
9e312de5f694 - Initial commit jv parents: diff changeset	486	testRemoveProjectB
9e312de5f694 - Initial commit jv parents: diff changeset	487	"used by MetacelloAbstractVersionConstructor>>removeProject:"
9e312de5f694 - Initial commit jv parents: diff changeset	488
9e312de5f694 - Initial commit jv parents: diff changeset	489	\| packages project projectReferenceSpec removed \|
9e312de5f694 - Initial commit jv parents: diff changeset	490	packages := self packagesSpec.
9e312de5f694 - Initial commit jv parents: diff changeset	491	packages
9e312de5f694 - Initial commit jv parents: diff changeset	492	add:
9e312de5f694 - Initial commit jv parents: diff changeset	493	(self projectSpec
9e312de5f694 - Initial commit jv parents: diff changeset	494	name: 'Project';
9e312de5f694 - Initial commit jv parents: diff changeset	495	className: 'ConfigurationOfProject';
9e312de5f694 - Initial commit jv parents: diff changeset	496	versionString: '1.0';
9e312de5f694 - Initial commit jv parents: diff changeset	497	operator: #'<';
9e312de5f694 - Initial commit jv parents: diff changeset	498	loads: #('MyPackage');
9e312de5f694 - Initial commit jv parents: diff changeset	499	preLoadDoIt: #'preLoadDoIt';
9e312de5f694 - Initial commit jv parents: diff changeset	500	postLoadDoIt: #'postLoadDoIt';
9e312de5f694 - Initial commit jv parents: diff changeset	501	yourself).
9e312de5f694 - Initial commit jv parents: diff changeset	502	projectReferenceSpec := packages packageNamed: 'Project' ifAbsent: [ self assert: false ].
9e312de5f694 - Initial commit jv parents: diff changeset	503	project := projectReferenceSpec referencedSpec.
9e312de5f694 - Initial commit jv parents: diff changeset	504	self assert: project name = 'Project'.
9e312de5f694 - Initial commit jv parents: diff changeset	505	self assert: project className = 'ConfigurationOfProject'.
9e312de5f694 - Initial commit jv parents: diff changeset	506	self assert: project versionString = '1.0'.
9e312de5f694 - Initial commit jv parents: diff changeset	507	self assert: project operator == #'<'.
9e312de5f694 - Initial commit jv parents: diff changeset	508	self assert: project loads = #('MyPackage').
9e312de5f694 - Initial commit jv parents: diff changeset	509	self assert: project preLoadDoIt value == #'preLoadDoIt'.
9e312de5f694 - Initial commit jv parents: diff changeset	510	self assert: project postLoadDoIt value == #'postLoadDoIt'.
9e312de5f694 - Initial commit jv parents: diff changeset	511	packages
9e312de5f694 - Initial commit jv parents: diff changeset	512	remove:
9e312de5f694 - Initial commit jv parents: diff changeset	513	{(self projectReferenceSpec
9e312de5f694 - Initial commit jv parents: diff changeset	514	name: 'Project';
9e312de5f694 - Initial commit jv parents: diff changeset	515	yourself)}.
9e312de5f694 - Initial commit jv parents: diff changeset	516	removed := false.
9e312de5f694 - Initial commit jv parents: diff changeset	517	packages packageNamed: 'Project' ifAbsent: [ removed := true ].
9e312de5f694 - Initial commit jv parents: diff changeset	518	self assert: removed
9e312de5f694 - Initial commit jv parents: diff changeset	519	! !
9e312de5f694 - Initial commit jv parents: diff changeset	520
9e312de5f694 - Initial commit jv parents: diff changeset	521	!MetacelloPackagesSpecTestCase class methodsFor:'documentation'!
9e312de5f694 - Initial commit jv parents: diff changeset	522
9e312de5f694 - Initial commit jv parents: diff changeset	523	version_SVN
9e312de5f694 - Initial commit jv parents: diff changeset	524	^ '$Id:: $'
9e312de5f694 - Initial commit jv parents: diff changeset	525	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 03 Sep 2012 13:10:51 +0000
changeset 3	504152ada1fc
parent 1	9e312de5f694
permissions	-rw-r--r--