equal
deleted
inserted
replaced
737 repoA := self repositoryNamed: 'test_push_01_A' init: true. |
737 repoA := self repositoryNamed: 'test_push_01_A' init: true. |
738 wcA := repoA workingCopy. |
738 wcA := repoA workingCopy. |
739 repoCDir := HGRepositoriesResource current directoryForRepositoryNamed: 'test_push_01_C' init: false. |
739 repoCDir := HGRepositoriesResource current directoryForRepositoryNamed: 'test_push_01_C' init: false. |
740 repoC := repoA cloneTo: repoCDir. |
740 repoC := repoA cloneTo: repoCDir. |
741 |
741 |
742 self should: [ repoA push: '/some/funny/directory' ] raise: HGError suchThat:[:ex|ex description startsWith: 'repository']. |
742 self should: [ repoA push: '/some/funny/directory' ] raise: HGError |
|
743 suchThat:[:ex| |
|
744 ex description startsWith: 'repository' |
|
745 ]. |
743 |
746 |
744 |
747 |
745 log := OrderedCollection new. |
748 log := OrderedCollection new. |
746 [ info := repoA push: repoC pathName ] on: HGNotification do:[:not|log add: not. not proceed]. |
749 [ info := repoA push: repoC pathName ] on: HGNotification do:[:not|log add: not. not proceed]. |
747 self assert: log size = 1. |
750 self assert: log size = 1. |
762 self assert: info numChanges = 1. |
765 self assert: info numChanges = 1. |
763 self assert: info numFiles = 1. |
766 self assert: info numFiles = 1. |
764 |
767 |
765 "Created: / 04-02-2013 / 13:30:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
768 "Created: / 04-02-2013 / 13:30:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
766 "Modified: / 04-02-2013 / 23:37:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
769 "Modified: / 04-02-2013 / 23:37:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
770 "Modified (format): / 03-03-2013 / 23:55:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
767 ! ! |
771 ! ! |
768 |
772 |
769 !HGTests methodsFor:'tests - wc'! |
773 !HGTests methodsFor:'tests - wc'! |
770 |
774 |
771 test_wc_01a |
775 test_wc_01a |