PageStructureTest.hs

{-# LANGUAGE OverloadedStrings #-}
module Main where

import           Test.Hspec.WebDriver
import qualified Data.Text              as T

checkCorrectnessOf :: Element -> WD ()
checkCorrectnessOf email = do
    emailText <- getText email
    email `shouldBeTag` "a"
    email `shouldHaveAttr` ("href", "mailto:" `T.append` emailText)

main :: IO ()
main = hspec $
    describe "zalora.sg tests" $
        session "check contact page" $ using Firefox $
            it "checks existence and correctness of emails" $ runWD $ do
                openPage "http://www.zalora.sg/contact/"
                allEmails <- findElems $ ByPartialLinkText "sg.zalora.com"
                _ <- mapM checkCorrectnessOf allEmails
                return ()
         -- it "something else..."