[elpa] externals/compat c8d1447114 08/11: Simplify tests

[ELPA Syncer]

branch: externals/compat
commit c8d1447114e488c385e8f96fa3fa24aa099fe71c
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Simplify tests
---
 compat-tests.el | 15 ++++-----------
 1 file changed, 4 insertions(+), 11 deletions(-)

diff --git a/compat-tests.el b/compat-tests.el
index bfe409b1a2..eaac0b69ee 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -576,30 +576,23 @@
                         ((lop (and (setq b (not b)) (1+ i)))))))
               'ok)))
 
-(ert-deftest compat-call-alist-get-gv ()
-  "Test if the `compat-call alist-get' can be used as a generalised variable."
+(ert-deftest alist-get-gv ()
   (let ((alist-1 (list (cons 1 "one")
                        (cons 2 "two")
                        (cons 3 "three")))
         (alist-2 (list (cons "one" 1)
                        (cons "two" 2)
                        (cons "three" 3))))
+
     (setf (compat-call alist-get 1 alist-1) "eins")
     (should (equal (compat-call alist-get 1 alist-1) "eins"))
     (setf (compat-call alist-get 2 alist-1 nil 'remove) nil)
     (should (equal alist-1 '((1 . "eins") (3 . "three"))))
     (setf (compat-call alist-get "one" alist-2 nil nil #'string=) "eins")
     (should (equal (compat-call alist-get "one" alist-2 nil nil #'string=)
-                   "eins"))))
+                   "eins"))
 
-(ert-deftest alist-get-gv ()
-  "Test if the `compat-alist-get' can be used as a generalised variable."
-  (let ((alist-1 (list (cons 1 "one")
-                       (cons 2 "two")
-                       (cons 3 "three")))
-        (alist-2 (list (cons "one" 1)
-                       (cons "two" 2)
-                       (cons "three" 3))))
+    ;; Obsolete compat-alist-get
     (setf (compat-alist-get 1 alist-1) "eins")
     (should (equal (compat-alist-get 1 alist-1) "eins"))
     (setf (compat-alist-get 2 alist-1 nil 'remove) nil)