mirror of
https://github.com/vale981/lack
synced 2025-03-05 17:31:39 -05:00
50 lines
1.3 KiB
Common Lisp
50 lines
1.3 KiB
Common Lisp
(in-package :cl-user)
|
|
(defpackage t.lack.builder
|
|
(:use :cl
|
|
:prove
|
|
:lack.builder))
|
|
(in-package :t.lack.builder)
|
|
|
|
(plan 8)
|
|
|
|
(defvar *app*
|
|
(lambda (env)
|
|
(declare (ignore env))
|
|
'(200 (:content-type "text/html") ("ok from app"))))
|
|
|
|
(is-type (builder (lambda (app)
|
|
(lambda (env)
|
|
(funcall app env)))
|
|
*app*)
|
|
'function
|
|
"builder")
|
|
|
|
(is-type (builder
|
|
(if t
|
|
(lambda (app)
|
|
(lambda (env)
|
|
(funcall app env)))
|
|
nil)
|
|
*app*)
|
|
'function
|
|
"Can embed CL code")
|
|
|
|
(is-type (builder nil (if t nil nil) nil *app*)
|
|
'function
|
|
"NIL is ignored")
|
|
|
|
(let ((mount-app (builder
|
|
(:mount "/admin" (lambda (env) `(200 () ("admin" ,(getf env :path-info)))))
|
|
*app*)))
|
|
(is (nth 2 (funcall mount-app '(:path-info "/login")))
|
|
'("ok from app"))
|
|
(is (nth 2 (funcall mount-app '(:path-info "/admin/login")))
|
|
'("admin" "/login"))
|
|
(is (nth 2 (funcall mount-app '(:path-info "/admin")))
|
|
'("admin" "/"))
|
|
(is (nth 2 (funcall mount-app '(:path-info "/admin/")))
|
|
'("admin" "/"))
|
|
(is (nth 2 (funcall mount-app '(:path-info "/administrators")))
|
|
'("ok from app")))
|
|
|
|
(finalize)
|