diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/automated/map-tests.el | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/test/automated/map-tests.el b/test/automated/map-tests.el index 402fead88f7..abda03d9d04 100644 --- a/test/automated/map-tests.el +++ b/test/automated/map-tests.el | |||
| @@ -40,11 +40,11 @@ Evaluate BODY for each created map. | |||
| 40 | (let ((alist (make-symbol "alist")) | 40 | (let ((alist (make-symbol "alist")) |
| 41 | (vec (make-symbol "vec")) | 41 | (vec (make-symbol "vec")) |
| 42 | (ht (make-symbol "ht"))) | 42 | (ht (make-symbol "ht"))) |
| 43 | `(let ((,alist (list (cons 0 3) | 43 | `(let ((,alist '((0 . 3) |
| 44 | (cons 1 4) | 44 | (1 . 4) |
| 45 | (cons 2 5))) | 45 | (2 . 5))) |
| 46 | (,vec (make-vector 3 nil)) | 46 | (,vec (make-vector 3 nil)) |
| 47 | (,ht (make-hash-table))) | 47 | (,ht (make-hash-table))) |
| 48 | (aset ,vec 0 '3) | 48 | (aset ,vec 0 '3) |
| 49 | (aset ,vec 1 '4) | 49 | (aset ,vec 1 '4) |
| 50 | (aset ,vec 2 '5) | 50 | (aset ,vec 2 '5) |
| @@ -87,13 +87,13 @@ Evaluate BODY for each created map. | |||
| 87 | (let ((vec [3 4 5])) | 87 | (let ((vec [3 4 5])) |
| 88 | (should-error (map-put vec 3 6)))) | 88 | (should-error (map-put vec 3 6)))) |
| 89 | 89 | ||
| 90 | ;; (ert-deftest test-map-put-literal () | 90 | (ert-deftest test-map-put-literal () |
| 91 | ;; (should (= (map-elt (map-put [1 2 3] 1 4) 1) | 91 | (should (= (map-elt (map-put [1 2 3] 1 4) 1) |
| 92 | ;; 4)) | 92 | 4)) |
| 93 | ;; (should (= (map-elt (map-put (make-hash-table) 'a 2) 'a) | 93 | (should (= (map-elt (map-put (make-hash-table) 'a 2) 'a) |
| 94 | ;; 2)) | 94 | 2)) |
| 95 | ;; (should-error (map-put '((a . 1)) 'b 2)) | 95 | (should-error (map-put '((a . 1)) 'b 2)) |
| 96 | ;; (should-error (map-put '() 'a 1))) | 96 | (should-error (map-put '() 'a 1))) |
| 97 | 97 | ||
| 98 | (ert-deftest test-map-put-return-value () | 98 | (ert-deftest test-map-put-return-value () |
| 99 | (let ((ht (make-hash-table))) | 99 | (let ((ht (make-hash-table))) |