From 735cb1eee6773425bf6de08fbcd76643e575ed9f Mon Sep 17 00:00:00 2001 From: Eitaro Fukamachi Date: Tue, 24 Mar 2015 16:08:28 +0900 Subject: [PATCH] Add a test for inline middlewares in builder. --- t/builder.lisp | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/t/builder.lisp b/t/builder.lisp index 8f1d1bd..b067f17 100644 --- a/t/builder.lisp +++ b/t/builder.lisp @@ -19,6 +19,14 @@ 'function "builder") +(is-type (builder + (lambda (app) + (lambda (env) + (funcall app env))) + *app*) + 'function + "Inline middleware") + (is-type (builder (if t (lambda (app)