Add tests for DEFUN!

thephoeron · Aug 24, 2015 · 598307c · 598307c
1 parent f321d95
commit 598307c
Showing 1 changed file with 13 additions and 1 deletion.
diff --git a/t/let-over-lambda.lisp b/t/let-over-lambda.lisp
@@ -11,7 +11,19 @@
 
 ;; NOTE: To run this test file, execute `(asdf:test-system :let-over-lambda)' in your Lisp.
 
-(plan 7)
+(plan 8)
+
+(defun! fn! ()
+  `(let ((,g!test 123))
+     ,g!test))
+
+(defmacro fn-macro ()
+  (fn!))
+
+(deftest defun!-test
+  (is-expand (fn-macro)
+             (LET (($TEST 123))
+               $TEST)))
 
 (defparameter flatten-list `(D (E (F ,'(G)))))