paku/lack-mw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix trailing-slash test

Browse source
This commit is contained in:
paku 2024-12-22 16:25:10 +09:00
parent f6d576bda3
commit 48f44c7a19
1 changed files with 6 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
tests/trailing-slash.lisp
View file

@ -34,13 +34,13 @@
(multiple-value-bind (body status headers) (multiple-value-bind (body status headers)
(request "/") (request "/")
(declare (ignore headers)) (declare (ignore headers))
(ok (not (null body))) (ok (string= body "ok"))
(ok (eql status 200))) (ok (eql status 200)))
(multiple-value-bind (body status headers) (multiple-value-bind (body status headers)
(request "/without/trailing/slash") (request "/without/trailing/slash")
(declare (ignore headers)) (declare (ignore headers))
(ok (not (null body))) (ok (string= body "ok"))
(ok (eql status 200))) (ok (eql status 200)))
(multiple-value-bind (body status headers) (multiple-value-bind (body status headers)
@ -62,20 +62,19 @@
(multiple-value-bind (body status headers) (multiple-value-bind (body status headers)
(request "/") (request "/")
(declare (ignore headers)) (declare (ignore headers))
(ok (string= body "ok"))
(ok (not (null body)))
(ok (eql status 200))) (ok (eql status 200)))
(multiple-value-bind (body status headers) (multiple-value-bind (body status headers)
(request "/something.file") (request "/something.file")
(declare (ignore headers)) (declare (ignore headers))
(ok (not (null body))) (ok (string= body "ok"))
(ok (eql status 200))) (ok (eql status 200)))
(multiple-value-bind (body status headers) (multiple-value-bind (body status headers)
(request "/with/trailing/slash/") (request "/with/trailing/slash/")
(declare (ignore headers)) (declare (ignore headers))
(ok (not (null body))) (ok (string= body "ok"))
(ok (eql status 200))) (ok (eql status 200)))
(multiple-value-bind (body status headers) (multiple-value-bind (body status headers)