mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-07 15:21:46 +00:00
Code Issues Releases Activity

Fix compilation warnings in subr-x-tests.el

Browse Source 
* test/lisp/emacs-lisp/subr-x-tests.el (subr-x-test-if-let*-false)
(subr-x-test-when-let*-false): Make tests simpler and compiler warning
free.
This commit is contained in:
Nicolas Petton 2018-03-18 22:21:30 +01:00
parent 8d81a4728d
commit 9667ba25b4
No known key found for this signature in database
GPG Key ID: E8BCD7866AFCF978
1 changed files with 6 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
test/lisp/emacs-lisp/subr-x-tests.el
View File

@ -148,34 +148,34 @@
"Test `if-let' with falsie bindings."
(should (equal
(if-let* ((a nil))
(list a b c)
"yes"
"no")
"no"))
(should (equal
(if-let* ((a nil) (b 2) (c 3))
(list a b c)
"yes"
"no")
"no"))
(should (equal
(if-let* ((a 1) (b nil) (c 3))
(list a b c)
"yes"
"no")
"no"))
(should (equal
(if-let* ((a 1) (b 2) (c nil))
(list a b c)
"yes"
"no")
"no"))
(should (equal
(let (z)
(if-let* (z (a 1) (b 2) (c 3))
(list a b c)
"yes"
"no"))
"no"))
(should (equal
(let (d)
(if-let* ((a 1) (b 2) (c 3) d)
(list a b c)
"yes"
"no"))
"no")))
@ -312,34 +312,28 @@
"Test `when-let' with falsie bindings."
(should (equal
(when-let* ((a nil))
(list a b c)
"no")
nil))
(should (equal
(when-let* ((a nil) (b 2) (c 3))
(list a b c)
"no")
nil))
(should (equal
(when-let* ((a 1) (b nil) (c 3))
(list a b c)
"no")
nil))
(should (equal
(when-let* ((a 1) (b 2) (c nil))
(list a b c)
"no")
nil))
(should (equal
(let (z)
(when-let* (z (a 1) (b 2) (c 3))
(list a b c)
"no"))
nil))
(should (equal
(let (d)
(when-let* ((a 1) (b 2) (c 3) d)
(list a b c)
"no"))
nil)))