; vc-test--working-revision: Update for vc-hg change
* test/lisp/vc/vc-tests/vc-tests.el (vc-test--working-revision): Recognize '0000000000000000000000000000000000000000' now that vc-hg-working-revision returns changeset hashes.
This commit is contained in:
@@ -436,9 +436,12 @@ This checks also `vc-backend' and `vc-responsible-backend'."
|
||||
;; nil: Git Mtn
|
||||
;; "0": Bzr CVS Hg SRC SVN
|
||||
;; "1.1": RCS SCCS
|
||||
;; "0000000000000000000000000000000000000000": Hg
|
||||
;; "-1": Hg versions before 5 (probably)
|
||||
(message "vc-working-revision4 %s" (vc-working-revision tmp-name))
|
||||
(should (member (vc-working-revision tmp-name) '(nil "0" "1.1" "-1")))
|
||||
(should (member (vc-working-revision tmp-name)
|
||||
'(nil "0" "1.1" "-1"
|
||||
"0000000000000000000000000000000000000000")))
|
||||
|
||||
;; TODO: Call `vc-checkin', and check the resulting
|
||||
;; working revision. None of the return values should be
|
||||
|
||||
Reference in New Issue
Block a user