equal
deleted
inserted
replaced
244 cs := repo @ 5. |
244 cs := repo @ 5. |
245 self assert: cs parent1 id revno = 0. |
245 self assert: cs parent1 id revno = 0. |
246 self assert: cs parent2 id revno = 4. |
246 self assert: cs parent2 id revno = 4. |
247 |
247 |
248 "Created: / 27-11-2012 / 20:54:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
248 "Created: / 27-11-2012 / 20:54:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
249 ! |
|
250 |
|
251 test_changeset_07 |
|
252 " |
|
253 Test accessing changesets |
|
254 " |
|
255 |
|
256 | repo cs0 cs1 | |
|
257 |
|
258 repo := self repositoryNamed:'test_repo_01'. |
|
259 |
|
260 cs0 := repo @ 0. |
|
261 cs1 := repo @ 1. |
|
262 |
|
263 self assert: cs0 children size == 1. |
|
264 self assert: (cs0 children includesIdentical: cs1). |
|
265 |
|
266 "Created: / 05-12-2012 / 17:41:07 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
249 ! ! |
267 ! ! |
250 |
268 |
251 !HGTests methodsFor:'tests - commit'! |
269 !HGTests methodsFor:'tests - commit'! |
252 |
270 |
253 test_commit_02 |
271 test_commit_02 |