aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAndrea Corallo2022-07-08 15:54:20 +0200
committerAndrea Corallo2022-07-08 16:03:09 +0200
commit844a284af8c05d8df548c46c635c5291436edefe (patch)
treea1900634af9a8cf8551ae946abe866b4b9cf0e34
parent8be8f088d1c664818d59df71438a10acbd43a727 (diff)
downloademacs-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.
-rw-r--r--test/src/comp-resources/comp-test-45603.el29
-rw-r--r--test/src/comp-tests.el5
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"))