Revert "Define `map-elt' as a generalized variable"

This reverts commit 8b6d82d3ca86f76ed964063b3941a7c6ab0bf1c6.

1 files changed, 12 insertions, 12 deletions

diff --git a/test/automated/map-tests.el b/test/automated/map-tests.el
index 402fead88f7..abda03d9d04 100644
--- a/test/automated/map-tests.el
+++ b/test/automated/map-tests.el
@@ -40,11 +40,11 @@ Evaluate BODY for each created map.
   (let ((alist (make-symbol "alist"))
         (vec (make-symbol "vec"))
         (ht (make-symbol "ht")))
-    `(let ((,alist (list (cons 0  3)
-                         (cons 1  4)
-                         (cons 2  5)))
-           (,vec (make-vector 3 nil))
-           (,ht (make-hash-table)))
+   `(let ((,alist '((0 . 3)
+                    (1 . 4)
+                    (2 . 5)))
+          (,vec (make-vector 3 nil))
+          (,ht (make-hash-table)))
       (aset ,vec 0 '3)
       (aset ,vec 1 '4)
       (aset ,vec 2 '5)
@@ -87,13 +87,13 @@ Evaluate BODY for each created map.
   (let ((vec [3 4 5]))
    (should-error (map-put vec 3 6))))
 
-;; (ert-deftest test-map-put-literal ()
-;;   (should (= (map-elt (map-put [1 2 3] 1 4) 1)
-;;              4))
-;;   (should (= (map-elt (map-put (make-hash-table) 'a 2) 'a)
-;;              2))
-;;   (should-error (map-put '((a . 1)) 'b 2))
-;;   (should-error (map-put '() 'a 1)))
+(ert-deftest test-map-put-literal ()
+  (should (= (map-elt (map-put [1 2 3] 1 4) 1)
+             4))
+  (should (= (map-elt (map-put (make-hash-table) 'a 2) 'a)
+             2))
+  (should-error (map-put '((a . 1)) 'b 2))
+  (should-error (map-put '() 'a 1)))
 
 (ert-deftest test-map-put-return-value ()
   (let ((ht (make-hash-table)))