emacs-diffs
[Top][All Lists]
Advanced

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

master 3cf11a3: Silence byte-compiler in cconv-tests.el


From: Stefan Kangas
Subject: master 3cf11a3: Silence byte-compiler in cconv-tests.el
Date: Mon, 20 Dec 2021 09:55:03 -0500 (EST)

branch: master
commit 3cf11a3c6101cc30e3a8d40fdab6cdcb097105c8
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    Silence byte-compiler in cconv-tests.el
    
    * test/lisp/emacs-lisp/cconv-tests.el
    (cconv-tests-iter-lambda-:documentation)
    (cconv-tests-cl-function-:documentation): Silence byte-compiler.
---
 test/lisp/emacs-lisp/cconv-tests.el | 26 ++++++++++++++------------
 1 file changed, 14 insertions(+), 12 deletions(-)

diff --git a/test/lisp/emacs-lisp/cconv-tests.el 
b/test/lisp/emacs-lisp/cconv-tests.el
index 0701892..94bc759 100644
--- a/test/lisp/emacs-lisp/cconv-tests.el
+++ b/test/lisp/emacs-lisp/cconv-tests.el
@@ -107,23 +107,25 @@
   "Docstring for iter-lambda can be specified with :documentation."
   ;; FIXME: See Bug#28557.
   :expected-result :failed
-  (let ((iter-fun
-         (iter-lambda ()
-           (:documentation (concat "iter-lambda" " documentation"))
-           (iter-yield 'iter-lambda-result))))
-    (should (string= (documentation iter-fun) "iter-lambda documentation"))
-    (should (eq (iter-next (funcall iter-fun)) 'iter-lambda-result))))
+  (with-no-warnings ; disable warnings for now as test is expected to fail
+    (let ((iter-fun
+           (iter-lambda ()
+             (:documentation (concat "iter-lambda" " documentation"))
+             (iter-yield 'iter-lambda-result))))
+      (should (string= (documentation iter-fun) "iter-lambda documentation"))
+      (should (eq (iter-next (funcall iter-fun)) 'iter-lambda-result)))))
 
 (ert-deftest cconv-tests-cl-function-:documentation ()
   "Docstring for cl-function can be specified with :documentation."
   ;; FIXME: See Bug#28557.
   :expected-result :failed
-  (let ((fun (cl-function (lambda (&key arg)
-                            (:documentation (concat "cl-function"
-                                                    " documentation"))
-                            (list arg 'cl-function-result)))))
-    (should (string= (documentation fun) "cl-function documentation"))
-    (should (equal (funcall fun :arg t) '(t cl-function-result)))))
+  (with-no-warnings ; disable warnings for now as test is expected to fail
+    (let ((fun (cl-function (lambda (&key arg)
+                              (:documentation (concat "cl-function"
+                                                      " documentation"))
+                              (list arg 'cl-function-result)))))
+      (should (string= (documentation fun) "cl-function documentation"))
+      (should (equal (funcall fun :arg t) '(t cl-function-result))))))
 
 (ert-deftest cconv-tests-function-:documentation ()
   "Docstring for lambda inside function can be specified with :documentation."



reply via email to

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