webdriver-precore-0.3.0.2: test/DebugConfig.hs

module DebugConfig
  ( debugConfig,
  )
where

import Data.Text (Text)
import Config
  ( Config (..),
    DemoBrowser (..),
  )
import Const (Timeout, seconds)

_sec :: Timeout
_sec = seconds

debugConfig :: Config
debugConfig =
  --

  -- _chromeDebug
  -- _firefoxHeadlessLogging
  -- _firefoxDebug
  -- _firefoxSilent
  _chromeSilent
  -- _chromeHeadlessLogging
  -- _firefoxDebugNoPause 


_firefoxSilent :: Config
_firefoxSilent =
  MkConfig
    { browser = Firefox {headless = True, profilePath},
      logging = False,
      httpUrl = "127.0.0.1",
      httpPort = 4444,
      pauseMS = 0
    }

_firefoxHeadlessLogging :: Config
_firefoxHeadlessLogging =
  MkConfig
    { browser = Firefox {headless = True, profilePath},
      logging = True,
      httpUrl = "127.0.0.1",
      httpPort = 4444,
      pauseMS = 0
    }

_firefoxDebug :: Config
_firefoxDebug =
  MkConfig
    { browser = Firefox {headless = False, profilePath},
      logging = True,
      httpUrl = "127.0.0.1",
      httpPort = 4444,
      pauseMS = 1_000
    }

_firefoxDebugNoPause :: Config
_firefoxDebugNoPause =
  _firefoxDebug {pauseMS = 0}


_chromeSilent :: Config
_chromeSilent =
  MkConfig
    { browser = Chrome {headless = True},
      logging = False,
      httpUrl = "127.0.0.1",
      httpPort = 4444,
      pauseMS = 0
    }

_chromeHeadlessLogging :: Config
_chromeHeadlessLogging =
  MkConfig
    { browser = Chrome {headless = True},
      logging = True,
      httpUrl = "127.0.0.1",
      httpPort = 4444,
      pauseMS = 0
    }

_chromeDebug :: Config
_chromeDebug =
  MkConfig
    { browser = Chrome {headless = False},
      logging = True,
      httpUrl = "127.0.0.1",
      httpPort = 4444,
      pauseMS = 0
    }

profilePath :: Maybe Text
profilePath = Just "/home/john-walker/test-firefox-profile"