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

HGTestCase subclass:#HGTests

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'SCM-Mercurial-Tests'

!

!HGTests class methodsFor:'documentation'!

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

! !

!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:6f88e1f44d9eb86e0b56ca15e30e5d786acd83c7'.

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

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

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

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

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

    "Modified (comment): / 16-11-2012 / 22:10:52 / 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.

    self assert: cs1 parent1 == cs0.

    self assert: cs1 parent2 isNil.

    self assert: cs0 parent1 isNil.

    self assert: cs0 parent2 isNil.

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

!

test_changeset_04

    "

    Test access to changeset contents

    "

    | repo cs |

    repo := self repositoryNamed:'test_repo_01'.

    cs := repo @ 1.

    self assert: cs root children size == 2.

    self assert: (cs root / 'b') children size == 2.

    self assert: (cs root / 'b') parent == cs root.

    self assert: (cs root / 'f1.txt') children size == 0.

    self should: [cs root / 'abraka'] raise: HGError.

    self should: [cs root / 'c' / 'abraka'] raise: HGError.

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

    "Modified: / 17-11-2012 / 00:23:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_changeset_05

    "

    Test access to changeset contents

    "

    | repo |

    repo := self repositoryNamed:'test_repo_01'.

    self assert: (repo @ 0 / 'f1.txt') contents asString = 'f1-C0

'.

    self assert: (repo @ 1 / 'f1.txt') contents asString = 'f1-C0

f1-C1

'

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

!

test_changeset_06

    "

    Test access to changeset contents

    "

    | repo cs |

    repo := self repositoryNamed:'test_repo_02'.

    cs := repo @ 5.

    self assert: cs parent1 id revno = 0.

    self assert: cs parent2 id revno = 4.

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

! !

!HGTests methodsFor:'tests - heads'!

test_heads_01

    "

    Test listing repository heads

    "

    | repo heads |

    repo := self repositoryNamed:'test_repo_02'.

    heads := repo heads.

    self assert: heads size == 2.

    self assert: heads first id revno == 5.

    self assert: heads second id revno == 4.

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

! !

!HGTests methodsFor:'tests - node id'!

test_nodeid_01

    "

    Tests parsing node id

    "

    | id |

    id := HGChangesetId fromString:'4:6f88e1f44d9eb86e0b56ca15e30e5d786acd83c7'.

    self assert: id revno = 4.

    self assert: id asByteArray = #[111 136 225 244 77 158 184 110 11 86 202 21 227 14 93 120 106 205 131 199].

    id := HGChangesetId fromString:'4:6f88e1f44d9e'.

    self assert: id revno = 4.

    self assert: id asByteArray = #[111 136 225 244 77 158].

    ^self. "/following is not yet suppoted"

    "/Only revno

    id := HGChangesetId fromString:'1234'.

    self assert: id revno = 1234.

    self assert: id asByteArray = #[].

    "/Only hash

    id := HGChangesetId fromString:'6f88e1f44d9eb86e0b56ca15e30e5d786acd83c7'.

    self assert: id revno = -2. "/meaning - unknown.

    self assert: id asByteArray = #[111 136 225 244 77 158 184 110 11 86 202 21 227 14 93 120 106 205 131 199].

    "/Only short hash

    id := HGChangesetId fromString:'6f88e1f44d9e'.

    self assert: id revno = -2. "/meaning - unknown.

    self assert: id asByteArray = #[111 136 225 244 77 158]

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

    "Modified: / 17-11-2012 / 10:59:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_nodeid_02

    "

    Tests conversions

    "

    | id |

    id := '4:6f88e1f44d9eb86e0b56ca15e30e5d786acd83c7' asHGChangesetId.

    self assert: id revno = 4.

    self assert: id asByteArray = #[111 136 225 244 77 158 184 110 11 86 202 21 227 14 93 120 106 205 131 199].

    id := 1234 asHGChangesetId.

    self assert: id revno = 1234.

    self assert: id asByteArray = #[].

    id := #[ 111 136 225 244 77 158 184 110 11 86 202 21 227 14 93 120 106 205 131 199 ] 

    asHGChangesetId.

    self assert: id revno = -2.

    self assert: id asByteArray = #[111 136 225 244 77 158 184 110 11 86 202 21 227 14 93 120 106 205 131 199].

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

    "Modified: / 27-11-2012 / 17:50:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_nodeid_03

    "

    Tests comparison

    "

    | id1 id2 |

    id1 := HGChangesetId new revno: 4.

    id2 := HGChangesetId new revno: 4.

    self assert: id1 = id2.

    "/ #[111 136 225 244 77 158 184 110 11 86 202 21 227 14 93 120 106 205 131 199].

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

! !

!HGTests class methodsFor:'documentation'!

version_HG

    "Never, ever change this method. Ask JV or CG why"

    ^thisContext method mclass theNonMetaclass instVarNamed: #revision

!

version_SVN

    ^ '§Id::                                                                                                                        §'

! !