web/test/Handler/CommonSpec.hs

   1 module Handler.CommonSpec (spec) where
   2
   3 import TestImport
   4
   5 spec :: Spec
   6 spec = withApp $ do
   7     describe "robots.txt" $ do
   8         it "gives a 200" $ do
   9             get RobotsR
  10             statusIs 200
  11         it "has correct User-agent" $ do
  12             get RobotsR
  13             bodyContains "User-agent: *"
  14     describe "favicon.ico" $ do
  15         it "gives a 200" $ do
  16             get FaviconR
  17             statusIs 200