456 !

   457 

   458 test_branches_issue256a

   459     "

   460     Change branch with spaces & commit. Check whether commited changeset

   461     has the branch set.

   462     "

   463 

   464     | repo wc |

   465 

   466     repo := self repositoryNamed:'test_repo_01'.

   467     wc := repo workingCopy.

   468     self assert: repo branches size == 1.

   469     wc branch: 'test branches issue256a'.

   470 

   471     "Modify some file"

   472     (wc / 'f1.txt') writingFileDo:[:s | s nextPutAll:'modified...' ].

   473     wc commit: testSelector , ' - commit 01'.

   474 

   475     self assert: wc changeset branches size == 1.

   476     self assert: wc changeset branches anElement name = 'test branches issue256a'.

   477     self assert: repo branches size == 2.

   478     self assert:(repo branches contains: [:b|b name = 'default']).

   479     self assert:(repo branches contains: [:b|b name = 'test branches issue256a']).

   480 

   481     "Created: / 07-01-2019 / 22:42:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"