1173 wc commit:testSelector ,' 2' files: nil author: nil amend: true. |
1173 wc commit:testSelector ,' 2' files: nil author: nil amend: true. |
1174 cs2 := wc changeset. |
1174 cs2 := wc changeset. |
1175 self assert: cs0 isObsolete not. |
1175 self assert: cs0 isObsolete not. |
1176 self assert: cs0 successors isEmpty. |
1176 self assert: cs0 successors isEmpty. |
1177 self assert: cs1 isObsolete. |
1177 self assert: cs1 isObsolete. |
1178 self assert: cs1 successors size == 1. |
1178 "/ HGChangeset >> successors is not supported on |
1179 self assert:(cs1 successors includes: cs2). |
1179 "/ Mercurial < 4.1. In that case, successors returns an |
|
1180 "/ empty array. |
|
1181 HGCommand hgVersionIsGreaterOrEqualThan_4_1 ifTrue:[ |
|
1182 self assert: cs1 successors size == 1. |
|
1183 self assert:(cs1 successors includes: cs2). |
|
1184 ]. |
1180 self assert: cs2 isObsolete not. |
1185 self assert: cs2 isObsolete not. |
1181 self assert: cs2 successors isEmpty. |
1186 self assert: cs2 successors isEmpty. |
1182 |
1187 |
1183 |
1188 |
1184 |
1189 |
1185 ( wc / 'f1.txt' ) writingFileDo:[:s | s nextPutAll:'modified from ', testSelector, ' 3'. ]. |
1190 ( wc / 'f1.txt' ) writingFileDo:[:s | s nextPutAll:'modified from ', testSelector, ' 3'. ]. |
1186 wc commit:testSelector ,' 3' files: nil author: nil amend: true. |
1191 wc commit:testSelector ,' 3' files: nil author: nil amend: true. |
1187 cs3 := wc changeset. |
1192 cs3 := wc changeset. |
1188 self assert: cs0 isObsolete not. |
1193 self assert: cs0 isObsolete not. |
1189 self assert: cs1 isObsolete. |
1194 self assert: cs1 isObsolete. |
1190 self assert: cs1 successors size == 1. |
1195 HGCommand hgVersionIsGreaterOrEqualThan_4_1 ifTrue:[ |
1191 self assert:(cs1 successors includes: cs2). |
1196 self assert: cs1 successors size == 1. |
|
1197 self assert:(cs1 successors includes: cs2). |
|
1198 ]. |
1192 self assert: cs2 isObsolete. |
1199 self assert: cs2 isObsolete. |
1193 self assert: cs2 successors size == 1. |
1200 HGCommand hgVersionIsGreaterOrEqualThan_4_1 ifTrue:[ |
1194 self assert:(cs2 successors includes: cs3). |
1201 self assert: cs2 successors size == 1. |
|
1202 self assert:(cs2 successors includes: cs3). |
|
1203 ]. |
1195 self assert: cs3 isObsolete not. |
1204 self assert: cs3 isObsolete not. |
1196 |
1205 |
1197 " |
1206 " |
1198 UserPreferences fileBrowserClass openOn: repo path . |
1207 UserPreferences fileBrowserClass openOn: repo path . |
1199 " |
1208 " |
1200 |
1209 |
1201 "Created: / 08-02-2018 / 09:35:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1210 "Created: / 08-02-2018 / 09:35:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1202 "Modified: / 08-02-2018 / 15:36:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1211 "Modified: / 08-02-2018 / 15:36:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1212 "Modified: / 30-03-2018 / 22:34:36 / jv" |
1203 ! ! |
1213 ! ! |
1204 |
1214 |
1205 !HGTests methodsFor:'tests - mercurial'! |
1215 !HGTests methodsFor:'tests - mercurial'! |
1206 |
1216 |
1207 test_mercurial_test_commit_t |
1217 test_mercurial_test_commit_t |