http-test-0.1.1: test.hs

module Main where

import Test.HTTP
import Data.List
import Control.Monad.Trans

main = httpTest $ do
  session "BayesHive landing page" "https://bayeshive.com" $ do
    landing <- get "/"
    assert "Correct blog link" $ 
           "href=\"https://bayeshive.com/blog\"" `isInfixOf` landing
    postForm "/auth/page/email/login" 
              [("email", "foo"), ("password", "bar")]
    return ()