(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]]))