diff options
| author | Andrea Corallo | 2022-07-08 15:54:20 +0200 |
|---|---|---|
| committer | Andrea Corallo | 2022-07-08 16:03:09 +0200 |
| commit | 844a284af8c05d8df548c46c635c5291436edefe (patch) | |
| tree | a1900634af9a8cf8551ae946abe866b4b9cf0e34 /test/src | |
| parent | 8be8f088d1c664818d59df71438a10acbd43a727 (diff) | |
| download | emacs-scratch/bug#48029.tar.gz emacs-scratch/bug#48029.zip | |
Remove uneffective testscratch/bug#48029
* 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 | 29 | ||||
| -rw-r--r-- | test/src/comp-tests.el | 5 |
2 files changed, 0 insertions, 34 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 65147ee0156..00000000000 --- a/test/src/comp-resources/comp-test-45603.el +++ /dev/null | |||
| @@ -1,29 +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 | marked-candidates)) | ||
| 22 | |||
| 23 | (defalias 'comp-test-45603--file-local-name | ||
| 24 | (if (fboundp 'file-local-name) | ||
| 25 | #'file-local-name | ||
| 26 | (lambda (file) | ||
| 27 | (or (file-remote-p file 'localname) file)))) | ||
| 28 | |||
| 29 | (provide 'comp-test-45603) | ||
diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el index c7e81298d26..1b239cec795 100644 --- a/test/src/comp-tests.el +++ b/test/src/comp-tests.el | |||
| @@ -508,11 +508,6 @@ https://lists.gnu.org/archive/html/bug-gnu-emacs/2020-03/msg00914.html." | |||
| 508 | (should (string= (comp-test-45635-f :height 180 :family "PragmataPro Liga") | 508 | (should (string= (comp-test-45635-f :height 180 :family "PragmataPro Liga") |
| 509 | "PragmataPro Liga"))) | 509 | "PragmataPro Liga"))) |
| 510 | 510 | ||
| 511 | (comp-deftest 45603-1 () | ||
| 512 | "<https://lists.gnu.org/archive/html/bug-gnu-emacs/2020-12/msg01994.html>" | ||
| 513 | (load (native-compile (ert-resource-file "comp-test-45603.el"))) | ||
| 514 | (should (fboundp 'comp-test-45603--file-local-name))) | ||
| 515 | |||
| 516 | (comp-deftest 46670-1 () | 511 | (comp-deftest 46670-1 () |
| 517 | "<https://lists.gnu.org/archive/html/bug-gnu-emacs/2021-02/msg01413.html>" | 512 | "<https://lists.gnu.org/archive/html/bug-gnu-emacs/2021-02/msg01413.html>" |
| 518 | (should (string= (comp-test-46670-2-f "foo") "foo")) | 513 | (should (string= (comp-test-46670-2-f "foo") "foo")) |