procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Nicolas Petton 2015-07-09 19:49:24 +02:00
parent 5509e2f93e
commit 78c3e14aaf
1 changed files with 16 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
test/automated/map-tests.el
View file

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