From fe23edcb90ca1da57a39250f5d1d33bc5a702dab Mon Sep 17 00:00:00 2001 From: MadMaurice Date: Tue, 6 Apr 2021 23:54:22 +0200 Subject: [PATCH] Add tests for two more edge cases --- t/function.t | 7 +++++++ 1 file changed, 7 insertions(+) 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)))