--- a/mercurial/HGTests.st	Wed Jun 03 06:41:08 2015 +0100
+++ b/mercurial/HGTests.st	Wed Jun 03 08:30:24 2015 +0100
@@ -757,6 +757,38 @@
     self assert: csets second id printString = '2:db43a5baa9ac'.
 
     "Created: / 09-02-2014 / 19:27:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_changeset_09
+    "
+    Tests HGChangeset>>messageDigestUpTo:...
+    "
+
+    | repo cs1 cs2 digest |
+
+    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
+    "
+    cs1 :=  repo @ '98b9033d3bac'.
+    cs2 :=  repo @ 'db43a5baa9ac'.
+
+    digest := cs2 messageDigestUpTo: cs1.
+    self assert: digest = '98b9033d3bac
+Commit 0
+---
+98087d77fbaa
+Commit 1
+---
+db43a5baa9ac
+Commit 2
+'
+
+    "Created: / 03-06-2015 / 07:02:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !HGTests methodsFor:'tests - commit'!