aboutsummaryrefslogtreecommitdiffstats
path: root/test/src
diff options
context:
space:
mode:
authorAndrea Corallo2022-07-08 15:54:20 +0200
committerAndrea Corallo2022-07-13 15:19:27 +0200
commit9db6817d638bf93a98de58612bac46e1ff425f26 (patch)
tree68b91e42d8141b6dd31c4a7b65e4f534c99cb357 /test/src
parent7af88de4103e6467e8edc9c7a15a97361d99822f (diff)
downloademacs-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.el28
-rw-r--r--test/src/comp-tests.el5
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"))