hg/stx-goodies-monticello: test/MCOrganizationTest.st@7b6393ea3d52 (annotated)

10 0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1	"{ Package: 'stx:goodies/monticello/test' }"
0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2
0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3	MCTestCase subclass:#MCOrganizationTest
0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4	instanceVariableNames:''
0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5	classVariableNames:''
0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	6	poolDictionaries:''
808 e1544cd3349d Tests moved to category SCM-Monticello-Tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	7	category:'SCM-Monticello-Tests'
10 0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	!
0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	9
0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10
0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	11	!MCOrganizationTest methodsFor:'as yet unclassified'!
0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12
0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13	testReordering
0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14	\|dec cats newCats \|
0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	15	dec _ MCOrganizationDefinition categories: #(A B C).
0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	16	cats _ #(X Y B Z C A Q).
0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	17	newCats _ dec reorderCategories: cats original: #(B C A).
0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	18	self assert: newCats asArray = #(X Y A B C Z Q).
0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	19	!
0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20
0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21	testReorderingWithNoCategoriesInVersion
0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22	\|dec cats newCats \|
0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	23	dec _ MCOrganizationDefinition categories: #().
0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	24	cats _ #(X Y B Z C A Q).
0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25	newCats _ dec reorderCategories: cats original: #().
0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	26	self assert: newCats asArray = cats.
0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	27	!
0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	28
0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	29	testReorderingWithRemovals
0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	30	\|dec cats newCats \|
0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	31	dec _ MCOrganizationDefinition categories: #(A B C).
0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	32	cats _ #(X Y B Z C A Q).
0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	33	newCats _ dec reorderCategories: cats original: #(Y B C A Q).
0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	34	self assert: newCats asArray = #(X A B C Z).
0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	35	! !
0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	36
0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	37	!MCOrganizationTest class methodsFor:'documentation'!
0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	38
0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	39	version
808 e1544cd3349d Tests moved to category SCM-Monticello-Tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	40	^ '$Header: /cvs/stx/stx/goodies/monticello/test/MCOrganizationTest.st,v 1.2 2013-05-29 00:00:39 vrany Exp $'
10 0a996025118f initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	41	! !
808 e1544cd3349d Tests moved to category SCM-Monticello-Tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	42

author	HG Automerge
	Thu, 24 Nov 2016 21:56:31 +0000
branch	jv
changeset 1015	7b6393ea3d52
parent 808	e1544cd3349d
child 1029	a2b83d879f6a
child 1121	c5661215109c
permissions	-rw-r--r--