mirror of
https://code.sup39.dev/repos/Wqawg
synced 2024-12-31 06:14:50 +09:00
18 lines
420 B
Haskell
18 lines
420 B
Haskell
|
module Handler.CommonSpec (spec) where
|
||
|
|
|
||
|
|
import TestImport
|
||
|
|
|
||
|
|
spec :: Spec
|
||
|
|
spec = withApp $ do
|
||
|
|
describe "robots.txt" $ do
|
||
|
|
it "gives a 200" $ do
|
||
|
|
get RobotsR
|
||
|
|
statusIs 200
|
||
|
|
it "has correct User-agent" $ do
|
||
|
|
get RobotsR
|
||
|
|
bodyContains "User-agent: *"
|
||
|
|
describe "favicon.ico" $ do
|
||
|
|
it "gives a 200" $ do
|
||
|
|
get FaviconR
|
||
|
|
statusIs 200
|