[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master ef8bd7d: Update tests for recent changes

From: Glenn Morris
Subject: master ef8bd7d: Update tests for recent changes
Date: Wed, 8 Jul 2020 20:36:08 -0400 (EDT)

branch: master
commit ef8bd7d8561be7ae2749127606bc40eed421601e
Author: Glenn Morris <rgm@gnu.org>
Commit: Glenn Morris <rgm@gnu.org>

    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.
 test/lisp/descr-text-tests.el           | 6 +++---
 test/lisp/progmodes/elisp-mode-tests.el | 6 +++---
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/test/lisp/descr-text-tests.el b/test/lisp/descr-text-tests.el
index 74fcdf5..b060dff 100644
--- a/test/lisp/descr-text-tests.el
+++ b/test/lisp/descr-text-tests.el
@@ -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))))
+                     (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)
diff --git a/test/lisp/progmodes/elisp-mode-tests.el 
index 2ba0065..2de533e 100644
--- a/test/lisp/progmodes/elisp-mode-tests.el
+++ b/test/lisp/progmodes/elisp-mode-tests.el
@@ -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))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]