diff options
Diffstat (limited to 'compat-tests.el')
| -rw-r--r-- | compat-tests.el | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/compat-tests.el b/compat-tests.el index 0ad9b42..e471efb 100644 --- a/compat-tests.el +++ b/compat-tests.el @@ -1410,10 +1410,18 @@ (should-error (length< 3 nil) :type 'wrong-type-argument)) (ert-deftest compat-ensure-list () - (should-not (ensure-list nil)) ;; empty list - (should-equal '(1) (ensure-list '(1))) ;; single element list - (should-equal '(1 2 3) (ensure-list '(1 2 3))) ;; multiple element list - (should-equal '(1) (ensure-list 1))) ;; atom + (should-not (ensure-list nil)) ;; empty list + (should-equal '(1) (ensure-list '(1))) ;; single element list + (should-equal '(1 2 3) (ensure-list '(1 2 3))) ;; multiple element list + (should-equal '(1) (ensure-list 1)) ;; atom + (should-equal '(1 . 2) (ensure-list '(1 . 2)))) ;; cons + +(ert-deftest compat-ensure-proper-list () + (should-not (ensure-list nil)) ;; empty list + (should-equal '(1) (ensure-proper-list '(1))) ;; single element list + (should-equal '(1 2 3) (ensure-proper-list '(1 2 3))) ;; multiple element list + (should-equal '(1) (ensure-proper-list 1)) ;; atom + (should-equal '((1 . 2)) (ensure-proper-list '(1 . 2)))) ;; cons (ert-deftest compat-proper-list-p () (should-equal 0 (proper-list-p ())) ;; empty list |