From a5a5a5ec30175f665a36fce9bc4abee1470ca274 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Fri, 2 Jul 2021 07:03:56 -0700
Subject: constantp: tests.

* tests/012/const.tl: New file.
---
 tests/012/const.tl | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 tests/012/const.tl

diff --git a/tests/012/const.tl b/tests/012/const.tl
new file mode 100644
index 00000000..e0235e30
--- /dev/null
+++ b/tests/012/const.tl
@@ -0,0 +1,23 @@
+(load "../common")
+
+(mtest
+  (constantp nil) t
+  (constantp t) t
+  (constantp :key) t
+  (constantp 'a) nil)
+
+(mtest
+  (constantp ''a) t
+  (constantp '(+)) t
+  (constantp '(+ 2)) t
+  (constantp '(+ 2 2)) t)
+
+(mtest
+  (constantp '(+ a)) nil
+  (constantp '(+ (* 2 2) (* 3 3))) t
+  (constantp '(+ (* 2 2) (* 3 a))) nil)
+
+(mtest
+  (constantp '(list 1 2 3)) nil
+  (constantp '(symacrolet ((a 1)) (+ a))) t
+  (constantp '(let ((a 1)) (+ a))) nil)
-- 
cgit v1.2.3