procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove uneffective test

Browse source 
* test/src/comp-tests.el (45603-1): Remove test.
* test/src/comp-resources/comp-test-45603.el: Delete.
This commit is contained in:
Andrea Corallo 2022-07-08 15:54:20 +02:00
parent 7af88de410
commit 9db6817d63
2 changed files with 0 additions and 33 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
test/src/comp-resources/comp-test-45603.el
View file

@ -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)

5
test/src/comp-tests.el
View file

@ -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"))