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

13
tests/trailing-slash.lisp
View file

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