Test.QuickCheck.Monadic.WebDriver

Example usage:

 import Test.QuickCheck
 import Test.QuickCheck.Monadic (run, pick, assert)
 import Test.WebDriver
 prop_Example = monadicWD context $ do
     url <- pick $ oneof ("http://www.yesodweb.com", "http://snapframework.com/")
     run $ openPage url
     assert True
     runIO $ putStrLn $ "We've just evaluated a `Gen a` using `pick` and \
                        \a `WD ()` using `run`, then asserted a that a \
                        \property holds using `assert`."
  where context = SessionParams allCaps (return ())

Documentation

data Context

Constructors

ExistingSession WDSession

SessionParams Capabilities (WD ())

monadicWD :: Context -> PropertyM WD a -> Property

Patterned after monadicIO (and ioProperty).

runIO :: IO a -> PropertyM WD a

chromeOpts :: [String]

chrome' :: Browser

caps :: Browser -> Capabilities

capsChrome :: Capabilities

capsFirefox :: Capabilities

seshParams :: Browser -> Context

seshParamsChrome :: Context

seshParamsFirefox' :: Context