Add tests for two more edge cases

2021-04-06 23:54:22 +02:00 · 2021-04-06 23:54:22 +02:00 · fe23edcb90
parent 7d6a988e88
commit fe23edcb90
1 changed files with 7 additions and 0 deletions
--- a/t/function.t
+++ b/t/function.t
@ -9,3 +9,10 @@
    (cons start (range (+ start 1) end))))

 (expect "range" (equal (range 1 10) '(1 2 3 4 5 6 7 8 9)))
+
+(let ((a 'top))
+  (defun test (a) a)
+  (expect "function parameters do not alter context through declaration"
+          (equal a 'top))
+  (expect "parameters shadow outer bindings"
+          (equal (test 'param) 'param)))