1 files changed, 5 insertions, 2 deletions
diff --git a/tests.lisp b/tests.lisp
index b0f8ed6..d405c51 100644
--- a/tests.lisp
+++ b/tests.lisp
@@ -45,9 +45,12 @@
   ()
   (:tests
    ((ensure (functionp (funcall (fn (fn () _))))))
-   ((ensure-error (funcall (efn (efn () _)))))
+   ((ensure (functionp (funcall (efn (efn () _))))))
    ((ensure (functionp (funcall (fn1 (fn1 _))))))
-   ((ensure-error (funcall (efn1 (efn1 _)))))))
+   ((ensure (functionp (funcall (efn1 (efn1 _))))))
+   ((ensure-same (funcall (fn1 _3) 1 2 3 4 5)
+                  4))
+   ((ensure-error (funcall (efn1 _3) 1 2 3 4 5)))))
 
 
 (deftestsuite mulk-lambda-fn* (mulk-lambda)