equal
deleted
inserted
replaced
25 |
25 |
26 "Created: / 25-09-2012 / 00:28:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
26 "Created: / 25-09-2012 / 00:28:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
27 ! |
27 ! |
28 |
28 |
29 status |
29 status |
30 | cmd | |
30 | cmd statuses | |
31 |
31 |
32 cmd := HGCommand status. |
32 cmd := HGCommand status. |
|
33 cmd workingDirectory: filename directory. |
33 cmd path: filename pathName. |
34 cmd path: filename pathName. |
34 ^cmd execute first |
35 statuses := cmd execute. |
|
36 self assert: statuses size == 1. |
|
37 self assert: statuses first second = filename baseName. |
|
38 ^statuses first first. |
35 |
39 |
36 "Created: / 24-09-2012 / 22:27:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
40 "Created: / 24-09-2012 / 22:27:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
37 "Modified: / 23-10-2012 / 11:11:51 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
41 "Modified: / 09-11-2012 / 12:09:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
38 ! ! |
42 ! ! |
39 |
43 |
40 !HGWorkingCopyFile methodsFor:'delegating'! |
44 !HGWorkingCopyFile methodsFor:'delegating'! |
41 |
45 |
42 doesNotUnderstand: aMessage |
46 doesNotUnderstand: aMessage |