diff options
| author | Andrea Corallo <akrl@sdf.org> | 2022-07-08 15:54:20 +0200 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2022-07-13 15:19:27 +0200 |
| commit | 9db6817d638bf93a98de58612bac46e1ff425f26 (patch) | |
| tree | 68b91e42d8141b6dd31c4a7b65e4f534c99cb357 | |
| parent | 7af88de4103e6467e8edc9c7a15a97361d99822f (diff) | |
| download | emacs-9db6817d638bf93a98de58612bac46e1ff425f26.tar.gz | |
Remove uneffective test
* test/src/comp-tests.el (45603-1): Remove test.
* test/src/comp-resources/comp-test-45603.el: Delete.
| -rw-r--r-- | test/src/comp-resources/comp-test-45603.el | 28 | ||||
| -rw-r--r-- | test/src/comp-tests.el | 5 |
2 files changed, 0 insertions, 33 deletions
diff --git a/test/src/comp-resources/comp-test-45603.el b/test/src/comp-resources/comp-test-45603.el deleted file mode 100644 index f1c0dafb68d..00000000000 --- a/test/src/comp-resources/comp-test-45603.el +++ /dev/null @@ -1,28 +0,0 @@ -;;; -*- lexical-binding: t; -*- - -;; Reduced from ivy.el. - -(defvar comp-test-45603-last) -(defvar comp-test-45603-mark-prefix) -(defvar comp-test-45603-directory) -(defvar comp-test-45603-marked-candidates) - -(defun comp-test-45603--call-marked (action) - (let* ((prefix-len (length comp-test-45603-mark-prefix)) - (marked-candidates - (mapcar - (lambda (s) - (let ((cand (substring s prefix-len))) - (if comp-test-45603-directory - (expand-file-name cand comp-test-45603-directory) - cand))) - comp-test-45603-marked-candidates)) - (multi-action (comp-test-45603--get-multi-action comp-test-45603-last))))) - -(defalias 'comp-test-45603--file-local-name - (if (fboundp 'file-local-name) - #'file-local-name - (lambda (file) - (or (file-remote-p file 'localname) file)))) - -(provide 'comp-test-45603) diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el index af40eb247de..26fdfc7d07d 100644 --- a/test/src/comp-tests.el +++ b/test/src/comp-tests.el @@ -489,11 +489,6 @@ https://lists.gnu.org/archive/html/bug-gnu-emacs/2020-03/msg00914.html." (should (string= (comp-test-45635-f :height 180 :family "PragmataPro Liga") "PragmataPro Liga"))) -(comp-deftest 45603-1 () - "<https://lists.gnu.org/archive/html/bug-gnu-emacs/2020-12/msg01994.html>" - (load (native-compile (ert-resource-file "comp-test-45603.el"))) - (should (fboundp #'comp-test-45603--file-local-name))) - (comp-deftest 46670-1 () "<https://lists.gnu.org/archive/html/bug-gnu-emacs/2021-02/msg01413.html>" (should (string= (comp-test-46670-2-f "foo") "foo")) |