quickcheck-webdriver 0.1.0.4 → 0.1.0.6

raw patch · 2 files changed

+18/−15 lines, 2 filesPVP: minor bump suggested

API additions: PVP suggests at least a minor version bump

API changes (from Hackage documentation)

Files

• Test/QuickCheck/Monadic/WebDriver.hs +17/−14
• quickcheck-webdriver.cabal +1/−1

@@ -5,8 +5,6 @@ {-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE OverloadedStrings   #-} -- -- | -- Module:      Test.QuickCheck.Monadic.WebDriver -- Copyright:   (c) 2014 Christian Brink@@ -14,18 +12,17 @@ -- Maintainer:  Christian Brink --  -- 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 ())+-- prop_Example = monadicWD context $ do+--     url :: String <- pick $ elements ["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 ())  module Test.QuickCheck.Monadic.WebDriver where @@ -55,7 +52,7 @@  chrome' = chrome { chromeOptions = chromeOpts } -caps browser = allCaps {browser=browser} +caps browser = allCaps { browser = browser }   capsChrome = caps chrome' capsFirefox = caps firefox@@ -65,5 +62,11 @@ seshParamsChrome   = seshParams chrome' seshParamsFirefox' = seshParams firefox --- $example---+prop_Example = monadicWD context $ do+    url :: String <- pick $ elements ["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 ())

@@ -2,7 +2,7 @@ --  documentation, see http://haskell.org/cabal/users-guide/  name:                quickcheck-webdriver-version:             0.1.0.4+version:             0.1.0.6 synopsis:            Utilities for using WebDriver with QuickCheck -- description:          license:             MIT