diff options
| author | Stefan Kangas | 2022-12-19 04:42:18 +0100 |
|---|---|---|
| committer | Stefan Kangas | 2022-12-19 04:42:18 +0100 |
| commit | d468cf91b9fbcd915644246f27dbaa87e23c7e7b (patch) | |
| tree | c88c14f5372b67e3f02bcb16359b99256d9f2800 /test | |
| parent | 9a633dce63904b54738a63eb5007869fd851419a (diff) | |
| parent | de2239a584ab9b3bcdea2379f2c54ea3d20d596f (diff) | |
| download | emacs-d468cf91b9fbcd915644246f27dbaa87e23c7e7b.tar.gz emacs-d468cf91b9fbcd915644246f27dbaa87e23c7e7b.zip | |
Merge from origin/emacs-29
de2239a584a Revert "alist-get testfn argument evaluation correction"
856d889f3a8 Revert "Elide broken but unnecessary `if` optimisations"
8e42e20ed7f Revert "Use equal and member instead of eq and memq"
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/emacs-lisp/cl-lib-tests.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/lisp/emacs-lisp/cl-lib-tests.el b/test/lisp/emacs-lisp/cl-lib-tests.el index 759138569e4..4ec24e51e06 100644 --- a/test/lisp/emacs-lisp/cl-lib-tests.el +++ b/test/lisp/emacs-lisp/cl-lib-tests.el | |||
| @@ -404,7 +404,7 @@ | |||
| 404 | (ert-deftest cl-lib-nth-value-test-multiple-values () | 404 | (ert-deftest cl-lib-nth-value-test-multiple-values () |
| 405 | "While CL multiple values are an alias to list, these won't work." | 405 | "While CL multiple values are an alias to list, these won't work." |
| 406 | :expected-result :failed | 406 | :expected-result :failed |
| 407 | (should (equal (cl-nth-value 0 '(2 3)) '(2 3))) | 407 | (should (eq (cl-nth-value 0 '(2 3)) '(2 3))) |
| 408 | (should (= (cl-nth-value 0 1) 1)) | 408 | (should (= (cl-nth-value 0 1) 1)) |
| 409 | (should (null (cl-nth-value 1 1))) | 409 | (should (null (cl-nth-value 1 1))) |
| 410 | (should-error (cl-nth-value -1 (cl-values 2 3)) :type 'args-out-of-range) | 410 | (should-error (cl-nth-value -1 (cl-values 2 3)) :type 'args-out-of-range) |