diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2021-07-02 07:03:56 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2021-07-02 07:03:56 -0700 |
commit | a5a5a5ec30175f665a36fce9bc4abee1470ca274 (patch) | |
tree | 9b7590c1fcc32b370b5fd8c0db726c80f92c150e | |
parent | db03bc4a9fa34ebea017474e0760fef89de9d67f (diff) | |
download | txr-a5a5a5ec30175f665a36fce9bc4abee1470ca274.tar.gz txr-a5a5a5ec30175f665a36fce9bc4abee1470ca274.tar.bz2 txr-a5a5a5ec30175f665a36fce9bc4abee1470ca274.zip |
constantp: tests.
* tests/012/const.tl: New file.
-rw-r--r-- | tests/012/const.tl | 23 |
1 files changed, 23 insertions, 0 deletions
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) |