Faculty of Information Technology
Software Engineering Group

Ticket #256: HGTests-test_branches_issue256b.st

File HGTests-test_branches_issue256b.st, 1.2 KB (added by Patrik Svestka, 8 months ago)

Fileout for the test

Line 
1"{ Encoding: utf8 }" !
2!HGTests methodsFor:'tests - branches'!
3
4test_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