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

! !

!HGTests methodsFor:'tests - node id'!

test_nodeid_01

    "

    Tests parsing node id

    "

    | id |

    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].

    self assert: id revno = 4.

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

    ^self. "/following is not yet suppoted"

    "/Only revno

    self assert: id revno = 1234.

    self assert: id asByteArray = #[].

    "/Only hash

    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

    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 |

    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].

    self assert: id revno = 1234.

    self assert: id asByteArray = #[].

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

!

test_nodeid_03

    "

    Tests comparison

    "

    | id1 id2 |

    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::                                                                                                                        §'

! !