mercurial/HGCommandParserTests.st
changeset 137 379bd934f8d0
parent 136 2d1512dde043
child 142 67e8c5ab8db2
--- a/mercurial/HGCommandParserTests.st	Wed Dec 05 20:10:07 2012 +0000
+++ b/mercurial/HGCommandParserTests.st	Wed Dec 05 23:57:40 2012 +0000
@@ -55,6 +55,24 @@
     "Modified: / 30-11-2012 / 23:43:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+test_cmd_log_children_01
+
+    | children |
+
+    children := (HGCommandParser on: '1:4e0568ffbfaa
+6:4e0568ffbf1a 5:f22945219f9b 4:5bd21fb5eea8
+') 
+                parseCommandLogChildren.
+
+    self assert: children first second size == 3.
+
+    self assert: children first second first  asString = '6:4e0568ffbf1a'.
+    self assert: children first second second asString = '5:f22945219f9b'.
+    self assert: children first second third  asString = '4:5bd21fb5eea8'.
+
+    "Created: / 05-12-2012 / 23:35:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 test_cmd_log_file_01
 
     | heads |
@@ -191,9 +209,9 @@
     self assert: rev author = 'Jan Vrany <jan.vrany@fit.cvut.cz>'.
     self assert: rev timestamp hour = 13.
     self assert: rev message = 'Commit 4'.
-    self assert: (rev instVarNamed:#children) isEmpty.
 
     "Created: / 05-12-2012 / 17:37:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 05-12-2012 / 23:33:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 test_misc_03b
@@ -203,7 +221,7 @@
     rev := (HGCommandParser on: '4:6f88e1f44d9eb86e0b56ca15e30e5d786acd83c7
 default
 3:912a64597e4f133ffbc1fdabdda99167a2d69ce2 -1:0000000000000000000000000000000000000000 
-5:3f88e1f44d9e
+
 
 
 
@@ -217,11 +235,9 @@
 
     self assert: rev message = 'Commit 4
 Two lones'.
-    self assert: (rev instVarNamed:#children) size == 1.
-    self assert: (rev instVarNamed:#children) first revno == 5.
 
     "Created: / 21-11-2012 / 18:09:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 05-12-2012 / 18:33:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 05-12-2012 / 23:33:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 test_misc_03c
@@ -231,7 +247,7 @@
     rev := (HGCommandParser on: '4:6f88e1f44d9eb86e0b56ca15e30e5d786acd83c7
 default
 3:912a64597e4f133ffbc1fdabdda99167a2d69ce2 -1:0000000000000000000000000000000000000000 
-5:3f88e1f44d9e 6:3f88e1f44d9d
+
 
 
 
@@ -245,11 +261,9 @@
 
     self assert: rev message = 'Commit 4
 Two lones'.
-    self assert: (rev instVarNamed:#children) size == 2.
-    self assert: (rev instVarNamed:#children) first revno == 5.
-    self assert: (rev instVarNamed:#children) second revno == 6.
 
     "Created: / 05-12-2012 / 17:39:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 05-12-2012 / 23:33:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 test_misc_04
@@ -271,7 +285,7 @@
 3:912a64597e4f133ffbc1fdabdda99167a2d69ce2
 default
 2:db43a5baa9acaf2536d8b12c070b4f5e0363d45c -1:0000000000000000000000000000000000000000 
-4:6f88e1f44d9e
+
 
 
 
@@ -285,7 +299,7 @@
     self assert: revs size == 2
 
     "Created: / 13-11-2012 / 17:31:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 05-12-2012 / 18:33:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 05-12-2012 / 23:34:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 test_misc_05a