aboutsummaryrefslogtreecommitdiffstats
path: root/test/lisp/emacs-lisp/let-alist-tests.el
diff options
context:
space:
mode:
Diffstat (limited to 'test/lisp/emacs-lisp/let-alist-tests.el')
-rw-r--r--test/lisp/emacs-lisp/let-alist-tests.el5
1 files changed, 2 insertions, 3 deletions
diff --git a/test/lisp/emacs-lisp/let-alist-tests.el b/test/lisp/emacs-lisp/let-alist-tests.el
index fbcde4e3cbf..d04645709e4 100644
--- a/test/lisp/emacs-lisp/let-alist-tests.el
+++ b/test/lisp/emacs-lisp/let-alist-tests.el
@@ -31,7 +31,7 @@
31 (.test-two (cdr (assq 'test-two symbol)))) 31 (.test-two (cdr (assq 'test-two symbol))))
32 (list .test-one .test-two 32 (list .test-one .test-two
33 .test-two .test-two))) 33 .test-two .test-two)))
34 (cl-letf (((symbol-function #'make-symbol) (lambda (x) 'symbol))) 34 (cl-letf (((symbol-function #'make-symbol) (lambda (_x) 'symbol)))
35 (macroexpand 35 (macroexpand
36 '(let-alist data (list .test-one .test-two 36 '(let-alist data (list .test-one .test-two
37 .test-two .test-two)))))) 37 .test-two .test-two))))))
@@ -51,8 +51,7 @@
51(ert-deftest let-alist-cons () 51(ert-deftest let-alist-cons ()
52 (should 52 (should
53 (equal 53 (equal
54 (let ((.external "ext") 54 (let ((.external "ext"))
55 (.external.too "et"))
56 (let-alist '((test-two . 0) 55 (let-alist '((test-two . 0)
57 (test-three . 1) 56 (test-three . 1)
58 (sublist . ((foo . 2) 57 (sublist . ((foo . 2)