diff options
author | Mattias EngdegÄrd <mattiase@acm.org> | 2023-04-09 10:57:43 +0200 |
---|---|---|
committer | Mattias EngdegÄrd <mattiase@acm.org> | 2023-04-09 13:16:53 +0200 |
commit | 39a0b6cb027eb3f0349f4275ceed2ccca2cd14f4 (patch) | |
tree | d78e66209db4edbf5139103b5c2e54977fc75bc1 /test | |
parent | bb567e339a81c8b6d5bd24774c0da8c8402847de (diff) | |
download | emacs-39a0b6cb027eb3f0349f4275ceed2ccca2cd14f4.tar.gz |
; * test/src/fns-tests.el: Strengthen tests of `nreverse`.
Diffstat (limited to 'test')
-rw-r--r-- | test/src/fns-tests.el | 39 |
1 files changed, 21 insertions, 18 deletions
diff --git a/test/src/fns-tests.el b/test/src/fns-tests.el index 6f79d3277a8..2859123da80 100644 --- a/test/src/fns-tests.el +++ b/test/src/fns-tests.el @@ -114,22 +114,24 @@ (should-error (nreverse 1)) (should-error (nreverse (make-char-table 'foo))) (should (equal (nreverse (copy-sequence "xyzzy")) "yzzyx")) - (let ((A (vector))) - (nreverse A) - (should (equal A []))) - (let ((A (vector 0))) - (nreverse A) - (should (equal A [0]))) - (let ((A (vector 1 2 3 4))) - (nreverse A) - (should (equal A [4 3 2 1]))) - (let ((A (vector 1 2 3 4))) - (nreverse A) - (nreverse A) - (should (equal A [1 2 3 4]))) + (let* ((A (vector)) + (B (nreverse A))) + (should (equal A [])) + (should (eq B A))) + (let* ((A (vector 0)) + (B (nreverse A))) + (should (equal A [0])) + (should (eq B A))) (let* ((A (vector 1 2 3 4)) - (B (nreverse (nreverse A)))) - (should (equal A B)))) + (B (nreverse A))) + (should (equal A [4 3 2 1])) + (should (eq B A))) + (let* ((A (vector 1 2 3 4)) + (B (nreverse A)) + (C (nreverse A))) + (should (equal A [1 2 3 4])) + (should (eq B A)) + (should (eq C A)))) (ert-deftest fns-tests-reverse-bool-vector () (let ((A (make-bool-vector 10 nil))) @@ -140,9 +142,10 @@ (ert-deftest fns-tests-nreverse-bool-vector () (let ((A (make-bool-vector 10 nil))) (dotimes (i 5) (aset A i t)) - (nreverse A) - (should (equal [nil nil nil nil nil t t t t t] (vconcat A))) - (should (equal [t t t t t nil nil nil nil nil] (vconcat (nreverse A)))))) + (let ((B (nreverse A))) + (should (eq B A)) + (should (equal [nil nil nil nil nil t t t t t] (vconcat A))) + (should (equal [t t t t t nil nil nil nil nil] (vconcat (nreverse A))))))) (defconst fns-tests--string-lessp-cases `(("abc" < "abd") |