selenium-server (empty) → 0.1.0.0

raw patch · 7 files changed

+198/−0 lines, 7 filesdep +basedep +conduitdep +directorysetup-changed

Dependencies added: base, conduit, directory, filepath, hspec, http-conduit, http-conduit-downloader, network, process, random, regex-tdfa, selenium-server, text, utf8-string, webdriver

Files

• LICENSE +21/−0
• Setup.hs +2/−0
• selenium-server.cabal +37/−0
• src/Test/WebDriver/Server.hs +59/−0
• src/Test/WebDriver/Server/Download.hs +43/−0
• src/Test/WebDriver/Server/Poll.hs +16/−0
• tests/main.hs +20/−0

@@ -0,0 +1,21 @@+The MIT License (MIT)++Copyright (c) 2013 Joel Taylor++Permission is hereby granted, free of charge, to any person obtaining a copy+of this software and associated documentation files (the "Software"), to deal+in the Software without restriction, including without limitation the rights+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell+copies of the Software, and to permit persons to whom the Software is+furnished to do so, subject to the following conditions:++The above copyright notice and this permission notice shall be included in+all copies or substantial portions of the Software.++THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN+THE SOFTWARE.

@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain

@@ -0,0 +1,37 @@+name:                selenium-server+version:             0.1.0.0+synopsis:            Run the selenium standalone server for usage with webdriver+description:         Run the selenium standalone server for usage with webdriver+homepage:            https://github.com/joelteon/selenium-server.git+license:             MIT+license-file:        LICENSE+author:              Joel Taylor+maintainer:          me@joelt.io+category:            Testing+build-type:          Simple+cabal-version:       >=1.10++library+  exposed-modules:     Test.WebDriver.Server+  other-modules:       Test.WebDriver.Server.Download+                       Test.WebDriver.Server.Poll+  build-depends:       base >=4.6 && <4.7+                     , conduit+                     , directory+                     , filepath+                     , http-conduit+                     , http-conduit-downloader+                     , network+                     , process+                     , random+                     , regex-tdfa+                     , utf8-string+  hs-source-dirs:      src+  default-language:    Haskell2010++test-suite test+  type:                exitcode-stdio-1.0+  hs-source-dirs:      tests+  main-is:             main.hs+  build-depends:       base, hspec, selenium-server, text, webdriver >= 0.5.3.2+  default-language:    Haskell2010

@@ -0,0 +1,59 @@+{-# LANGUAGE CPP #-}++module Test.WebDriver.Server (+    -- *** Running the server+    withServer,+    defaultSettings,+    -- *** Configuring the server+    ServerLocation(..),+    ServerSettings(..)+) where++import Control.Exception+import Network+import System.IO+import System.Process+import qualified Test.WebDriver.Server.Download as Download+import Test.WebDriver.Server.Poll++-- | Where the server can be found. 'Remote' means @selenium-server@ won't be+-- started.+data ServerLocation = Local | Remote HostName PortID+                    deriving Show++-- | Server settings.+data ServerSettings = ServerSettings+                    { serverLocation :: ServerLocation+                    , jarLocation :: Maybe FilePath+                    , serverVersion :: Maybe String+                    } deriving Show++-- | Default server settings: start a local selenium instance, and+-- download the server jar if none is found.+defaultSettings :: ServerSettings+defaultSettings = ServerSettings Local Nothing Nothing++-- | Execute the given 'IO' action with a selenium server running.+withServer :: ServerSettings -> IO a -> IO a+withServer ss act = case serverLocation ss of+    Remote{} -> error "not handled yet"+    Local -> do+        jarfile <- case jarLocation ss of+                       Nothing -> Download.downloadJar (serverVersion ss)+                       Just f -> return f+        blackHole <- openFile+#ifdef WINDOWS+                         "NUL"+#else+                         "/dev/null"+#endif+                         AppendMode+        bracket (do (_,_,_,ch) <- createProcess+                        (proc "java" ["-jar", jarfile, "-port", "4444"])+                            { std_in = UseHandle blackHole+                            , std_out = UseHandle blackHole+                            , std_err = CreatePipe }+                    waitForServer+                    return ch)+                (\h -> terminateProcess h >> hClose blackHole)+                (const act)

@@ -0,0 +1,43 @@+{-# LANGUAGE OverloadedStrings #-}++module Test.WebDriver.Server.Download (+    downloadJar+) where++import Data.ByteString.UTF8+import qualified Data.Conduit as C+import Data.Conduit.Binary (sinkFile)+import Network.HTTP.Conduit+import Network.HTTP.Conduit.Downloader+import System.Directory+import System.FilePath+import Text.Regex.TDFA+import Text.Regex.TDFA.ByteString++downloadJar :: Maybe String -> IO FilePath+downloadJar Nothing = do+    latest <- latestJarVersion+    downloadJar (Just latest)++downloadJar (Just v) = do+    userdata <- getAppUserDataDirectory "selenium-hs"+    let fname = "selenium-server-standalone-" ++ v ++ ".jar"+        jarpath = userdata </> fname+    e <- doesFileExist jarpath+    if e+        then return jarpath+        else do+            createDirectoryIfMissing True userdata+            req <- parseUrl $ "http://selenium.googlecode.com/files/" ++ fname+            withManager $ \man -> do+                response <- http req man+                responseBody response C.$$+- sinkFile jarpath+            return jarpath++latestJarVersion :: IO String+latestJarVersion = do+    bod <- urlGetContents "http://code.google.com/p/selenium/downloads/list"+    let Right reg = compile defaultCompOpt defaultExecOpt+                        "selenium-server-standalone-([0-9]+\\.[0-9]+\\.[0-9]+)\\.jar"+        Right (Just (_,_,_,[vers])) = regexec reg bod+    return $ toString vers

@@ -0,0 +1,16 @@+{-# LANGUAGE ScopedTypeVariables #-}++module Test.WebDriver.Server.Poll where++import Control.Concurrent+import Control.Exception+import Control.Monad+import Network++waitForServer :: IO ()+waitForServer = void $ go 0 where+    go x | x >= (30 :: Int) = error "Timed out after 30 seconds waiting for selenium server."+    go n = do+        threadDelay 1000000+        connectTo "127.0.0.1" (PortNumber 4444)+            `catch` (\(_ :: IOException) -> go (n + 1))

@@ -0,0 +1,20 @@+{-# LANGUAGE OverloadedStrings #-}++module Main where++import Test.Hspec+import Test.WebDriver+import Test.WebDriver.Server+import Test.WebDriver.Commands.Wait++main :: IO ()+main = hspec $+    describe "The server" $+        it "runs" $ do+            v <- withServer defaultSettings $+                runSession defaultSession defaultCaps $ do+                    openPage "https://joelt.io"+                    link <- findElem (ByLinkText "stuff")+                    click link+                    waitUntil 2000 getTitle+            v `shouldBe` "joelt.io | everything"