emacs-28 9db6817d63 2/2: Remove uneffective test

[Andrea Corallo]

branch: emacs-28
commit 9db6817d638bf93a98de58612bac46e1ff425f26
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    Remove uneffective test
    
    * test/src/comp-tests.el (45603-1): Remove test.
    * test/src/comp-resources/comp-test-45603.el: Delete.
---
 test/src/comp-resources/comp-test-45603.el | 28 ----------------------------
 test/src/comp-tests.el                     |  5 -----
 2 files changed, 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 f1c0dafb68..0000000000
--- a/test/src/comp-resources/comp-test-45603.el
+++ /dev/null
@@ -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)
diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index af40eb247d..26fdfc7d07 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.";
   (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"))