branch: externals/compat
commit f0ed78deb4f00ac635930d5d8457700994a2309b
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Use should-equal
---
compat-tests.el | 34 +++++++++++++++++-----------------
1 file changed, 17 insertions(+), 17 deletions(-)
diff --git a/compat-tests.el b/compat-tests.el
index 470708bd23..567d131687 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -69,8 +69,8 @@
"SPC" #'minibuffer-complete-word
"C-c" mode-specific-map))
(ert-deftest defvar-keymap ()
- (should (equal compat-test-map-1 compat-test-map-2))
- (should (equal compat-test-map-1 compat-test-map-3)))
+ (should-equal compat-test-map-1 compat-test-map-2)
+ (should-equal compat-test-map-1 compat-test-map-3))
(ert-deftest key-valid-p ()
(should-not (key-valid-p ""))
@@ -714,21 +714,21 @@
(should-equal (concat "/ssh:" (system-name) ":/:a") (compat-call
file-name-quote "/ssh::a")))
(ert-deftest file-name-concat ()
- (should (equal (file-name-concat "foo" "bar") "foo/bar"))
- (should (equal (file-name-concat "foo" "bar") "foo/bar"))
- (should (equal (file-name-concat "foo" "bar" "zot") "foo/bar/zot"))
- (should (equal (file-name-concat "foo/" "bar") "foo/bar"))
- (should (equal (file-name-concat "foo//" "bar") "foo//bar"))
- (should (equal (file-name-concat "foo/" "bar/" "zot") "foo/bar/zot"))
- (should (equal (file-name-concat "fóo" "bar") "fóo/bar"))
- (should (equal (file-name-concat "foo" "bár") "foo/bár"))
- (should (equal (file-name-concat "fóo" "bár") "fóo/bár"))
- (should (equal (file-name-concat "foo") "foo"))
- (should (equal (file-name-concat "foo/") "foo/"))
- (should (equal (file-name-concat "foo" "") "foo"))
- (should (equal (file-name-concat "foo" "" "" "" nil) "foo"))
- (should (equal (file-name-concat "" "bar") "bar"))
- (should (equal (file-name-concat "" "") "")))
+ (should-equal (file-name-concat "foo" "bar") "foo/bar")
+ (should-equal (file-name-concat "foo" "bar") "foo/bar")
+ (should-equal (file-name-concat "foo" "bar" "zot") "foo/bar/zot")
+ (should-equal (file-name-concat "foo/" "bar") "foo/bar")
+ (should-equal (file-name-concat "foo//" "bar") "foo//bar")
+ (should-equal (file-name-concat "foo/" "bar/" "zot") "foo/bar/zot")
+ (should-equal (file-name-concat "fóo" "bar") "fóo/bar")
+ (should-equal (file-name-concat "foo" "bár") "foo/bár")
+ (should-equal (file-name-concat "fóo" "bár") "fóo/bár")
+ (should-equal (file-name-concat "foo") "foo")
+ (should-equal (file-name-concat "foo/") "foo/")
+ (should-equal (file-name-concat "foo" "") "foo")
+ (should-equal (file-name-concat "foo" "" "" "" nil) "foo")
+ (should-equal (file-name-concat "" "bar") "bar")
+ (should-equal (file-name-concat "" "") ""))
(ert-deftest file-name-with-extension ()
(should-equal "file.ext" (file-name-with-extension "file" "ext"))
