diff options
| author | Po Lu <luangruo@yahoo.com> | 2021-12-02 17:53:58 +0800 |
|---|---|---|
| committer | Po Lu <luangruo@yahoo.com> | 2021-12-02 17:53:58 +0800 |
| commit | 2f6b519eaeb3be4ee6a912b40a21686be12d4d88 (patch) | |
| tree | d835634ef08ebdf0e7900a8322060d511eb56481 /test/lisp/emacs-lisp/cl-lib-tests.el | |
| parent | 78a3933b62c1c83a6a4d54c9bc65faf069aa83dc (diff) | |
| parent | 3f98188b864fb4f16a7c2878a96c880ec55452dd (diff) | |
| download | emacs-2f6b519eaeb3be4ee6a912b40a21686be12d4d88.tar.gz emacs-2f6b519eaeb3be4ee6a912b40a21686be12d4d88.tar.bz2 emacs-2f6b519eaeb3be4ee6a912b40a21686be12d4d88.zip | |
Merge remote-tracking branch 'origin/master' into feature/pgtk
Diffstat (limited to 'test/lisp/emacs-lisp/cl-lib-tests.el')
| -rw-r--r-- | test/lisp/emacs-lisp/cl-lib-tests.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/test/lisp/emacs-lisp/cl-lib-tests.el b/test/lisp/emacs-lisp/cl-lib-tests.el index 854e371b32f..a0facc81dbe 100644 --- a/test/lisp/emacs-lisp/cl-lib-tests.el +++ b/test/lisp/emacs-lisp/cl-lib-tests.el @@ -551,4 +551,9 @@ (should cl-old-struct-compat-mode) (cl-old-struct-compat-mode (if saved 1 -1)))) +(ert-deftest cl-constantly () + (should (equal (mapcar (cl-constantly 3) '(a b c d)) + '(3 3 3 3)))) + + ;;; cl-lib-tests.el ends here |