177 Tests parsing node id |
177 Tests parsing node id |
178 " |
178 " |
179 |
179 |
180 | id | |
180 | id | |
181 |
181 |
182 id := HGNodeId fromString:'4:6f88e1f44d9eb86e0b56ca15e30e5d786acd83c7'. |
182 id := HGChangesetId fromString:'4:6f88e1f44d9eb86e0b56ca15e30e5d786acd83c7'. |
183 self assert: id revno = 4. |
183 self assert: id revno = 4. |
184 self assert: id asByteArray = #[111 136 225 244 77 158 184 110 11 86 202 21 227 14 93 120 106 205 131 199]. |
184 self assert: id asByteArray = #[111 136 225 244 77 158 184 110 11 86 202 21 227 14 93 120 106 205 131 199]. |
185 |
185 |
186 id := HGNodeId fromString:'4:6f88e1f44d9e'. |
186 id := HGChangesetId fromString:'4:6f88e1f44d9e'. |
187 self assert: id revno = 4. |
187 self assert: id revno = 4. |
188 self assert: id asByteArray = #[111 136 225 244 77 158]. |
188 self assert: id asByteArray = #[111 136 225 244 77 158]. |
189 |
189 |
190 |
190 |
191 ^self. "/following is not yet suppoted" |
191 ^self. "/following is not yet suppoted" |
192 |
192 |
193 "/Only revno |
193 "/Only revno |
194 id := HGNodeId fromString:'1234'. |
194 id := HGChangesetId fromString:'1234'. |
195 self assert: id revno = 1234. |
195 self assert: id revno = 1234. |
196 self assert: id asByteArray = #[]. |
196 self assert: id asByteArray = #[]. |
197 |
197 |
198 "/Only hash |
198 "/Only hash |
199 id := HGNodeId fromString:'6f88e1f44d9eb86e0b56ca15e30e5d786acd83c7'. |
199 id := HGChangesetId fromString:'6f88e1f44d9eb86e0b56ca15e30e5d786acd83c7'. |
200 self assert: id revno = -2. "/meaning - unknown. |
200 self assert: id revno = -2. "/meaning - unknown. |
201 self assert: id asByteArray = #[111 136 225 244 77 158 184 110 11 86 202 21 227 14 93 120 106 205 131 199]. |
201 self assert: id asByteArray = #[111 136 225 244 77 158 184 110 11 86 202 21 227 14 93 120 106 205 131 199]. |
202 |
202 |
203 "/Only short hash |
203 "/Only short hash |
204 id := HGNodeId fromString:'6f88e1f44d9e'. |
204 id := HGChangesetId fromString:'6f88e1f44d9e'. |
205 self assert: id revno = -2. "/meaning - unknown. |
205 self assert: id revno = -2. "/meaning - unknown. |
206 self assert: id asByteArray = #[111 136 225 244 77 158] |
206 self assert: id asByteArray = #[111 136 225 244 77 158] |
207 |
207 |
208 "Created: / 16-11-2012 / 21:27:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
208 "Created: / 16-11-2012 / 21:27:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
209 "Modified: / 17-11-2012 / 10:59:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
209 "Modified: / 17-11-2012 / 10:59:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
214 Tests conversions |
214 Tests conversions |
215 " |
215 " |
216 |
216 |
217 | id | |
217 | id | |
218 |
218 |
219 id := '4:6f88e1f44d9eb86e0b56ca15e30e5d786acd83c7' asHGNodeId. |
219 id := '4:6f88e1f44d9eb86e0b56ca15e30e5d786acd83c7' asHGChangesetId. |
220 self assert: id revno = 4. |
220 self assert: id revno = 4. |
221 self assert: id asByteArray = #[111 136 225 244 77 158 184 110 11 86 202 21 227 14 93 120 106 205 131 199]. |
221 self assert: id asByteArray = #[111 136 225 244 77 158 184 110 11 86 202 21 227 14 93 120 106 205 131 199]. |
222 |
222 |
223 id := 1234 asHGNodeId. |
223 id := 1234 asHGChangesetId. |
224 self assert: id revno = 1234. |
224 self assert: id revno = 1234. |
225 self assert: id asByteArray = #[]. |
225 self assert: id asByteArray = #[]. |
226 |
226 |
227 id := #[111 136 225 244 77 158 184 110 11 86 202 21 227 14 93 120 106 205 131 199] asHGNodeId. |
227 id := #[ 111 136 225 244 77 158 184 110 11 86 202 21 227 14 93 120 106 205 131 199 ] |
|
228 asHGChangesetId. |
228 self assert: id revno = -2. |
229 self assert: id revno = -2. |
229 self assert: id asByteArray = #[111 136 225 244 77 158 184 110 11 86 202 21 227 14 93 120 106 205 131 199]. |
230 self assert: id asByteArray = #[111 136 225 244 77 158 184 110 11 86 202 21 227 14 93 120 106 205 131 199]. |
230 |
231 |
231 "Created: / 16-11-2012 / 21:32:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
232 "Created: / 16-11-2012 / 21:32:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
233 "Modified: / 27-11-2012 / 17:50:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
232 ! |
234 ! |
233 |
235 |
234 test_nodeid_03 |
236 test_nodeid_03 |
235 " |
237 " |
236 Tests comparison |
238 Tests comparison |
237 " |
239 " |
238 |
240 |
239 | id1 id2 | |
241 | id1 id2 | |
240 |
242 |
241 id1 := HGNodeId new revno: 4. |
243 id1 := HGChangesetId new revno: 4. |
242 id2 := HGNodeId new revno: 4. |
244 id2 := HGChangesetId new revno: 4. |
243 |
245 |
244 self assert: id1 = id2. |
246 self assert: id1 = id2. |
245 |
247 |
246 |
248 |
247 |
249 |