[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."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 3cf11a3: Silence byte-compiler in cconv-tests.el,
Stefan Kangas <=