424 !

   425 

   426 test_commit_04

   427     "

   428     Commit with specified date

   429     "

   430 

   431     | repo wc cs|

   432 

   433     repo := self repositoryNamed:'test_repo_01'.

   434     wc := repo workingCopy. 

   435     ( wc / 'f1.txt' ) writingFileDo:[:s | s nextPutAll:'modified from test_commit_04 2'. ].

   436 

   437     wc commit: 'test_commit_04 2' date: (Timestamp secondsSince1970:0).

   438 

   439     cs := repo @ 5.

   440     self assert: cs timestamp = (Timestamp secondsSince1970:0).

   441     self assert: cs id printString = '5:0f1497773ce6'.

   442 

   443 

   444     "Now, fake missing ui.username config entry"

   445 

   446 

   447 

   448 

   449 

   450 

   451 

   452 

   453 

   454 

   455      "

   456      UserPreferences fileBrowserClass openOn: repo directory.

   457     "

   458 

   459     "Created: / 01-02-2013 / 14:46:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"