| 1 | "{ Encoding: utf8 }" !
|
|---|
| 2 | !HGTests methodsFor:'tests - branches'!
|
|---|
| 3 |
|
|---|
| 4 | test_branches_issue256b
|
|---|
| 5 | "
|
|---|
| 6 | Change branch with spaces & commit. Check whether commited changeset
|
|---|
| 7 | has the branch set.
|
|---|
| 8 | "
|
|---|
| 9 |
|
|---|
| 10 | | repo wc |
|
|---|
| 11 |
|
|---|
| 12 | repo := self repositoryNamed:'test_repo_01'.
|
|---|
| 13 | wc := repo workingCopy.
|
|---|
| 14 | self assert: repo branches size == 1.
|
|---|
| 15 | wc branch: 'test branches issue256b'.
|
|---|
| 16 |
|
|---|
| 17 | "Modify some file"
|
|---|
| 18 | (wc / 'f1.txt') writingFileDo:[:s | s nextPutAll:'modified...' ].
|
|---|
| 19 | wc commit: testSelector , ' - commit 01'.
|
|---|
| 20 |
|
|---|
| 21 | self assert: wc changeset branches size == 1.
|
|---|
| 22 | self assert: wc changeset branches anElement name = 'test branches issue256b'.
|
|---|
| 23 | self assert: repo branches size == 2.
|
|---|
| 24 | self assert:(repo branches contains: [:b|b name = 'default']).
|
|---|
| 25 | self assert:(repo branches contains: [:b|b name = 'test branches issue256b']).
|
|---|
| 26 |
|
|---|
| 27 | wc branch: 'default'.
|
|---|
| 28 | "Modify some file"
|
|---|
| 29 | (wc / 'f1.txt') writingFileDo:[:s | s nextPutAll:'modified_default...' ].
|
|---|
| 30 | wc commit: testSelector , ' - commit default branch 01'.
|
|---|
| 31 |
|
|---|
| 32 | self assert: wc changeset branches size == 1.
|
|---|
| 33 | self assert: wc changeset branches anElement name = 'default'.
|
|---|
| 34 |
|
|---|
| 35 | "Created: / 06-03-2019 / 10:32:50 / svestkap"
|
|---|
| 36 | ! !
|
|---|
| 37 |
|
|---|
