Add getAttribute binding

Author: jonsterling

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`
 
@@ -168,6 +168,12 @@ clickEl :: forall e. Element -> Aff (selenium :: SELENIUM | e) Unit
 getCssValue :: forall e. Element -> String -> Aff (selenium :: SELENIUM | e) String
 ```
 
+#### `getAttribute`
+
+``` purescript
+getAttribute :: forall e. Element -> String -> Aff (selenium :: SELENIUM | e) String
+```
+
 #### `isDisplayed`
 
 ``` purescript
@@ -192,9 +198,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

@@ -148,6 +148,14 @@ exports.getCssValue = function(el) {
     };
 };
 
+exports.getAttribute = function(el) {
+    return function(str) {
+        return function(cb, eb) {
+            return el.getAttribute(str).then(cb).thenCatch(eb);
+        };
+    };
+};
+
 exports.isDisplayed = function(el) {
     return function(cb, eb) {
         return el.isDisplayed().then(function(is) {

src/Selenium.purs

@@ -21,6 +21,7 @@ module Selenium
        , sendKeysEl
        , clickEl
        , getCssValue
+       , getAttribute
        , getTitle
        , isDisplayed
        , isEnabled
@@ -110,6 +111,7 @@ foreign import executeStr :: forall e. Driver -> String -> Aff (selenium :: SELE
 foreign import sendKeysEl :: forall e. String -> Element -> Aff (selenium :: SELENIUM|e) Unit
 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 getAttribute :: 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