"

stx:libscm - a new source code management library for Smalltalk/X

Copyright (C) 2012-2015 Jan Vrany

This library is free software; you can redistribute it and/or

modify it under the terms of the GNU Lesser General Public

License as published by the Free Software Foundation; either

version 2.1 of the License. 

This library is distributed in the hope that it will be useful,

but WITHOUT ANY WARRANTY; without even the implied warranty of

MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public

License along with this library; if not, write to the Free Software

Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA

"

"{ Package: 'stx:libscm/mercurial' }"

"{ NameSpace: Smalltalk }"

TestCase subclass:#HGCommandParserTests

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'SCM-Mercurial-Tests'

!

!HGCommandParserTests class methodsFor:'documentation'!

copyright

"

stx:libscm - a new source code management library for Smalltalk/X

Copyright (C) 2012-2015 Jan Vrany

This library is free software; you can redistribute it and/or

modify it under the terms of the GNU Lesser General Public

License as published by the Free Software Foundation; either

version 2.1 of the License. 

This library is distributed in the hope that it will be useful,

but WITHOUT ANY WARRANTY; without even the implied warranty of

MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public

License along with this library; if not, write to the Free Software

Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA

"

! !

!HGCommandParserTests methodsFor:'tests - bookmarks'!

test_bookmarks_01

    | bookmarks |

    bookmarks := (HGCommandParser on: '   issue17-better-log-support 403:5cc256ed28a1

   issue33-http-auth         377:b2123fd2888b

   issue37-update-to-revision 399:858944cebec4

 * master                    403:5cc256ed28a1

') parseBookmarks.

    self assert: bookmarks size == 4.

    self assert: bookmarks first class == HGBookmark.

    self assert: bookmarks first name = 'issue17-better-log-support'.

    self assert: bookmarks first changesetId revno = 403.

    self assert: bookmarks first changesetId hexPrintString = '5CC256ED28A1'.

    self assert: bookmarks fourth class == HGBookmark.

    self assert: bookmarks fourth name = 'master'.

    self assert: bookmarks fourth changesetId revno = 403.

    self assert: bookmarks fourth changesetId hexPrintString = '5CC256ED28A1'.

    "Created: / 19-03-2014 / 23:40:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 20-03-2014 / 17:12:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_dot_hg_bookmarks_01

    | bookmarks |

    bookmarks := (HGCommandParser on: '5cc256ed28a11cd07117f9ee98f5aeb296e96cea issue17-better-log-support

5cc256ed28a11cd07117f9ee98f5aeb296e96cea master

858944cebec4a9ca6825aaaa3838513e35fe604f issue37-update-to-revision X X

b2123fd2888bb4077501d7d276639a463753d02e issue33-http-auth

') parseDotHgBookmarks.

    self assert: bookmarks size == 4.

    self assert: bookmarks first class == HGBookmark.

    self assert: bookmarks first name = 'issue17-better-log-support'.

    self assert: bookmarks first changesetId hexPrintString = '5CC256ED28A11CD07117F9EE98F5AEB296E96CEA'.

    self assert: bookmarks third class == HGBookmark.

    self assert: bookmarks third name = 'issue37-update-to-revision X X'.

    self assert: bookmarks fourth class == HGBookmark.

    self assert: bookmarks fourth name = 'issue33-http-auth'.

    self assert: bookmarks fourth changesetId hexPrintString = 'B2123FD2888BB4077501D7D276639A463753D02E'.

    "Created: / 20-03-2014 / 02:07:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 20-03-2014 / 18:54:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!HGCommandParserTests methodsFor:'tests - commands'!

test_cmd_branches_01

    | branches |

    branches := (HGCommandParser on: (('default|5:f22945219f9be25a1fe436d81afece07b89330be|A

branch1|4:5bd21fb5eea8a7cb4adf45bccfea76cda11df84a|I

branch2|3:32d32dee719fb422a69cfa6f7f8c1d8e299de2df|C

' copyReplaceAll: $| with: Character null))) parseCommandBranches.

    self assert: branches size == 3.

    self assert: branches first name = 'default'.

    self assert: branches first isActive.

    self assert: branches first isClosed not.

    self assert: branches second name = 'branch1'.

    self assert: branches second isActive not.

    self assert: branches second isClosed not.

    self assert: branches third name = 'branch2'.

    self assert: branches third isActive.

    self assert: branches third isClosed.

    "Created: / 27-11-2012 / 19:00:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 07-03-2019 / 12:12:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_cmd_branches_02

    | branches |

    branches := (HGCommandParser on: (('invalid branchheads cache (visible): tip differs

default|5694:756610fa329d48cd8b225524016713485aefbb95|A

jv|5684:2c32b6c5d3543cd0381f9b346d62bfeabb95e6c6|A

')copyReplaceAll: $| with: Character null)) parseCommandBranches.

    self assert: branches size == 2.

    self assert: branches first name = 'default'.

    self assert: branches first isActive.

    self assert: branches first isClosed not.

    self assert: branches second name = 'jv'.

    self assert: branches second isActive.

    self assert: branches second isClosed not.

    "Created: / 08-10-2014 / 20:39:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 07-03-2019 / 12:08:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_cmd_branches_issue256b

    | branches |

    branches := (HGCommandParser on: (('default|6:6b8bef68bf9c6b8bef686b8bef68bf9c6b8bef68|A

test branches issue256b  |5:9db0e56bb86e6b8bef686b8bef68bf9c6b8bef68|I

') copyReplaceAll: $| with: Character null)) parseCommandBranches.

    self assert: branches size == 2.

    self assert: branches first name = 'default'.

    self assert: branches first isActive.

    self assert: branches first isClosed not.

    self assert: branches second name = 'test branches issue256b  '.

    self assert: branches second isActive not.

    self assert: branches second isClosed not.

    "Created: / 07-03-2019 / 10:21:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 07-03-2019 / 12:07:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_cmd_err_branches_01

    (HGCommandParser on: 'invalidating branch cache (tip differs)

') parseErrorBranches.

    "Created: / 06-02-2013 / 19:19:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_cmd_heads_01

    | heads |

    heads := (HGCommandParser on: '6:4e0568ffbf1a53f2d8980ba9844d2af6f0bac455

5:f22945219f9be25a1fe436d81afece07b89330be

4:5bd21fb5eea8a7cb4adf45bccfea76cda11df84a

') parseCommandHeads.

    self assert: heads size == 3.

    self assert: heads first  printString = '6:4e0568ffbf1a'.

    self assert: heads second printString = '5:f22945219f9b'.

    self assert: heads third  printString = '4:5bd21fb5eea8'.

    "Created: / 27-11-2012 / 21:22:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 30-10-2017 / 20:59:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_cmd_help_01

    | expected got |

    expected := 'hg rollback

roll back the last transaction (DANGEROUS) (DEPRECATED)

    Please use "hg commit --amend" instead of rollback to correct mistakes in

    the last commit.

    This command should be used with care. There is only one level of

    rollback, and there is no way to undo a rollback. It will also restore the

    dirstate at the time of the last transaction, losing any dirstate changes

    since that time. This command does not alter the working directory.

    Transactions are used to encapsulate the effects of all commands that

'.

    got := (HGCommandParser on: expected) parseCommandHelp.

    self assert: expected = got

    "Created: / 07-02-2014 / 10:24:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_cmd_log_children_01

    | children |

    children := (HGCommandParser on: '1:4e0568ffbfaa

6:4e0568ffbf1a 5:f22945219f9b 4:5bd21fb5eea8

') 

                parseCommandLogChildren.

    self assert: children first second size == 3.

    self assert: children first second first  printString = '6:4e0568ffbf1a'.

    self assert: children first second second printString = '5:f22945219f9b'.

    self assert: children first second third  printString = '4:5bd21fb5eea8'.

    "Created: / 05-12-2012 / 23:35:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 30-10-2017 / 20:59:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_cmd_log_file_01

    | heads |

    heads := (HGCommandParser 

                   on:'6:4e0568ffbf1a53f2d8980ba9844d2af6f0bac455

5:f22945219f9be25a1fe436d81afece07b89330be

4:5bd21fb5eea8a7cb4adf45bccfea76cda11df84a

') 

                       parseCommandLogIdsOnly.

    self assert: heads size == 3.

    self assert: heads first  printString = '6:4e0568ffbf1a'.

    self assert: heads second printString = '5:f22945219f9b'.

    self assert: heads third  printString = '4:5bd21fb5eea8'.

    "Created: / 05-12-2012 / 19:16:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 30-10-2017 / 20:59:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_cmd_merge_01

    | nergeinfo |

    nergeinfo := (HGCommandParser on: 'merging Make.proto

merging Make.spec

merging MockHGP3Foo.st

merging abbrev.stc

merging bc.mak

merging libInit.cc

merging mocks_hg_p3.st

merging p3.rc

2 files updated, 3 files merged, 0 files removed, 5 files unresolved

use ''hg resolve'' to retry unresolved file merges or ''hg update -C .'' to abandon

') parseCommandMerge.

    self assert: nergeinfo numUpdated = 2.

    self assert: nergeinfo numMerged = 3.

    self assert: nergeinfo numRemoved = 0.

    self assert: nergeinfo numUnresolved = 5.

    "Created: / 14-01-2013 / 15:58:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_cmd_merge_02

    | nergeinfo |

    nergeinfo := (HGCommandParser on: 'remote changed CharacterEncoderImplementations__SJIS.st which local deleted

use (c)hanged version or leave (d)eleted? c

merging AbortAllOperationRequest.st

merging AbortAllOperationWantedQuery.st

merging AbstractClassInstantiationError.st

merging Make.proto

merging Make.spec

merging MockHGP3Foo.st

merging abbrev.stc

merging bc.mak

merging libInit.cc

merging mocks_hg_p3.st

merging p3.rc

2 files updated, 3 files merged, 0 files removed, 5 files unresolved

use ''hg resolve'' to retry unresolved file merges or ''hg update -C .'' to abandon

') parseCommandMerge.

    self assert: nergeinfo numUpdated = 2.

    self assert: nergeinfo numMerged = 3.

    self assert: nergeinfo numRemoved = 0.

    self assert: nergeinfo numUnresolved = 5.

    "Created: / 15-01-2013 / 09:28:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_cmd_merge_03

    | nergeinfo |

    nergeinfo := (HGCommandParser on:' local changed lcmake.bat which remote deleted

use (c)hanged version or (d)elete? c

merging ApplicationDefinition.st

merging Bag.st

merging CharacterEncoder.st

merging Class.st

merging Collection.st

merging Dictionary.st

merging Float.st

merging LibraryDefinition.st

merging LongFloat.st

merging Make.proto

merging Make.spec

merging Makefile

merging OrderedCollection.st

merging PeekableStream.st

merging ProjectDefinition.st

merging SequenceableCollection.st

merging Set.st

merging ShortFloat.st

merging Smalltalk.st

merging UnixOperatingSystem.st

merging UserPreferences.st

merging WeakIdentitySet.st

merging abbrev.stc

merging bc.mak

merging libInit.cc

merging libbasic.rc

merging mingwmake.bat

merging stx_libbasic.st

merging vcmake.bat

0 files updated, 22 files merged, 0 files removed, 7 files unresolved

use ''hg resolve'' to retry unresolved file merges or ''hg update -C .'' to abandon

'

) parseCommandMerge.

    self assert: nergeinfo numUpdated = 0.

    self assert: nergeinfo numMerged = 22.

    self assert: nergeinfo numRemoved = 0.

    self assert: nergeinfo numUnresolved = 7.

    "Created: / 22-03-2013 / 08:55:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_cmd_merge_04

    | nergeinfo |

    nergeinfo := (HGCommandParser on:'merging Make.proto

merging Make.spec

merging MockHGP3Foo.st

merging abbrev.stc

merging bc.mak

merging libInit.cc

merging mocks_hg_p3.st

merging p3.rc

2 files updated, 3 files merged, 0 files removed, 5 files unresolved

use ''hg resolve'' to retry unresolved file merges or ''hg merge --abort'' to abandon

'

) parseCommandMerge.

    self assert: nergeinfo numUpdated = 2.

    self assert: nergeinfo numMerged = 3.

    self assert: nergeinfo numRemoved = 0.

    self assert: nergeinfo numUnresolved = 5.

    "Created: / 23-08-2018 / 10:40:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_cmd_pull_01

    | info |

    info := (HGCommandParser on: 'pulling from /home/jv/Private/Projects/SmalltalkX/sources/branches/jv1/build/stx/libjava

searching for changes

no changes found

') parseCommandPull.

    self assert: info numChangesets = 0.

    self assert: info numChanges = 0.

    self assert: info numFiles = 0.

    self assert: info numHeads = 0.

    "Created: / 14-02-2013 / 15:25:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_cmd_pull_02

    | info |

    info := (HGCommandParser on: 'pulling from ssh://hg@bitbucket.org/janvrany/stx-libscm

searching for changes

requesting all changes

adding changesets

adding manifests

adding file changes

added 1 changesets with 11 changes to 111 files

(run ''hg update'' to get a working copy)

') parseCommandPull.

    self assert: info numChangesets = 1.

    self assert: info numChanges = 11.

    self assert: info numFiles = 111.

    self assert: info numHeads = 0.

    "Created: / 13-07-2013 / 12:08:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_cmd_pull_05b

    | info |

    info := (HGCommandParser on: 'pulling from ssh://hg@bitbucket.org/janvrany/stx-libscm

searching for changes

no changes found

remote: X11 forwarding request failed on channel 0

') parseCommandPull.

    self assert: info numChangesets = 0.

    self assert: info numChanges = 0.

    self assert: info numFiles = 0.

    self assert: info numHeads = 0.

    "Created: / 13-07-2013 / 11:47:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_cmd_pull_06a

    | info |

    info := (HGCommandParser on: 'pulling from ssh://dialin.exept.de/repositories/hg/exept.workflow

searching for changes

adding changesets

adding manifests

adding file changes

added 16 changesets with 16 changes to 14 files (+1 heads)

(run ''hg heads'' to see heads)  

') parseCommandPull.

    self assert: info numChangesets = 16.

    self assert: info numChanges = 16.

    self assert: info numFiles = 14.

    self assert: info numHeads = 1.

    "Created: / 14-11-2013 / 13:14:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_cmd_pull_07a

    | info |

    info := (HGCommandParser on: 'pulling from /tmp/stx_tmp_jv/stxtmp_22008_oOBi/stxtmp_22008_BcX3/test_push_01_A

requesting all changes

adding changesets

adding manifests

adding file changes

added 3 changesets with 3 changes to 1 files

new changesets b3a08f50401a:9ea2239e9a9a

(run ''hg update'' to get a working copy)

') parseCommandPull.

    self assert: info numChangesets = 3.