--- a/mercurial/HGCommandParserTests.st	Tue Nov 27 21:00:31 2012 +0000
+++ b/mercurial/HGCommandParserTests.st	Tue Nov 27 21:42:13 2012 +0000
@@ -36,6 +36,24 @@
     "Created: / 27-11-2012 / 19:00:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+test_cmd_heads_01
+
+    | heads |
+
+    heads := (HGCommandParser on: '6:4e0568ffbf1a53f2d8980ba9844d2af6f0bac455
+5:f22945219f9be25a1fe436d81afece07b89330be
+4:5bd21fb5eea8a7cb4adf45bccfea76cda11df84a
+') parseCommandHeads.
+
+    self assert: heads size == 3.
+
+    self assert: heads first  asString = '6:4e0568ffbf1a53f2d8980ba9844d2af6f0bac455'.
+    self assert: heads second asString = '5:f22945219f9be25a1fe436d81afece07b89330be'.
+    self assert: heads third  asString = '4:5bd21fb5eea8a7cb4adf45bccfea76cda11df84a'.
+
+    "Created: / 27-11-2012 / 21:22:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 test_cmd_status_01
 
     | statuses |