From ebab7c48c3b78503b5341974c256388a26e5b880 Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Sun, 13 Dec 2020 03:58:32 +0200 Subject: [PATCH] Fix test failure * test/lisp/vc/vc-tests.el (vc-test--working-revision): Accept working revision -1, expected for older Hg (bug#36534). --- test/lisp/vc/vc-tests.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/test/lisp/vc/vc-tests.el b/test/lisp/vc/vc-tests.el index 7b88b8d531a..a2936cca824 100644 --- a/test/lisp/vc/vc-tests.el +++ b/test/lisp/vc/vc-tests.el @@ -439,8 +439,9 @@ This checks also `vc-backend' and `vc-responsible-backend'." ;; nil: Git Mtn ;; "0": Bzr CVS Hg SRC SVN ;; "1.1": RCS SCCS + ;; "-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"))) + (should (member (vc-working-revision tmp-name) '(nil "0" "1.1" "-1"))) ;; TODO: Call `vc-checkin', and check the resulting ;; working revision. None of the return values should be -- 2.39.2