[elpa] externals/compat 20321c7ea2 10/14: Restore test

[ELPA Syncer]

branch: externals/compat
commit 20321c7ea2eaf65213d536f85d9d8816dbf9a5dc
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@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))