[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 78c3e14 2/2: * test/automated/map-tests.el (test-ma
From: |
Nicolas Petton |
Subject: |
[Emacs-diffs] master 78c3e14 2/2: * test/automated/map-tests.el (test-map-delete-return-value): Uncomment test. |
Date: |
Thu, 09 Jul 2015 18:12:06 +0000 |
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]]))