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

Add default headers to ENV generate-env returns.

Browse source
This commit is contained in:
Eitaro Fukamachi 2015-03-24 15:41:25 +09:00
parent 07fb0fc836
commit d6815bb8ff
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/test.lisp
View file

@ -15,6 +15,8 @@
(in-package :lack.test)
(defun generate-env (uri &key (method :get) content headers cookies)
;; default headers
(setf headers (append '(("host" . "localhost") ("accept" . "*/*")) headers))
(when content
(let ((content-type (or (cdr (assoc "content-type" headers :test #'string-equal))
(if (find-if #'pathnamep content :key #'cdr)