hiro/lack
1
0
Fork 0
mirror of https://github.com/vale981/lack synced 2025-03-04 08:51:41 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add more tests of lack-middleware-static.

Browse source
This commit is contained in:
Eitaro Fukamachi 2015-03-22 21:50:38 +09:00
parent 7106525601
commit d4ef9abc2e
2 changed files with 39 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
t-lack-middleware-static.asd
View file

@ -8,7 +8,8 @@
:license "LLGPL"
:depends-on (:lack
:lack-test
:prove)
:prove
:alexandria)
:components ((:test-file "t/middleware/static"))
:defsystem-depends-on (:prove-asdf)

40
t/middleware/static.lisp
View file

@ -3,12 +3,14 @@
(:use :cl
:prove
:lack
:lack.test))
:lack.test)
(:import-from :alexandria
:starts-with-subseq))
(in-package :t.lack.middleware.static)
(plan 1)
(plan 3)
(subtest "static middleware"
(subtest ":path is string"
(let ((app
(builder
(:static :path "/public/"
@ -34,4 +36,36 @@
(is (getf headers :content-type) "text/plain")
(is body '("Happy Valentine!")))))
(subtest ":path is NIL"
(let ((app
(builder
(:static :path nil
:root (asdf:system-relative-pathname :lack #P"data/"))
(lambda (env)
(declare (ignore env))
`(200 (:content-type "text/plain") ("ok"))))))
(destructuring-bind (status headers body)
(funcall app (generate-env "/public/jellyfish.jpg"))
(is status 200)
(is (getf headers :content-type) "text/plain")
(is body '("ok")))))
(subtest ":path is function"
(let ((app
(builder
(:static :path (lambda (path-info)
(when (starts-with-subseq "/static/" path-info)
(subseq path-info #.(length "/static"))))
:root (asdf:system-relative-pathname :lack #P"data/"))
(lambda (env)
(declare (ignore env))
`(200 (:content-type "text/plain") ("ok"))))))
(destructuring-bind (status headers body)
(funcall app (generate-env "/static/jellyfish.jpg"))
(is status 200)
(is (getf headers :content-type) "image/jpeg")
(is body (asdf:system-relative-pathname :lack #P"data/jellyfish.jpg")))
(is (car (funcall app (generate-env "/static/not-found.png"))) 404)))
(finalize)