Merge pull request #7 from jonsterling/ready/capabilities

Add preliminary support for setting custom capabilities

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`
 
@@ -198,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`
 
 

docs/Selenium/Builder.md

@@ -39,6 +39,12 @@ usingServer :: String -> Build Unit
 scrollBehaviour :: ScrollBehaviour -> Build Unit
 ```
 
+#### `withCapabilities`
+
+``` purescript
+withCapabilities :: Capabilities -> Build Unit
+```
+
 #### `build`
 
 ``` purescript

src/Selenium/Builder.js

@@ -37,3 +37,7 @@ exports._usingServer = function(b, s) {
 exports._setScrollBehaviour = function(b, bh) {
     return b.setScrollBehaviour(bh);
 };
+
+exports._withCapabilities = function(b, c) {
+    return b.withCapabilities(c);
+};

src/Selenium/Builder.purs

@@ -4,6 +4,7 @@ module Selenium.Builder
        , forBrowser
        , usingServer
        , scrollBehaviour
+       , withCapabilities
        , Build()
        ) where
 
@@ -68,10 +69,13 @@ usingServer = rule <<< UsingServer
 scrollBehaviour :: ScrollBehaviour -> Build Unit
 scrollBehaviour = rule <<< SetScrollBehaviour
 
-build :: forall e. Build Unit -> Aff (selenium :: SELENIUM|e) Driver 
-build commands = do 
+withCapabilities :: Capabilities -> Build Unit
+withCapabilities = rule <<< WithCapabilities
+
+build :: forall e. Build Unit -> Aff (selenium :: SELENIUM|e) Driver
+build commands = do
   builder <- _newBuilder
-  _build $ interpret (execWriter $ unBuild commands) builder 
+  _build $ interpret (execWriter $ unBuild commands) builder
 
 
 interpret :: List Command -> Builder -> Builder
@@ -82,13 +86,15 @@ interpret commands b = foldl foldFn b commands
   foldFn b (ForBrowser br v p) = runFn4 _forBrowser b br v p
   foldFn b (UsingServer s) = runFn2 _usingServer b s
   foldFn b (SetScrollBehaviour bh) = runFn2 _setScrollBehaviour b bh
+  foldFn b (WithCapabilities c) = runFn2 _withCapabilities b c
   foldFn b _ = b
 
 
-foreign import _newBuilder :: forall e. Aff (selenium :: SELENIUM|e) Builder 
-foreign import _build :: forall e. Builder -> Aff (selenium :: SELENIUM|e) Driver 
+foreign import _newBuilder :: forall e. Aff (selenium :: SELENIUM|e) Builder
+foreign import _build :: forall e. Builder -> Aff (selenium :: SELENIUM|e) Driver
 
 foreign import _browser :: Fn2 Builder String Builder
 foreign import _forBrowser :: Fn4 Builder String String String Builder
 foreign import _usingServer :: Fn2 Builder String Builder
 foreign import _setScrollBehaviour :: Fn2 Builder ScrollBehaviour Builder
+foreign import _withCapabilities :: Fn2 Builder Capabilities Builder