diff options
author | Mattias EngdegÄrd <mattiase@acm.org> | 2023-05-13 13:36:50 +0200 |
---|---|---|
committer | Mattias EngdegÄrd <mattiase@acm.org> | 2023-05-13 14:31:00 +0200 |
commit | 63be4d11b58630251c70508267792d4a6d431fdd (patch) | |
tree | 890ac1c5e068dc751eb663916dd96ff9e4dd61ea /test/lisp/net/tramp-archive-tests.el | |
parent | 9f856e4cd095c24cf4e6cadbc04efaf533e59f37 (diff) | |
download | emacs-63be4d11b58630251c70508267792d4a6d431fdd.tar.gz |
Don't mutate constants in tests
* test/lisp/emacs-lisp/cl-macs-tests.el
(cl-macs-test--symbol-macrolet):
* test/lisp/emacs-lisp/cl-print-tests.el
(cl-print-tests-ellipsis-circular):
* test/lisp/emacs-lisp/eieio-tests/eieio-test-persist.el
(eieio-test-persist-interior-lists):
* test/lisp/textmodes/reftex-tests.el (reftex-all-used-citation-keys):
* test/src/xdisp-tests.el (xdisp-tests--minibuffer-resizing):
* test/src/fns-tests.el (test-vector-delete):
Mutate created objects, not constants.
* test/lisp/emacs-lisp/subr-x-tests.el
(subr-x-test-add-display-text-property): Mutate a created string, and
compare using `equal-including-properties` without which the test was
rather meaningless.
* test/lisp/net/tramp-archive-tests.el
(tramp-archive-test16-directory-files): Don't mutate.
Diffstat (limited to 'test/lisp/net/tramp-archive-tests.el')
-rw-r--r-- | test/lisp/net/tramp-archive-tests.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/lisp/net/tramp-archive-tests.el b/test/lisp/net/tramp-archive-tests.el index 2e2e313f35c..80ec67da8d2 100644 --- a/test/lisp/net/tramp-archive-tests.el +++ b/test/lisp/net/tramp-archive-tests.el @@ -587,11 +587,11 @@ This checks also `file-name-as-directory', `file-name-directory', (mapcar (lambda (x) (concat tmp-name x)) files))) (should (equal (directory-files tmp-name nil directory-files-no-dot-files-regexp) - (delete "." (delete ".." files)))) + (remove "." (remove ".." files)))) (should (equal (directory-files tmp-name 'full directory-files-no-dot-files-regexp) (mapcar (lambda (x) (concat tmp-name x)) - (delete "." (delete ".." files)))))) + (remove "." (remove ".." files)))))) ;; Cleanup. (tramp-archive-cleanup-hash)))) |