branch: externals/compat
commit 20321c7ea2eaf65213d536f85d9d8816dbf9a5dc
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Restore test
---
compat-tests.el | 30 +++++++++++++++---------------
1 file changed, 15 insertions(+), 15 deletions(-)
diff --git a/compat-tests.el b/compat-tests.el
index ff8c62d47c..8469f00b91 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -48,6 +48,21 @@
(should (equal '(1 2 3) (ensure-list '(1 2 3)))) ;; multiple element list
(should (equal '(1) (ensure-list 1)))) ;; atom
+(ert-deftest proper-list-p ()
+ (should (equal 0 (proper-list-p ()))) ;; empty list
+ (should (equal 1 (proper-list-p '(1)))) ;; single element
+ (should (equal 3 (proper-list-p '(1 2 3)))) ;; multiple elements
+ (should (equal nil (proper-list-p '(1 . 2)))) ;; cons
+ (should (equal nil (proper-list-p '(1 2 . 3)))) ;; dotted
+ (should (equal nil (let ((l (list 1 2 3))) ;; circular
+ (setf (nthcdr 3 l) l)
+ (proper-list-p l))))
+ (should (equal nil (proper-list-p 1))) ;; non-lists
+ (should (equal nil (proper-list-p "")))
+ (should (equal nil (proper-list-p "abc")))
+ (should (equal nil (proper-list-p [])))
+ (should (equal nil (proper-list-p [1 2 3]))))
+
(ert-deftest compat-always ()
(should (equal t (always))) ;; no arguments
(should (equal t (always 1))) ;; single argument
@@ -586,21 +601,6 @@
;; (ought 2 "abcあ" 3 4)
;; (ought 0 "a " 1 1))
-;; (compat-deftests proper-list-p
-;; (ought 0 ()) ;empty list
-;; (ought 1 '(1)) ;single element
-;; (ought 3 '(1 2 3)) ;multiple elements
-;; (ought nil '(1 . 2)) ;cons
-;; (ought nil '(1 2 . 3)) ;dotted
-;; (ought nil (let ((l (list 1 2 3))) ;circular
-;; (setf (nthcdr 3 l) l)
-;; l))
-;; (ought nil 1) ;non-lists
-;; (ought nil "")
-;; (ought nil "abc")
-;; (ought nil [])
-;; (ought nil [1 2 3]))
-
;; (compat-deftests flatten-tree
;; ;; Example from docstring:
;; (ought '(1 2 3 4 5 6 7) '(1 (2 . 3) nil (4 5 (6)) 7))
