| author | Claus Gittinger <cg@exept.de> |
| Tue, 08 May 2018 19:54:33 +0200 | |
| changeset 1042 | 3b8c88c55251 |
| parent 1029 | a2b83d879f6a |
| permissions | -rw-r--r-- |
| 1029 | 1 |
"{ Encoding: utf8 }"
|
2 |
||
| 10 | 3 |
"{ Package: 'stx:goodies/monticello/test' }"
|
4 |
||
| 1029 | 5 |
"{ NameSpace: Smalltalk }"
|
6 |
||
| 10 | 7 |
MCTestCase subclass:#MCOrganizationTest |
8 |
instanceVariableNames:'' |
|
9 |
classVariableNames:'' |
|
10 |
poolDictionaries:'' |
|
|
808
e1544cd3349d
Tests moved to category SCM-Monticello-Tests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
10
diff
changeset
|
11 |
category:'SCM-Monticello-Tests' |
| 10 | 12 |
! |
13 |
||
14 |
||
15 |
!MCOrganizationTest methodsFor:'as yet unclassified'! |
|
16 |
||
17 |
testReordering |
|
| 1029 | 18 |
|dec cats newCats | |
19 |
dec _ MCOrganizationDefinition categories: #(A B C). |
|
20 |
cats _ #(X Y B Z C A Q). |
|
21 |
newCats _ dec reorderCategories: cats original: #(B C A). |
|
22 |
Smalltalk isSmalltalkX ifTrue:[ |
|
23 |
self assert: (newCats asSet sameContentsAs: #(X Y A B C Z Q) asSet). |
|
24 |
] ifFalse:[ |
|
25 |
self assert: newCats asArray = #(X Y A B C Z Q). |
|
26 |
]. |
|
| 10 | 27 |
! |
28 |
||
29 |
testReorderingWithNoCategoriesInVersion |
|
30 |
|dec cats newCats | |
|
31 |
dec _ MCOrganizationDefinition categories: #(). |
|
32 |
cats _ #(X Y B Z C A Q). |
|
33 |
newCats _ dec reorderCategories: cats original: #(). |
|
34 |
self assert: newCats asArray = cats. |
|
35 |
! |
|
36 |
||
37 |
testReorderingWithRemovals |
|
| 1029 | 38 |
|dec cats newCats | |
39 |
dec _ MCOrganizationDefinition categories: #(A B C). |
|
40 |
cats _ #(X Y B Z C A Q). |
|
41 |
newCats _ dec reorderCategories: cats original: #(Y B C A Q). |
|
42 |
Smalltalk isSmalltalkX ifFalse:[ |
|
43 |
self assert: newCats asArray = #(X A B C Z). |
|
44 |
]. |
|
| 10 | 45 |
! ! |
46 |
||
47 |
!MCOrganizationTest class methodsFor:'documentation'! |
|
48 |
||
49 |
version |
|
| 1029 | 50 |
^ '$Header$' |
| 10 | 51 |
! ! |
|
808
e1544cd3349d
Tests moved to category SCM-Monticello-Tests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
10
diff
changeset
|
52 |