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