aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rw-r--r--test/lisp/emacs-lisp/generator-tests.el7
1 files changed, 5 insertions, 2 deletions
diff --git a/test/lisp/emacs-lisp/generator-tests.el b/test/lisp/emacs-lisp/generator-tests.el
index 0d325f1485a..bcfab201636 100644
--- a/test/lisp/emacs-lisp/generator-tests.el
+++ b/test/lisp/emacs-lisp/generator-tests.el
@@ -26,6 +26,8 @@
26(require 'ert) 26(require 'ert)
27(require 'cl-lib) 27(require 'cl-lib)
28 28
29;;; Code:
30
29(defun generator-list-subrs () 31(defun generator-list-subrs ()
30 (cl-loop for x being the symbols 32 (cl-loop for x being the symbols
31 when (and (fboundp x) 33 when (and (fboundp x)
@@ -38,8 +40,7 @@
38`cps-testcase' defines an ERT testcase called NAME that evaluates 40`cps-testcase' defines an ERT testcase called NAME that evaluates
39BODY twice: once using ordinary `eval' and once using 41BODY twice: once using ordinary `eval' and once using
40lambda-generators. The test ensures that the two forms produce 42lambda-generators. The test ensures that the two forms produce
41identical output. 43identical output."
42"
43 `(progn 44 `(progn
44 (ert-deftest ,name () 45 (ert-deftest ,name ()
45 (should 46 (should
@@ -302,3 +303,5 @@ identical output.
302 (lambda (it) (- it)) 303 (lambda (it) (- it))
303 (1+ it))))))) 304 (1+ it)))))))
304 -2))) 305 -2)))
306
307;;; generator-tests.el ends here