From 48f44c7a191c3e73e98ff5f11fe6b02a7a69554b Mon Sep 17 00:00:00 2001
From: paku <paku@skyizwhite.dev>
Date: Sun, 22 Dec 2024 16:25:10 +0900
Subject: [PATCH] Fix trailing-slash test

---
 tests/trailing-slash.lisp | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/tests/trailing-slash.lisp b/tests/trailing-slash.lisp
index bcd572a..a10a787 100644
--- a/tests/trailing-slash.lisp
+++ b/tests/trailing-slash.lisp
@@ -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)