diff options
Diffstat (limited to 'tests/012')
| -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) |