--- a/mercurial/HGTests.st	Fri Feb 07 11:02:59 2014 +0100
+++ b/mercurial/HGTests.st	Sun Feb 09 19:36:58 2014 +0000
@@ -343,6 +343,163 @@
     self assert: (cs0 children includesIdentical: cs1).
 
     "Created: / 05-12-2012 / 17:41:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_changeset_08a
+    "
+    Test accessiong commit history using revsets
+    "
+
+    | repo csets |
+
+    repo := self repositoryNamed:'test_repo_01'.
+    "
+    @  changeset:   4:6f88e1f44d9e
+    o  changeset:   3:912a64597e4f
+    o  changeset:   2:db43a5baa9ac
+    o  changeset:   1:98087d77fbaa
+    o  changeset:   0:98b9033d3bac
+    "
+    csets := repo log: '912a64597e4f:98087d77fbaa' limit: nil.
+    self assert: csets size = 3.
+    self assert: csets first id printString = '3:912a64597e4f'.  
+    self assert: csets second id printString = '2:db43a5baa9ac'.
+    self assert: csets third id printString = '1:98087d77fbaa'.
+
+    "Created: / 07-02-2014 / 18:30:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 08-02-2014 / 22:38:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_changeset_08b
+    "
+    Test accessiong commit history using revsets
+    "
+
+    | repo csets |
+
+    repo := self repositoryNamed:'test_repo_01'.
+    "
+    @  changeset:   4:6f88e1f44d9e
+    o  changeset:   3:912a64597e4f
+    o  changeset:   2:db43a5baa9ac
+    o  changeset:   1:98087d77fbaa
+    o  changeset:   0:98b9033d3bac
+    "
+    csets := repo log: 'p1(912a64597e4f)' limit: nil.
+    self assert: csets size = 1.
+    self assert: csets first id printString = '2:db43a5baa9ac'.
+
+    "Created: / 08-02-2014 / 22:39:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_changeset_08c
+    "
+    Test accessiong commit history using revsets
+    "
+
+    | repo csets |
+
+    repo := self repositoryNamed:'test_repo_01'.
+    "
+    @  changeset:   4:6f88e1f44d9e
+    o  changeset:   3:912a64597e4f
+    o  changeset:   2:db43a5baa9ac
+    o  changeset:   1:98087d77fbaa
+    o  changeset:   0:98b9033d3bac
+    "
+    csets := repo log: 'p2(912a64597e4f)' limit: nil.
+    self assert: csets isEmpty.
+
+    "Created: / 09-02-2014 / 10:08:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_changeset_08d
+    "
+    Test accessiong commit history using revsets
+    "
+
+    | repo |
+
+    repo := self repositoryNamed:'test_repo_01'.
+    "
+    @  changeset:   4:6f88e1f44d9e
+    o  changeset:   3:912a64597e4f
+    o  changeset:   2:db43a5baa9ac
+    o  changeset:   1:98087d77fbaa
+    o  changeset:   0:98b9033d3bac
+    "
+    self should: [
+        repo log: 'branch(blabla)' limit: nil.
+    ] raise: HGUnknownRevisionError.
+
+    "Created: / 09-02-2014 / 10:08:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_changeset_08e
+    "
+    Test accessiong commit history using revsets
+    "
+
+    | repo csets |
+
+    repo := self repositoryNamed:'test_repo_01'.
+    "
+    @  changeset:   4:6f88e1f44d9e
+    o  changeset:   3:912a64597e4f
+    o  changeset:   2:db43a5baa9ac
+    o  changeset:   1:98087d77fbaa
+    o  changeset:   0:98b9033d3bac
+    "
+    csets := repo log: 'merge()' limit: nil.
+    self assert: csets isEmpty.
+
+    "Created: / 09-02-2014 / 10:09:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_changeset_08f
+    "
+    Test accessiong commit history using revsets
+    "
+
+    | repo |
+
+    repo := self repositoryNamed:'test_repo_01'.
+    "
+    @  changeset:   4:6f88e1f44d9e
+    o  changeset:   3:912a64597e4f
+    o  changeset:   2:db43a5baa9ac
+    o  changeset:   1:98087d77fbaa
+    o  changeset:   0:98b9033d3bac
+    "
+    self should: [
+        repo log: 'merge() and' limit: nil
+    ] raise: HGError
+
+    "Created: / 09-02-2014 / 10:09:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 09-02-2014 / 19:27:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_changeset_08g
+    "
+    Test accessiong commit history using revsets
+    "
+
+    | repo csets |
+
+    repo := self repositoryNamed:'test_repo_01'.
+    "
+    @  changeset:   4:6f88e1f44d9e
+    o  changeset:   3:912a64597e4f
+    o  changeset:   2:db43a5baa9ac
+    o  changeset:   1:98087d77fbaa
+    o  changeset:   0:98b9033d3bac
+    "
+    csets := repo log: '912a64597e4f:98087d77fbaa' limit: 2.
+    self assert: csets size = 2.
+    self assert: csets first id printString = '3:912a64597e4f'.  
+    self assert: csets second id printString = '2:db43a5baa9ac'.
+
+    "Created: / 09-02-2014 / 19:27:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !HGTests methodsFor:'tests - commit'!