[elpa] externals/compat f0ed78deb4 1/2: Use should-equal

[ELPA Syncer]

branch: externals/compat
commit f0ed78deb4f00ac635930d5d8457700994a2309b
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@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"))