From a15d166249f04b047a6136856e5be109357762d3 Mon Sep 17 00:00:00 2001 From: Jessie Hildebrandt Date: Sun, 10 Dec 2023 08:25:27 -0500 Subject: [PATCH] Test new mood-line-segment-vc--rev behavior --- test/mood-line-segment-vc-test.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/test/mood-line-segment-vc-test.el b/test/mood-line-segment-vc-test.el index 15fba75..4f82ce0 100644 --- a/test/mood-line-segment-vc-test.el +++ b/test/mood-line-segment-vc-test.el @@ -34,4 +34,12 @@ (should (string= (mood-line-segment-vc--rev "" 'SVN) "???")))) +(ert-deftest --rev/vc-display-status-nil () + "Name of the VCS backend should be reported when `vc-display-status' is nil." + (let ((vc-display-status nil)) + (should (string= (mood-line-segment-vc--rev " Git:main" 'Git) + "Git")) + (should (string= (mood-line-segment-vc--rev " Hg:main" 'Hg) + "Hg")))) + ;;; mood-line-segment-vc-test.el ends here