1 files changed, 14 insertions, 0 deletions

diff --git a/src/lisp/test.lisp b/src/lisp/test.lisp
index a167f28..5eb1aaa 100644
--- a/src/lisp/test.lisp
+++ b/src/lisp/test.lisp
@@ -17,3 +17,17 @@
 (assert-eq
   ((lambda (x) x) 2)
   2)
+
+(define x 2)
+(define y 5)
+(set! x 3)
+(assert-eq x 3)
+
+(define (square-x x)
+  (let [(y x)]
+    (begin
+      (set! y (* x x))
+      y)))
+
+(assert-eq (square-x 2) 4)
+(assert-eq y 5)