TestWebDriver.hs

{-# LANGUAGE OverloadedStrings #-}

module Main where

import Test.WebDriver

firefoxConfig :: WDConfig
firefoxConfig = defaultConfig

main :: IO ()
main = do
    runSession firefoxConfig $ do
        openPage "http://www.zalora.sg/"      
        
        searchInput <- findElem $ ById "search-input"
        sendKeys "Mens Faux Leather Strap Watch" searchInput                   
        submit searchInput
        
        firstOfWatches <- findElem $ ByClass "b-catalogList__itmLink"
        click firstOfWatches
        
        addToCartButton <- findElem $ ById "AddToCart"
        click addToCartButton
         
    putStrLn "Done!"