Commit ef8bd7d8 authored by Glenn Morris's avatar Glenn Morris

Update tests for recent changes

* test/lisp/descr-text-tests.el (descr-text-test-desc):
Update for recent change to describe-char-eldoc.
* test/lisp/progmodes/elisp-mode-tests.el
Update for recent change to elisp--highlight-function-argument.
parent fcc04678
Pipeline #6011 failed with stage
in 10 seconds
......@@ -75,18 +75,18 @@
(goto-char (point-min))
(should (eq ?a (following-char))) ; make sure we are where we think we are
;; Function should return nil for an ASCII character.
(should (not (describe-char-eldoc)))
(should (not (describe-char-eldoc 'ignore)))
(goto-char (1+ (point)))
(should (eq ? (following-char)))
(let ((eldoc-echo-area-use-multiline-p t))
;; Function should return description of an Unicode character.
(should (equal "U+2026: Horizontal ellipsis (Po: Punctuation, Other)"
(describe-char-eldoc 'ignore))))
(goto-char (point-max))
;; At the end of the buffer, function should return nil and not blow up.
(should (not (describe-char-eldoc)))))
(should (not (describe-char-eldoc 'ignore)))))
(provide 'descr-text-test)
......@@ -194,7 +194,7 @@
(dotimes (i 3)
(equal (elisp-mode-tests--face-propertized-string
(elisp--highlight-function-argument 'foo "(A B C)" (1+ i) "foo: "))
(elisp--highlight-function-argument 'foo "(A B C)" (1+ i)))
(propertize (nth i '("A" "B" "C"))
'face 'eldoc-highlight-function-argument)))))
......@@ -206,7 +206,7 @@
(cl-flet ((bold-arg (i)
'foo "(PROMPT LST &key A B C)" i "foo: "))))
'foo "(PROMPT LST &key A B C)" i))))
(should-not (bold-arg 0))
(progn (forward-sexp) (forward-char))
(should (equal (bold-arg 1) "PROMPT"))
......@@ -226,7 +226,7 @@
(cl-flet ((bold-arg (i)
'foo "(X &key A B C)" i "foo: "))))
'foo "(X &key A B C)" i))))
(should-not (bold-arg 0))
;; The `:b' specifies positional arg `X'.
(progn (forward-sexp) (forward-char))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment