--- a/mercurial/HGCommandParserTests.st	Wed Dec 05 19:05:06 2012 +0000
+++ b/mercurial/HGCommandParserTests.st	Wed Dec 05 20:10:07 2012 +0000
@@ -55,6 +55,24 @@
     "Modified: / 30-11-2012 / 23:43:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+test_cmd_log_file_01
+
+    | heads |
+
+    heads := (HGCommandParser on: '6:4e0568ffbf1a53f2d8980ba9844d2af6f0bac455
+5:f22945219f9be25a1fe436d81afece07b89330be
+4:5bd21fb5eea8a7cb4adf45bccfea76cda11df84a
+') parseCommandLogFile.
+
+    self assert: heads size == 3.
+
+    self assert: heads first  asString = '6:4e0568ffbf1a'.
+    self assert: heads second asString = '5:f22945219f9b'.
+    self assert: heads third  asString = '4:5bd21fb5eea8'.
+
+    "Created: / 05-12-2012 / 19:16:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 test_cmd_status_01
 
     | statuses |