diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-08-14 15:30:17 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-08-14 15:30:17 +0200 |
| commit | 3fd0cc85a58775e0a09efb88649bea9dd28c5491 (patch) | |
| tree | 09b5101131e6050f6587e3aff94dc637fb14f2e4 /test/lisp/emacs-lisp | |
| parent | 22d8e71d0462be77cb1c7999b36713d0bdfd65af (diff) | |
| download | emacs-3fd0cc85a58775e0a09efb88649bea9dd28c5491.tar.gz emacs-3fd0cc85a58775e0a09efb88649bea9dd28c5491.tar.bz2 emacs-3fd0cc85a58775e0a09efb88649bea9dd28c5491.zip | |
Revert "Add macro `seq-setq`."
This reverts commit a8a3fd8f8e27089ac46bf98e534529ff03f679a5.
The same patch was applied twice. Remove the second instance.
Diffstat (limited to 'test/lisp/emacs-lisp')
| -rw-r--r-- | test/lisp/emacs-lisp/seq-tests.el | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/test/lisp/emacs-lisp/seq-tests.el b/test/lisp/emacs-lisp/seq-tests.el index 5217921d3d7..44e855e2cfa 100644 --- a/test/lisp/emacs-lisp/seq-tests.el +++ b/test/lisp/emacs-lisp/seq-tests.el @@ -407,30 +407,6 @@ Evaluate BODY for each created sequence. (should (null b)) (should (null c)))) -(ert-deftest test-seq-setq () - (with-test-sequences (seq '(1 2 3 4)) - (let (a b c d e) - (seq-setq (a b c d e) seq) - (should (= a 1)) - (should (= b 2)) - (should (= c 3)) - (should (= d 4)) - (should (null e))) - (let (a b others) - (seq-setq (a b &rest others) seq) - (should (= a 1)) - (should (= b 2)) - (should (same-contents-p others (seq-drop seq 2))))) - (let ((a) - (seq '(1 (2 (3 (4)))))) - (seq-setq (_ (_ (_ (a)))) seq) - (should (= a 4))) - (let (seq a b c) - (seq-setq (a b c) seq) - (should (null a)) - (should (null b)) - (should (null c)))) - (ert-deftest test-seq-min-max () (with-test-sequences (seq '(4 5 3 2 0 4)) (should (= (seq-min seq) 0)) |