[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
scratch/bug#48029 844a284af8 2/2: Remove uneffective test
From: |
Andrea Corallo |
Subject: |
scratch/bug#48029 844a284af8 2/2: Remove uneffective test |
Date: |
Fri, 8 Jul 2022 10:10:44 -0400 (EDT) |
branch: scratch/bug#48029
commit 844a284af8c05d8df548c46c635c5291436edefe
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 | 29 -----------------------------
test/src/comp-tests.el | 5 -----
2 files changed, 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 65147ee015..0000000000
--- a/test/src/comp-resources/comp-test-45603.el
+++ /dev/null
@@ -1,29 +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)))
- marked-candidates))
-
-(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 c7e81298d2..1b239cec79 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."
(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"))