; 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:
Sean Whitton
2026-04-15 10:02:16 -04:00
parent 0384600a21
commit 8b823737ff

View File

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