diff options
| author | Nicolas Petton | 2015-04-24 19:06:27 +0200 |
|---|---|---|
| committer | Nicolas Petton | 2015-04-24 19:10:45 +0200 |
| commit | f37e265ea992f5799f1bf30a03509444c976df1d (patch) | |
| tree | 18946d61e195148201b9aa18e6e6550a6bd8dd53 /test | |
| parent | 89baf163324c6820ca17e91cda9dc8b162a59eab (diff) | |
| download | emacs-f37e265ea992f5799f1bf30a03509444c976df1d.tar.gz emacs-f37e265ea992f5799f1bf30a03509444c976df1d.zip | |
Minor improvement in map-elt.
* lisp/emacs-lisp/map.el (map-elt): Do not use `ignore-errors' when
doing a lookup in arrays, but check the boundaries of the array
instead.
* test/automated/map-tests.el: Adds a test for `map-elt' with arrays
and a negative integer as key.
Diffstat (limited to 'test')
| -rw-r--r-- | test/automated/map-tests.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/test/automated/map-tests.el b/test/automated/map-tests.el index 9a0d99e04de..f41cd70c4c5 100644 --- a/test/automated/map-tests.el +++ b/test/automated/map-tests.el | |||
| @@ -59,6 +59,7 @@ Evaluate BODY for each created map. | |||
| 59 | (assert (= 3 (map-elt map 0))) | 59 | (assert (= 3 (map-elt map 0))) |
| 60 | (assert (= 4 (map-elt map 1))) | 60 | (assert (= 4 (map-elt map 1))) |
| 61 | (assert (= 5 (map-elt map 2))) | 61 | (assert (= 5 (map-elt map 2))) |
| 62 | (assert (null (map-elt map -1))) | ||
| 62 | (assert (null (map-elt map 4))))) | 63 | (assert (null (map-elt map 4))))) |
| 63 | 64 | ||
| 64 | (ert-deftest test-map-elt-default () | 65 | (ert-deftest test-map-elt-default () |