* test/automated/map-tests.el (test-map-delete-return-value): Uncomment test.

diff --git a/test/automated/map-tests.el b/test/automated/map-tests.el
index 2bce643fe3a416732b84a7faaf8639e464235600..1f3a07e3f3bba8a601276b87960b12176156ac5a 100644 (file)
--- a/test/automated/map-tests.el
+++ b/test/automated/map-tests.el
@@ -103,22 +103,22 @@ Evaluate BODY for each created map.
   (let ((ht (make-hash-table)))
     (should (eq (map-delete ht 'a) ht))))
 
-;; (ert-deftest test-map-nested-elt ()
-;;   (let ((vec [a b [c d [e f]]]))
-;;     (should (eq (map-nested-elt vec '(2 2 0)) 'e)))
-;;   (let ((alist '((a . 1)
-;;                  (b . ((c . 2)
-;;                        (d . 3)
-;;                        (e . ((f . 4)
-;;                              (g . 5))))))))
-;;     (should (eq (map-nested-elt alist '(b e f))
-;;                 4)))
-;;   (let ((ht (make-hash-table)))
-;;     (setf (map-elt ht 'a) 1)
-;;     (setf (map-elt ht 'b) (make-hash-table))
-;;     (setf (map-elt (map-elt ht 'b) 'c) 2)
-;;     (should (eq (map-nested-elt ht '(b c))
-;;                 2))))
+(ert-deftest test-map-nested-elt ()
+  (let ((vec [a b [c d [e f]]]))
+    (should (eq (map-nested-elt vec '(2 2 0)) 'e)))
+  (let ((alist '((a . 1)
+                 (b . ((c . 2)
+                       (d . 3)
+                       (e . ((f . 4)
+                             (g . 5))))))))
+    (should (eq (map-nested-elt alist '(b e f))
+                4)))
+  (let ((ht (make-hash-table)))
+    (setf (map-elt ht 'a) 1)
+    (setf (map-elt ht 'b) (make-hash-table))
+    (setf (map-elt (map-elt ht 'b) 'c) 2)
+    (should (eq (map-nested-elt ht '(b c))
+                2))))
 
 (ert-deftest test-map-nested-elt-default ()
   (let ((vec [a b [c d]]))