branch: externals/compat
commit 2b69a34a628d3d995895bac0fa77e6515c511ba0
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Drop unneeded tests
---
compat-tests.el | 20 --------------------
1 file changed, 20 deletions(-)
diff --git a/compat-tests.el b/compat-tests.el
index 52d6d57315..4e8a0d6f5b 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -839,11 +839,6 @@
(compat-call define-key map "\C-y" nil t)
(should-equal map '(keymap (24 keymap) (27 keymap)))))
-(defun compat-tests--function-put ())
-(ert-deftest function-put ()
- (function-put #'compat-tests--function-put 'compat-test 42)
- (should-equal 42 (function-get #'compat-tests--function-put 'compat-test)))
-
(ert-deftest function-alias-p ()
(defun compat-tests--alias-fun ())
(should-not (function-alias-p 1))
@@ -1554,21 +1549,6 @@
(should-equal "prwx------" (file-modes-number-to-symbolic #o10700))
(should-equal "-rwx------" (file-modes-number-to-symbolic #o30700)))
-(ert-deftest file-name-absolute-p () ;assuming unix
- (should (file-name-absolute-p "/"))
- (should (file-name-absolute-p "/a"))
- (should-not (file-name-absolute-p "a"))
- (should-not (file-name-absolute-p "a/b"))
- (should-not (file-name-absolute-p "a/b/"))
- (should (file-name-absolute-p "~"))
- (when (version< "27.1" emacs-version)
- (should (file-name-absolute-p "~/foo"))
- (should-not (file-name-absolute-p "~foo"))
- (should-not (file-name-absolute-p "~foo/")))
- (should (file-name-absolute-p "~root"))
- (should (file-name-absolute-p "~root/"))
- (should (file-name-absolute-p "~root/file")))
-
(ert-deftest file-local-name ()
(should-equal "" (file-local-name ""))
(should-equal "foo" (file-local-name "foo"))
