Test.QuickCheck.Monadic.WebDriver

Example

 import Test.QuickCheck
 import Test.QuickCheck.Monadic (run, pick, assert)
 import Test.WebDriver
 prop_Example = monadicWD allCaps $ 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`."