--- 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