Merge pull request #2 from jonsterling/ready/isEnabled

Add isEnabled binding

Author: jdegoes

docs/Selenium.md

@@ -14,7 +14,7 @@ Go to url
 wait :: forall e. Aff (selenium :: SELENIUM | e) Boolean -> Int -> Driver -> Aff (selenium :: SELENIUM | e) Unit
 ```
 
-Wait until first argument returns 'true'. If it returns false an error will be raised 
+Wait until first argument returns 'true'. If it returns false an error will be raised
 
 #### `quit`
 
@@ -60,10 +60,10 @@ byXPath :: forall e. String -> Aff (selenium :: SELENIUM | e) Locator
 affLocator :: forall e. (Element -> Aff (selenium :: SELENIUM | e) Element) -> Aff (selenium :: SELENIUM | e) Locator
 ```
 
-Build locator from asynchronous function returning element. 
+Build locator from asynchronous function returning element.
 I.e. this locator will find first visible element with `.common-element` class
-```purescript 
-affLocator \el -> do 
+```purescript
+affLocator \el -> do
   commonElements <- byCss ".common-element" >>= findElements el
   flagedElements <- traverse (\el -> Tuple el <$> isVisible el) commonElements
   maybe err pure $ foldl foldFn Nothing flagedElements
@@ -96,7 +96,7 @@ Finds elements by locator from `document`
 findChild :: forall e. Element -> Locator -> Aff (selenium :: SELENIUM | e) (Maybe Element)
 ```
 
-Same as `findElement` but starts searching from custom element 
+Same as `findElement` but starts searching from custom element
 
 #### `findChildren`
 
@@ -174,6 +174,12 @@ getCssValue :: forall e. Element -> String -> Aff (selenium :: SELENIUM | e) Str
 isDisplayed :: forall e. Element -> Aff (selenium :: SELENIUM | e) Boolean
 ```
 
+#### `isEnabled`
+
+``` purescript
+isEnabled :: forall e. Element -> Aff (selenium :: SELENIUM | e) Boolean
+```
+
 #### `getInnerHtml`
 
 ``` purescript
@@ -186,9 +192,9 @@ getInnerHtml :: forall e. Element -> Aff (selenium :: SELENIUM | e) String
 clearEl :: forall e. Element -> Aff (selenium :: SELENIUM | e) Unit
 ```
 
-Clear `value` of element, if it has no value will do nothing. 
-If `value` is weakly referenced by `virtual-dom` (`purescript-halogen`) 
-will not work -- to clear such inputs one should use direct signal from 
+Clear `value` of element, if it has no value will do nothing.
+If `value` is weakly referenced by `virtual-dom` (`purescript-halogen`)
+will not work -- to clear such inputs one should use direct signal from
 `Selenium.ActionSequence`
 
 

src/Selenium.js

@@ -156,6 +156,14 @@ exports.isDisplayed = function(el) {
     };
 };
 
+exports.isEnabled = function(el) {
+    return function(cb, eb) {
+        return el.isEnabled().then(function(is) {
+            return cb(is);
+        }).thenCatch(eb);
+    };
+};
+
 exports.getCurrentUrl = function(driver) {
     return function(cb, eb) {
         return driver.getCurrentUrl().then(cb).thenCatch(eb);

src/Selenium.purs

@@ -23,6 +23,7 @@ module Selenium
        , getCssValue
        , getTitle
        , isDisplayed
+       , isEnabled
        , getInnerHtml
        , clearEl
        ) where
@@ -110,6 +111,7 @@ foreign import sendKeysEl :: forall e. String -> Element -> Aff (selenium :: SEL
 foreign import clickEl :: forall e. Element -> Aff (selenium :: SELENIUM|e) Unit
 foreign import getCssValue :: forall e. Element -> String -> Aff (selenium :: SELENIUM|e) String
 foreign import isDisplayed :: forall e. Element -> Aff (selenium :: SELENIUM|e) Boolean
+foreign import isEnabled :: forall e. Element -> Aff (selenium :: SELENIUM|e) Boolean
 foreign import getInnerHtml :: forall e. Element -> Aff (selenium :: SELENIUM|e) String
 -- | Clear `value` of element, if it has no value will do nothing. 
 -- | If `value` is weakly referenced by `virtual-dom` (`purescript-halogen`)