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

Allow 'content' of types other than alist in lack.test:generate-env.

Browse source
This commit is contained in:
Eitaro Fukamachi 2018-09-19 22:53:39 +09:00
parent 17756b63fd
commit 4fac568329
1 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/test.lisp
View file

@ -50,9 +50,15 @@
(format s "~A=~A" (caar cookies) (cdar cookies)) (format s "~A=~A" (caar cookies) (cdar cookies))
(loop for (k . v) in (cdr cookies) (loop for (k . v) in (cdr cookies)
do (format s "; ~A=~A" k v)))))))) do (format s "; ~A=~A" k v))))))))
(when content (setf content
(setf content (flex:string-to-octets (etypecase content
(quri:url-encode-params content)))) (cons (flex:string-to-octets
(quri:url-encode-params content)
:external-format :utf-8))
(string (flex:string-to-octets content
:external-format :utf-8))
(array content)
(null nil)))
(list :request-method method (list :request-method method
;; Seems that all Clack handlers put into this field ;; Seems that all Clack handlers put into this field
;; only pathname with GET parameters ;; only pathname with GET parameters