; * test/lisp/emacs-lisp/generator-tests.el: Style fixes.
This commit is contained in:
parent
d767418b76
commit
f54ddb0198
1 changed files with 7 additions and 2 deletions
|
@ -22,6 +22,10 @@
|
||||||
|
|
||||||
;;; Commentary:
|
;;; Commentary:
|
||||||
|
|
||||||
|
;; Unit tests for generator.el.
|
||||||
|
|
||||||
|
;;; Code:
|
||||||
|
|
||||||
(require 'generator)
|
(require 'generator)
|
||||||
(require 'ert)
|
(require 'ert)
|
||||||
(require 'cl-lib)
|
(require 'cl-lib)
|
||||||
|
@ -38,8 +42,7 @@
|
||||||
`cps-testcase' defines an ERT testcase called NAME that evaluates
|
`cps-testcase' defines an ERT testcase called NAME that evaluates
|
||||||
BODY twice: once using ordinary `eval' and once using
|
BODY twice: once using ordinary `eval' and once using
|
||||||
lambda-generators. The test ensures that the two forms produce
|
lambda-generators. The test ensures that the two forms produce
|
||||||
identical output.
|
identical output."
|
||||||
"
|
|
||||||
`(progn
|
`(progn
|
||||||
(ert-deftest ,name ()
|
(ert-deftest ,name ()
|
||||||
(should
|
(should
|
||||||
|
@ -302,3 +305,5 @@ identical output.
|
||||||
(lambda (it) (- it))
|
(lambda (it) (- it))
|
||||||
(1+ it)))))))
|
(1+ it)))))))
|
||||||
-2)))
|
-2)))
|
||||||
|
|
||||||
|
;;; generator-tests.el ends here
|
||||||
|
|
Loading…
Add table
Reference in a new issue