[Emacs-diffs] master 78c3e14 2/2: * test/automated/map-tests.el (test-map-delete-return-value): Uncomment test.

[Nicolas Petton]

branch: master
commit 78c3e14aafb6125ea584c78e13df41a35f18c51e
Author: Nicolas Petton <address@hidden>
Commit: Nicolas Petton <address@hidden>

    * test/automated/map-tests.el (test-map-delete-return-value): Uncomment 
test.
---
 test/automated/map-tests.el |   32 ++++++++++++++++----------------
 1 files changed, 16 insertions(+), 16 deletions(-)

diff --git a/test/automated/map-tests.el b/test/automated/map-tests.el
index 2bce643..1f3a07e 100644
--- 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]]))