mercurial/HGCommandParserTests.st
changeset 134 565c8bd9c9e8
parent 116 b690f5845323
child 135 c74b92e6a2f8
--- a/mercurial/HGCommandParserTests.st	Wed Dec 05 15:10:10 2012 +0000
+++ b/mercurial/HGCommandParserTests.st	Wed Dec 05 18:09:53 2012 +0000
@@ -151,13 +151,14 @@
     "Created: / 13-11-2012 / 16:34:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-test_misc_03
+test_misc_03a
 
     | rev |
 
     rev := (HGCommandParser on: '4:6f88e1f44d9eb86e0b56ca15e30e5d786acd83c7
 default
 3:912a64597e4f133ffbc1fdabdda99167a2d69ce2 -1:0000000000000000000000000000000000000000 
+
 Jan Vrany <jan.vrany@fit.cvut.cz>
 2012-10-17 13:20 +0200
 Commit 4
@@ -167,10 +168,10 @@
     self assert: rev id revno = 4.
     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 message = 'Commit 4'.
+    self assert: (rev instVarNamed:#children) isEmpty.
 
-    "Created: / 13-11-2012 / 17:16:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 21-11-2012 / 18:07:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 05-12-2012 / 17:37:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 test_misc_03b
@@ -180,6 +181,7 @@
     rev := (HGCommandParser on: '4:6f88e1f44d9eb86e0b56ca15e30e5d786acd83c7
 default
 3:912a64597e4f133ffbc1fdabdda99167a2d69ce2 -1:0000000000000000000000000000000000000000 
+5:3f88e1f44d9e
 Jan Vrany <jan.vrany@fit.cvut.cz>
 2012-10-17 13:20 +0200
 Commit 4
@@ -188,9 +190,36 @@
 ') parseLogEntry.
 
     self assert: rev message = 'Commit 4
-Two lones'
+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 / 17:38:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_misc_03c
+
+    | rev |
+
+    rev := (HGCommandParser on: '4:6f88e1f44d9eb86e0b56ca15e30e5d786acd83c7
+default
+3:912a64597e4f133ffbc1fdabdda99167a2d69ce2 -1:0000000000000000000000000000000000000000 
+5:3f88e1f44d9e 6:3f88e1f44d9d
+Jan Vrany <jan.vrany@fit.cvut.cz>
+2012-10-17 13:20 +0200
+Commit 4
+Two lones
+**EOE**
+') parseLogEntry.
+
+    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>"
 !
 
 test_misc_04
@@ -200,6 +229,7 @@
     revs := (HGCommandParser on: '4:6f88e1f44d9eb86e0b56ca15e30e5d786acd83c7
 default
 3:912a64597e4f133ffbc1fdabdda99167a2d69ce2 -1:0000000000000000000000000000000000000000 
+
 Jan Vrany <jan.vrany@fit.cvut.cz>
 2012-10-17 13:20 +0200
 Commit 4
@@ -207,6 +237,7 @@
 3:912a64597e4f133ffbc1fdabdda99167a2d69ce2
 default
 2:db43a5baa9acaf2536d8b12c070b4f5e0363d45c -1:0000000000000000000000000000000000000000 
+4:6f88e1f44d9e
 Jan Vrany <jan.vrany@fit.cvut.cz>
 2012-10-17 13:20 +0200
 Commit 3
@@ -216,6 +247,7 @@
     self assert: revs size == 2
 
     "Created: / 13-11-2012 / 17:31:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 05-12-2012 / 17:36:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 test_version_2_3_3