@@ -133,8 +133,9 @@ main = hspecX $ do
133133 it "directory listing for index" $ fileServerApp $ do
134134 resp <- request (setRawPathInfo defRequest "a/")
135135 assertStatus 200 resp
136− assertBodyContains "<img src=\"../.hidden/haskell.png\" />" resp
137− assertBodyContains "<img src=\"../.hidden/folder.png\" alt=\"Folder\" />" resp
136+ -- note the unclosed img tags so both /> and > will pass
137+ assertBodyContains "<img src=\"../.hidden/haskell.png\"" resp
138+ assertBodyContains "<img src=\"../.hidden/folder.png\" alt=\"Folder\"" resp
138139 assertBodyContains "<a href=\"b\">b</a>" resp
139140
140141 it "200 when invalid if-modified-since header" $ fileServerApp $ do