module Handler.CommonSpec (spec) where

import TestImport

spec :: Spec
spec = withApp $ do
    describe "robots.txt" $ do
        it "gives a 200" $ do
            get $ WellKnownR RobotsTxt
            statusIs 200
        it "has correct User-agent" $ do
            get $ WellKnownR RobotsTxt
            bodyContains "User-agent: *"
    describe "favicon.ico" $ do
        it "gives a 200" $ do
            get $ WellKnownR FaviconIco
            statusIs 200