diff options
| author | Andrea Corallo | 2022-07-08 15:54:20 +0200 |
|---|---|---|
| committer | Andrea Corallo | 2022-07-13 15:19:27 +0200 |
| commit | 9db6817d638bf93a98de58612bac46e1ff425f26 (patch) | |
| tree | 68b91e42d8141b6dd31c4a7b65e4f534c99cb357 /test/src | |
| parent | 7af88de4103e6467e8edc9c7a15a97361d99822f (diff) | |
| download | emacs-9db6817d638bf93a98de58612bac46e1ff425f26.tar.gz emacs-9db6817d638bf93a98de58612bac46e1ff425f26.zip | |
Remove uneffective test
* test/src/comp-tests.el (45603-1): Remove test.
* test/src/comp-resources/comp-test-45603.el: Delete.
Diffstat (limited to 'test/src')
| -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 @@ | |||
| 1 | ;;; -*- lexical-binding: t; -*- | ||
| 2 | |||
| 3 | ;; Reduced from ivy.el. | ||
| 4 | |||
| 5 | (defvar comp-test-45603-last) | ||
| 6 | (defvar comp-test-45603-mark-prefix) | ||
| 7 | (defvar comp-test-45603-directory) | ||
| 8 | (defvar comp-test-45603-marked-candidates) | ||
| 9 | |||
| 10 | (defun comp-test-45603--call-marked (action) | ||
| 11 | (let* ((prefix-len (length comp-test-45603-mark-prefix)) | ||
| 12 | (marked-candidates | ||
| 13 | (mapcar | ||
| 14 | (lambda (s) | ||
| 15 | (let ((cand (substring s prefix-len))) | ||
| 16 | (if comp-test-45603-directory | ||
| 17 | (expand-file-name cand comp-test-45603-directory) | ||
| 18 | cand))) | ||
| 19 | comp-test-45603-marked-candidates)) | ||
| 20 | (multi-action (comp-test-45603--get-multi-action comp-test-45603-last))))) | ||
| 21 | |||
| 22 | (defalias 'comp-test-45603--file-local-name | ||
| 23 | (if (fboundp 'file-local-name) | ||
| 24 | #'file-local-name | ||
| 25 | (lambda (file) | ||
| 26 | (or (file-remote-p file 'localname) file)))) | ||
| 27 | |||
| 28 | (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." | |||
| 489 | (should (string= (comp-test-45635-f :height 180 :family "PragmataPro Liga") | 489 | (should (string= (comp-test-45635-f :height 180 :family "PragmataPro Liga") |
| 490 | "PragmataPro Liga"))) | 490 | "PragmataPro Liga"))) |
| 491 | 491 | ||
| 492 | (comp-deftest 45603-1 () | ||
| 493 | "<https://lists.gnu.org/archive/html/bug-gnu-emacs/2020-12/msg01994.html>" | ||
| 494 | (load (native-compile (ert-resource-file "comp-test-45603.el"))) | ||
| 495 | (should (fboundp #'comp-test-45603--file-local-name))) | ||
| 496 | |||
| 497 | (comp-deftest 46670-1 () | 492 | (comp-deftest 46670-1 () |
| 498 | "<https://lists.gnu.org/archive/html/bug-gnu-emacs/2021-02/msg01413.html>" | 493 | "<https://lists.gnu.org/archive/html/bug-gnu-emacs/2021-02/msg01413.html>" |
| 499 | (should (string= (comp-test-46670-2-f "foo") "foo")) | 494 | (should (string= (comp-test-46670-2-f "foo") "foo")) |