"

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

Copyright (C) 2012-2013 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' }"

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-2013 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 - commands'!

test_cmd_branches_01

    | branches |

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

branch1                        4:5bd21fb5eea8a7cb4adf45bccfea76cda11df84a (inactive)

branch2                        3:32d32dee719fb422a69cfa6f7f8c1d8e299de2df (closed)

') 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>"

!

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  asString = '6:4e0568ffbf1a'.

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

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

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

    "Modified: / 30-11-2012 / 23:43:24 / 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  asString = '6:4e0568ffbf1a'.

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

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

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

!

test_cmd_log_file_01

    | heads |

5:f22945219f9be25a1fe436d81afece07b89330be

4:5bd21fb5eea8a7cb4adf45bccfea76cda11df84a

    self assert: heads size == 3.

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

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

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

    "Created: / 05-12-2012 / 19:16:31 / 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_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_push_01

    | info |

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

searching for changes

no changes found

') parseCommandPush.

    self assert: info numChangesets = 0.

    self assert: info numChanges = 0.

    self assert: info numFiles = 0.

    self assert: info numHeads = 0.

    "Created: / 06-02-2013 / 18:44:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_cmd_push_01b

    | info |

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

no changes found

') parseCommandPush.

    self assert: info numChangesets = 0.

    self assert: info numChanges = 0.

    self assert: info numFiles = 0.

    self assert: info numHeads = 0.

    "Created: / 12-02-2013 / 23:48:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_cmd_push_02

    | info |

    info := (HGCommandParser on: 'pushing to /home/jv/Private/Projects/SmalltalkX/sources/branches/jv1/build/stx/libscm

searching for changes

adding changesets

adding manifests

adding file changes

added 1 changesets with 3 changes to 3 files

'

) parseCommandPush.

    self assert: info numChangesets = 1.

    self assert: info numChanges = 3.

    self assert: info numFiles = 3.

    self assert: info numHeads = 0.

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

!

test_cmd_push_03

    | info |

    info := (HGCommandParser on: 'pushing to https://vranyj1@swing.fit.cvut.cz/hg/stx.libbasic

searching for changes

remote: adding changesets

remote: adding manifests

remote: adding file changes

remote: added 2 changesets with 18 changes to 18 files (-1 heads)

'

) parseCommandPush.

    self assert: info numChangesets = 2.

    self assert: info numChanges = 18.

    self assert: info numFiles = 18.

    self assert: info numHeads = -1.

    "Created: / 02-07-2013 / 01:19:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_cmd_push_05a

    | info |

    info := (HGCommandParser on: 'pushing to https://vranyj1@swing.fit.cvut.cz/hg/stx.libbasic

searching for changes

remote: X11 forwarding request failed on channel 0

remote: adding changesets

remote: adding manifests

remote: adding file changes

remote: added 2 changesets with 18 changes to 18 files (-1 heads)

'

) parseCommandPush.

    self assert: info numChangesets = 2.

    self assert: info numChanges = 18.

    self assert: info numFiles = 18.

    self assert: info numHeads = -1.

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

!

test_cmd_push_05b

    | info |

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

searching for changes

no changes found

remote: X11 forwarding request failed on channel 0

'

) parseCommandPush.

    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:46:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_cmd_showconfig_01

    | section |

    section := (HGCommandParser on: 'foo.bar=qux

') parseCommandShowConfig.

    self assert: ((section get: 'foo') get: 'bar') = 'qux'

    "Created: / 06-12-2012 / 15:59:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 06-12-2012 / 19:39:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_cmd_showconfig_02

    | section |

    section := (HGCommandParser on: 'foo.bar=qux

foo.baz=qoor

') parseCommandShowConfig.

    self assert: ((section get: 'foo') get: 'bar') = 'qux'.

    self assert: ((section get: 'foo') get: 'baz') = 'qoor'.

    self should:[(section get: 'foo') get: 'zork'] raise: Error.

    self should:[(section get: 'zork') get: 'zork'] raise: Error.