diff --git a/t/function.t b/t/function.t
index 2e0fc06..9786328 100644
--- 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)))