mercurial/HGTests.st
changeset 189 3d6c123a7295
parent 183 8f8315881c72
child 210 54a73fa50d40
equal deleted inserted replaced
188:ae056e055cfc 189:3d6c123a7295
   548 
   548 
   549     id := HGChangesetId fromString:'4:6f88e1f44d9e'.
   549     id := HGChangesetId fromString:'4:6f88e1f44d9e'.
   550     self assert: id revno = 4.
   550     self assert: id revno = 4.
   551     self assert: id asByteArray = #[111 136 225 244 77 158].
   551     self assert: id asByteArray = #[111 136 225 244 77 158].
   552 
   552 
   553 
       
   554     ^self. "/following is not yet suppoted"
       
   555 
       
   556     "/Only revno
   553     "/Only revno
   557     id := HGChangesetId fromString:'1234'.
   554     id := HGChangesetId fromString:'1234'.
   558     self assert: id revno = 1234.
   555     self assert: id revno = 1234.
   559     self assert: id asByteArray = #[].
   556     self assert: id asByteArray = #[].
   560 
   557 
   561     "/Only hash
   558     "/Only hash
   562     id := HGChangesetId fromString:'6f88e1f44d9eb86e0b56ca15e30e5d786acd83c7'.
   559     id := HGChangesetId fromString:'6f88e1f44d9eb86e0b56ca15e30e5d786acd83c7'.
   563     self assert: id revno = -2. "/meaning - unknown.
   560     self assert: id revno = nil. "/meaning - unknown.
   564     self assert: id asByteArray = #[111 136 225 244 77 158 184 110 11 86 202 21 227 14 93 120 106 205 131 199].
   561     self assert: id asByteArray = #[111 136 225 244 77 158 184 110 11 86 202 21 227 14 93 120 106 205 131 199].
   565 
   562 
   566     "/Only short hash
   563     "/Only short hash
   567     id := HGChangesetId fromString:'6f88e1f44d9e'.
   564     id := HGChangesetId fromString:'6f88e1f44d9e'.
   568     self assert: id revno = -2. "/meaning - unknown.
   565     self assert: id revno = nil. "/meaning - unknown.
   569     self assert: id asByteArray = #[111 136 225 244 77 158]
   566     self assert: id asByteArray = #[111 136 225 244 77 158]
   570 
   567 
   571     "Created: / 16-11-2012 / 21:27:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   568     "Created: / 16-11-2012 / 21:27:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   572     "Modified: / 17-11-2012 / 10:59:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   569     "Modified: / 22-01-2013 / 12:31:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   573 !
   570 !
   574 
   571 
   575 test_nodeid_02
   572 test_nodeid_02
   576     "
   573     "
   577     Tests conversions
   574     Tests conversions