--- a/mercurial/HGStXTests.st	Sun Feb 09 20:03:13 2014 +0000
+++ b/mercurial/HGStXTests.st	Tue Feb 11 15:08:13 2014 +0000
@@ -1470,6 +1470,62 @@
     "Created: / 04-12-2012 / 01:33:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+test_log_05a
+
+    | log repo |
+
+
+    repo := self repositoryNamed: 'mocks/hg/p6' revision: '0'.
+    self assert: (Smalltalk loadPackage:'mocks:hg/p6').
+    self assert: (Smalltalk at: #MocksHGP6Bar) revisionInfo changesetId = '0:c76faa501252' asHGChangesetId.
+
+    log := HGSourceCodeManager
+                revisionLogOf:(Smalltalk at: #MocksHGP6Bar)
+                fromRevision:'0:c76faa501252' toRevision:'0:c76faa501252'
+                numberOfRevisions:nil
+                fileName:'MocksHGP6Bar.st'
+                directory: 'hg/p6'
+                module:'mocks'.
+
+    self assert: (log at: #container) = 'MocksHGP6Bar.st'.
+    self assert: (log at: #cvsRoot) = repo pathName.
+    self assert: (log at: #newestRevision) = '4:f71dfc6c6f9b'.
+    self assert: (log at: #revisions) size == 1.
+    self assert: ((log at: #revisions) first at:#revision) = '0:c76faa501252'.
+
+    "Created: / 11-02-2014 / 11:31:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 11-02-2014 / 12:58:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_log_05b
+    "
+    Test revision log of removed item.
+    "
+
+    | log repo |
+
+    repo := self repositoryNamed: 'mocks/hg/p6' revision: '0'.
+    self assert: (Smalltalk loadPackage:'mocks:hg/p6').
+    self assert: (Smalltalk at: #MocksHGP6Foo) revisionInfo changesetId = '0:c76faa501252' asHGChangesetId.
+
+    log := HGSourceCodeManager
+                revisionLogOf:(Smalltalk at: #MocksHGP6Foo)
+                fromRevision:'0:c76faa501252' toRevision:'0:c76faa501252'
+                numberOfRevisions:nil
+                fileName:'MocksHGP6Foo.st'
+                directory: 'hg/p6'
+                module:'mocks'.
+
+    self assert: (log at: #container) = 'MocksHGP6Foo.st'.
+    self assert: (log at: #cvsRoot) = repo pathName.
+    self assert: (log at: #newestRevision) = '0:c76faa501252'.
+    self assert: (log at: #revisions) size == 1.
+    self assert: ((log at: #revisions) first at:#revision) = '0:c76faa501252'.
+
+    "Created: / 11-02-2014 / 11:34:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 11-02-2014 / 13:55:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 test_stream_01a
 
     | stream repo contents |