Test new mood-line-segment-vc--rev behavior
This commit is contained in:
parent
7084fafaa4
commit
a15d166249
@ -34,4 +34,12 @@
|
|||||||
(should (string= (mood-line-segment-vc--rev "" 'SVN)
|
(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
|
;;; mood-line-segment-vc-test.el ends here
|
||||||
|
Loading…
Reference in New Issue
Block a user