Merge pull request #27 from beckyconning/ready/looseExact

Added looseExact function

Author: cryogenian

docs/Selenium.md

@@ -73,6 +73,12 @@ affLocator \el -> do
   foldFn a _ = a
 ```
 
+#### `showLocator`
+
+``` purescript
+showLocator :: Locator -> String
+```
+
 #### `findExact`
 
 ``` purescript
@@ -94,6 +100,14 @@ findElement :: forall e. Driver -> Locator -> Aff (selenium :: SELENIUM | e) (Ma
 Tries to find an element starting from `document` will return `Nothing` if there
 is no element can be found by locator
 
+#### `loseElement`
+
+``` purescript
+loseElement :: forall e. Driver -> Locator -> Aff (selenium :: SELENIUM | e) Unit
+```
+
+Tries to find element and throws an error if it succeeds.
+
 #### `findElements`
 
 ``` purescript

docs/Selenium/Monad.md

@@ -344,6 +344,14 @@ findExact :: forall e o. Locator -> Selenium e o Element
 
 Tries to find element, if has no success throws an error
 
+#### `loseElement`
+
+``` purescript
+loseElement :: forall e o. Locator -> Selenium e o Unit
+```
+
+Tries to find element and throws an error if it succeeds.
+
 #### `childExact`
 
 ``` purescript

src/Selenium.js

@@ -132,6 +132,10 @@ function _exact(driver) {
     };
 }
 
+exports.showLocator = function(locator) {
+  return locator.toString();
+}
+
 exports.findExact = _exact;
 exports.childExact = _exact;
 

src/Selenium.purs

@@ -9,10 +9,12 @@ module Selenium
        , byXPath
        , affLocator
        , findElement
+       , loseElement
        , findElements
        , findChild
        , findChildren
        , findExact
+       , showLocator
        , childExact
        , navigateBack
        , navigateForward
@@ -46,9 +48,12 @@ module Selenium
 
 import Prelude
 import Control.Monad.Eff (Eff())
+import Control.Monad.Eff.Exception (error)
+import Control.Monad.Error.Class (throwError)
 import Data.Maybe (Maybe())
+import Data.Either (either)
 import Control.Monad.Eff.Class (liftEff)
-import Control.Monad.Aff (Aff())
+import Control.Monad.Aff (Aff(), attempt)
 import Selenium.Types
 import Data.Unfoldable (Unfoldable, unfoldr)
 import Data.Foreign (Foreign())
@@ -88,6 +93,7 @@ foreign import byXPath :: forall e. String -> Aff (selenium :: SELENIUM|e) Locat
 -- | ```
 foreign import affLocator :: forall e. (Element -> Aff (selenium :: SELENIUM|e) Element) -> Aff (selenium :: SELENIUM|e) Locator
 
+foreign import showLocator :: Locator -> String
 
 foreign import _findElement :: forall e a. Maybe a -> (a -> Maybe a) ->
                                Driver -> Locator -> Aff (selenium :: SELENIUM|e) (Maybe Element)
@@ -103,6 +109,14 @@ foreign import childExact :: forall e. Element -> Locator -> Aff (selenium :: SE
 findElement :: forall e. Driver -> Locator -> Aff (selenium :: SELENIUM|e) (Maybe Element)
 findElement = _findElement Nothing Just
 
+-- | Tries to find element and throws an error if it succeeds.
+loseElement :: forall e. Driver -> Locator -> Aff (selenium :: SELENIUM|e) Unit
+loseElement driver locator = do
+  result <- attempt $ findExact driver locator
+  either (const $ pure unit) (const $ throwError $ error failMessage) result
+    where
+    failMessage = "Found element with locator: " ++ showLocator locator
+
 -- | Finds elements by locator from `document`
 findElements :: forall e f. (Unfoldable f) => Driver -> Locator -> Aff (selenium :: SELENIUM|e) (f Element)
 findElements driver locator =

src/Selenium/Monad.purs

@@ -10,6 +10,7 @@ import Data.Either (Either())
 import Data.Maybe (Maybe())
 import Data.Foreign (Foreign())
 import Data.Maybe.Unsafe (fromJust)
+import Data.Either (either)
 import Data.List
 import DOM
 import Selenium.Types
@@ -218,6 +219,10 @@ saveScreenshot name = getDriver >>= S.saveScreenshot name >>> lift
 findExact :: forall e o. Locator -> Selenium e o Element
 findExact loc = getDriver >>= flip S.findExact loc >>> lift
 
+-- | Tries to find element and throws an error if it succeeds.
+loseElement :: forall e o. Locator -> Selenium e o Unit
+loseElement loc = getDriver >>= flip S.loseElement loc >>> lift
+
 -- | Tries to find child, if has no success throws an error
 childExact :: forall e o. Element -> Locator -> Selenium e o Element
 childExact el loc = lift $ S.childExact el loc