@@ -126,13 +126,13 @@ spec = do
126126
127127 context "301 redirect to add a trailing slash on directories if missing" $ do
128128 it "works at the root" $ fileServerApp $ do
129− req <- request (setRawPathInfo defRequest "a")
129+ req <- request (setRawPathInfo defRequest "/a")
130130 assertStatus 301 req
131− assertHeader "Location" "../a/" req
131+ assertHeader "Location" "/a/" req
132132
133133 let urlMapApp = flip runSession $ mapUrls $
134134 mount "subPath" (staticApp $ defaultFileServerSettings "test")
135135 it "works in conjunction with UrlMap at the root of the file server" $ urlMapApp $ do
136− req <- request (setRawPathInfo defRequest "subPath")
136+ req <- request (setRawPathInfo defRequest "/subPath")
137137 assertStatus 301 req
138− assertHeader "Location" "../subPath/" req
138+ assertHeader "Location" "/subPath/" req