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 | 0672ab59746c7efb3e78860855352c79922d9bf3 (patch) | |
| tree | 9b7590c1fcc32b370b5fd8c0db726c80f92c150e | |
| parent | 12dd6ad4faf1b3f08c75b2f4e1195b391a69d6a6 (diff) | |
| download | txr-0672ab59746c7efb3e78860855352c79922d9bf3.tar.gz txr-0672ab59746c7efb3e78860855352c79922d9bf3.tar.bz2 txr-0672ab59746c7efb3e78860855352c79922d9bf3.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) |