"

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

HGTestCase subclass:#HGTests

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'SCM-Mercurial-Tests'

!

!HGTests 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

"

!

documentation

"

    Tests for core Mercurial code - no Smalltalk/X specific code.

    Commiting, cloning, walking history and so on...

    [author:]

        Jan Vrany <jan.vrany@fit.cvut.cz>

    [instance variables:]

    [class variables:]

    [see also:]

"

! !

!HGTests methodsFor:'tests - basic workflow'!

test_basic_01a

    "Test modification of working copy and commit back"

    | repo  wc  f1_txt  oldcs  currentcs |

    repo := self repositoryNamed:'test_repo_01'.

     "

     UserPreferences fileBrowserClass openOn: repo directory.

    "

    wc := repo workingCopy.

    oldcs := wc changeset.

    self assert:oldcs id revno == 4.

     "Modify some file"

    f1_txt := wc / 'f1.txt'.

    self assert:f1_txt isModified not.

    f1_txt writingFileDo:[:s | s nextPutAll:'modified from test_01a'. ].

    self assert:f1_txt isModified.

    wc commit:'test_01a commit 1'.

    currentcs := wc changeset.

    self assert:f1_txt isModified not.

    self assert:currentcs id revno == 5.

    self assert:currentcs parent1 = oldcs.

    self assert:currentcs author = 'test_basic_01a <test_basic_01a@HGTests>'

    "Created: / 19-09-2012 / 23:06:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 22-11-2012 / 11:42:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!HGTests methodsFor:'tests - bookmarks'!

test_bookmarks_01a

    "

    Simply set bookmark

    "

    | repo wc|

    repo := self repositoryNamed:'test_repo_01'.

    wc := repo workingCopy.

    self assert: (repo @ 4) bookmarks isEmpty.

    wc bookmarkAs: 'test_bookmarks_01'.

    self assert: (repo @ 4) bookmarks size == 1.

    self assert: (repo @ 4) bookmarks anElement name = 'test_bookmarks_01'.

    self assert: (repo @ 4) bookmarks anElement isActive.

    self assert: wc bookmarks size == 1.

    self assert: wc bookmarks anElement name = 'test_bookmarks_01'.

    self assert: wc bookmarks anElement isActive.

    "Created: / 20-03-2014 / 09:11:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"

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

!

test_bookmarks_01b

    "

    Simply set bookmark

    "

    | repo wc|

    repo := self repositoryNamed:'test_repo_01'.

    wc := repo workingCopy.

    self assert: (repo @ 4) bookmarks isEmpty.

    (repo @ 4) bookmarkAs: 'test_bookmarks_01'.

    self assert: (repo @ 4) bookmarks size == 1.

    self assert: (repo @ 4) bookmarks anElement name = 'test_bookmarks_01'.

    "/ Bookmark is not active as it was created on changeset not on

    "/ working copy.

    self assert: (repo @ 4) bookmarks anElement isActive not.

    self assert: wc bookmarks size == 1.

    self assert: wc bookmarks anElement name = 'test_bookmarks_01'.

    "/ Bookmark is not active as it was created on changeset not on

    "/ working copy.

    self assert: wc bookmarks anElement isActive not.

    "Created: / 20-03-2014 / 09:11:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"

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

!

test_bookmarks_01c

    "

    Simply set bookmark

    "

    | repo wc|

    repo := self repositoryNamed:'test_repo_01'.

    wc := repo workingCopy.

    self assert: (repo @ 4) bookmarks isEmpty.

    (repo @ 3) bookmarkAs: 'test_bookmarks_01'.

    self assert: (repo @ 3) bookmarks size == 1.

    self assert: (repo @ 3) bookmarks anElement name = 'test_bookmarks_01'.

    self assert: (repo @ 3) bookmarks anElement isActive not.

    self assert: (repo @ 4) bookmarks isEmpty.

    self assert: wc bookmarks isEmpty.

    "Created: / 20-03-2014 / 09:12:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"

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

!

test_bookmarks_02

    "

    Set the same bookmark twice

    "

    | repo wc|

    repo := self repositoryNamed:'test_repo_01'.

    wc := repo workingCopy.

    self assert: (repo @ 4) bookmarks isEmpty.

    (repo @ 4) bookmarkAs: 'test_bookmarks_02'.

    self should: [ (repo @ 4) bookmarkAs: 'test_bookmarks_02' ] raise: HGBookmarkError.

    "Created: / 20-03-2014 / 09:21:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_bookmarks_03a

    "

    Set two bookmarks on checked-out changeset, 

    check that last one is active.

    "

    | repo wc|

    repo := self repositoryNamed:'test_repo_01'.

    wc := repo workingCopy.

    self assert: (repo @ 4) bookmarks isEmpty.

    "

     UserPreferences fileBrowserClass openOn: repo pathName asFilename.

    "   

    wc bookmarkAs: 'test_bookmarks_03 A'.

    self assert: (repo @ 4) bookmarks size == 1.

    self assert: (repo @ 4) bookmarks anElement isActive.    

    wc bookmarkAs: 'test_bookmarks_03 B'.

    self assert: (repo @ 4) bookmarks size == 2.

    self assert: ((repo @ 4) bookmarks detect:[:e | e name = 'test_bookmarks_03 A' ]) isActive not.

    self assert: ((repo @ 4) bookmarks detect:[:e | e name = 'test_bookmarks_03 B' ]) isActive.

    "Created: / 20-03-2014 / 09:23:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"

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

    "Modified (comment): / 20-03-2014 / 22:43:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_bookmarks_03b

    "

    Set two bookmarks on non-checked changeset,

    check none is active.

    "

    | repo wc|

    repo := self repositoryNamed:'test_repo_01'.

    wc := repo workingCopy.

    self assert: (repo @ 3) bookmarks isEmpty.

    (repo @ 3) bookmarkAs: 'test_bookmarks_03 A'.

    self assert: (repo @ 3) bookmarks size == 1.

    self assert: (repo @ 3) bookmarks anElement isActive not.    

    (repo @ 3) bookmarkAs: 'test_bookmarks_03 B'.

    self assert: (repo @ 3) bookmarks size == 2.

    self assert: ((repo @ 3) bookmarks detect:[:e | e name = 'test_bookmarks_03 A' ]) isActive not.

    self assert: ((repo @ 3) bookmarks detect:[:e | e name = 'test_bookmarks_03 B' ]) isActive not.

    "Created: / 20-03-2014 / 09:24:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 21-03-2014 / 01:05:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_bookmarks_04a

    "

    Simply set & remove bookmark

    "

    | repo cs |

    repo := self repositoryNamed:'test_repo_01'.

    cs := repo @ 4.

    self assert: cs bookmarks isEmpty.

    cs bookmarkAs: 'test_bookmarks_04a'.

    self assert: cs bookmarks size == 1.

    self assert: cs bookmarks anElement name = 'test_bookmarks_04a'.

    self assert: cs bookmarks anElement isActive not.

    cs bookmarks anElement remove.

    self assert: (repo @ 4) bookmarks isEmpty.

    "Created: / 20-03-2014 / 09:29:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 21-03-2014 / 01:06:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_bookmarks_04b

    "

    Simply set & remove bookmark

    "

    | repo cs |

    repo := self repositoryNamed:'test_repo_01'.

    cs := repo @ 3.

    self assert: cs bookmarks isEmpty.

    cs bookmarkAs: 'test_bookmarks_04b'.

    self assert: cs bookmarks size == 1.

    self assert: cs bookmarks anElement name = 'test_bookmarks_04b'.

    self assert: cs bookmarks anElement isActive not.

    cs bookmarks anElement remove.

    self assert: cs bookmarks isEmpty.

    "Created: / 20-03-2014 / 09:31:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 21-03-2014 / 01:06:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_bookmarks_04c

    "

    Simply set two bookmarks & remove one bookmark

    "

    | repo cs wc |

    repo := self repositoryNamed:'test_repo_01'.

    cs := repo @ 4.

    wc := repo workingCopy.

    self assert: cs bookmarks isEmpty.

    wc bookmarkAs: 'test_bookmarks_04b A'.

    wc bookmarkAs: 'test_bookmarks_04b B'.

    self assert: cs bookmarks size == 2.

    (cs bookmarks detect:[:e | e name = 'test_bookmarks_04b A']) remove.

    self assert: cs bookmarks size == 1.

    self assert: cs bookmarks anElement name = 'test_bookmarks_04b B'.

    self assert: cs bookmarks anElement isActive.

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

    "Modified: / 21-03-2014 / 01:25:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!HGTests methodsFor:'tests - branches'!

test_branches_01

    "

    Test listing branches

    "

    | repo branches |

    repo := self repositoryNamed:'test_repo_02'.

    branches := repo branches.

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

!

test_branches_02

    "

    Test getting current branch (branch of currently checked-out working copy)

    "

    | repo wc branch |

    repo := self repositoryNamed:'test_repo_02'.

    wc := repo workingCopy.

    branch := wc branch.

    self assert: branch name = 'default'.

    self assert: wc changeset branch == branch.

    "Created: / 27-11-2012 / 20:44:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_branches_03

    "

    Test listing branches

    "

    | repo branches |

    repo := self repositoryNamed:'test_repo_02'.

    branches := repo branches.

    self assert: branches first heads size == 1.

    self assert: branches first heads anElement id revno == 5.

    self assert: branches second heads size == 1.

    self assert: branches second heads anElement id revno == 4.

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

!

test_branches_04

    "

    Change branch & commit. Check whether commited changeset

    has the branch set.

    "

    | repo wc |

    repo := self repositoryNamed:'test_repo_01'.

    wc := repo workingCopy.

    self assert: repo branches size == 1.

    wc branch: 'test_branches_04'.

    "Modify some file"

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

    wc commit:'test_branches_04 1'.

    self assert: wc changeset branches size == 1.

    self assert: wc changeset branches anElement name = 'test_branches_04'.

    self assert: repo branches size == 2.

    "Created: / 10-12-2012 / 03:10:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_branches_05

    "

    Freshly created repository should have 'default' branch

    "

    | repo branches |

    repo := self repositoryNamed:'test_repo_empty' unpack: false.

    branches := repo branches.

    self assert: branches size == 1.

    self assert: branches anElement name = 'default'

    "Created: / 14-01-2013 / 14:08:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!HGTests methodsFor:'tests - changesets'!

test_changeset_01

    "

    Test accessing changesets

    "

    | repo cs |

    repo := self repositoryNamed:'test_repo_01'.

    cs := repo @ 4.

    self assert: cs id printString = '4:6f88e1f44d9e'.

    cs := repo @ '4:6f88e1f44d9eb86e0b56ca15e30e5d786acd83c7'.

    self assert: cs id printString = '4:6f88e1f44d9e'.

    cs := repo @ '4:6f88e1f44d9e'.

    self assert: cs id printString = '4:6f88e1f44d9e'.

    "Created: / 16-11-2012 / 21:03:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 30-11-2012 / 23:34:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_changeset_02

    "

    Tests identity if changesets (cacheing)

    "

    | repo cs1 cs2 |

    repo := self repositoryNamed:'test_repo_01'.

    cs1 := repo @ 4.

    cs2 := repo @ 4.

    self assert: cs1 == cs2.

    cs2 := repo @ '4:6f88e1f44d9eb86e0b56ca15e30e5d786acd83c7'.

    self assert: cs1 == cs2.

    cs2 := repo @ '4:6f88e1f44d9e'.

    self assert: cs1 == cs2.

    "Created: / 16-11-2012 / 22:10:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_changeset_03

    "

    Test walking history though parents

    "

    | repo cs0 cs1 cs2 cs3 |

    repo := self repositoryNamed:'test_repo_01'.

    cs0 := repo @ 0.

    cs1 := repo @ 1.

    cs2 := repo @ 2.

    cs3 := repo @ 3.

    self assert: cs3 parent1 == cs2.

    self assert: cs3 parent2 isNil.

    self assert: cs2 parent1 == cs1.

    self assert: cs2 parent2 isNil.