diff options
| author | Nicolas Petton <nicolas@petton.fr> | 2015-11-11 18:18:32 +0100 |
|---|---|---|
| committer | Nicolas Petton <nicolas@petton.fr> | 2015-11-11 18:20:03 +0100 |
| commit | 51d840a8a13105172211bb25d36f594aff377d8e (patch) | |
| tree | 6097c4aef0d11639fb4124e4ec0a17960ca18b6d /test/automated | |
| parent | 23036bac7d470397f364d02eb992d701f1ebab4b (diff) | |
| download | emacs-51d840a8a13105172211bb25d36f594aff377d8e.tar.gz | |
Rename seq-p and map-p to seqp and mapp
* lisp/emacs-lisp/seq.el (seqp): New name.
* lisp/emacs-lisp/map.el (mapp): New name.
* doc/lispref/sequences.texi: Update the documentation for seqp.
* test/automated/map-tests.el: Update the tests for mapp.
Diffstat (limited to 'test/automated')
| -rw-r--r-- | test/automated/map-tests.el | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/test/automated/map-tests.el b/test/automated/map-tests.el index 1a759b523a5..2a7fcc39d41 100644 --- a/test/automated/map-tests.el +++ b/test/automated/map-tests.el @@ -126,16 +126,16 @@ Evaluate BODY for each created map. (should (null (map-nested-elt vec '(2 1 1)))) (should (= 4 (map-nested-elt vec '(2 1 1) 4))))) -(ert-deftest test-map-p () - (should (map-p nil)) - (should (map-p '((a . b) (c . d)))) - (should (map-p '(a b c d))) - (should (map-p [])) - (should (map-p [1 2 3])) - (should (map-p (make-hash-table))) - (should (map-p "hello")) - (should (not (map-p 1))) - (should (not (map-p 'hello)))) +(ert-deftest test-mapp () + (should (mapp nil)) + (should (mapp '((a . b) (c . d)))) + (should (mapp '(a b c d))) + (should (mapp [])) + (should (mapp [1 2 3])) + (should (mapp (make-hash-table))) + (should (mapp "hello")) + (should (not (mapp 1))) + (should (not (mapp 'hello)))) (ert-deftest test-map-keys () (with-maps-do map |