cbb686a · reflex-dom · git.iko.soy

git.iko.soy/reflex-dom

on develop help sign in

use free available port for selenium

cbb686ahsloan8 years ago

reflex-dom-core/reflex-dom-core.cabal+1

compare with develop

unifiedsplit

@@ -166,6 +166,7 @@ test-suite hydration

166 , jsaddle

167 , jsaddle-warp

168 , lens

169+ , network

169 , random

170 , random

170 , reflex == 0.5.*

171 , reflex == 0.5.*

171 , reflex-dom-core

172 , reflex-dom-core

reflex-dom-core/test/hydration.hs+16−5

@@ -48,6 +48,7 @@ import qualified GHCJS.DOM.GlobalEventHandlers as Events

48import qualified Data.ByteString.Lazy as LBS

49import qualified Data.Text as T

50import qualified Data.Text.Encoding as TE

51+import Network.Socket

51import qualified Network.Wai.Handler.Warp as Warp

52import qualified Network.Wai.Handler.Warp as Warp

52import qualified Test.WebDriver as WD

53import qualified Test.WebDriver as WD

@@ -55,7 +56,7 @@ testTimeLimit :: Int

55testTimeLimit = 1 * 1000 * 1000

56testTimeLimit = 1 * 1000 * 1000

57chromeConfig :: FilePath -> WD.WDConfig

58chromeConfig :: FilePath -> WD.WDConfig

58−chromeConfig chromePath = WD.useBrowser (WD.chrome { WD.chromeBinary = Just "/nix/store/hf9r4nmjsz03mb73c11gn4prdcf47sxa-chromium-69.0.3497.81/bin/chromium", WD.chromeOptions = ["--headless"]}) WD.defaultConfig

59+chromeConfig chromePath = WD.useBrowser (WD.chrome { WD.chromeBinary = Just chromePath, WD.chromeOptions = ["--headless"]}) WD.defaultConfig

60-- TODO list

61-- TODO list

61-- use only available ports

62-- use only available ports

@@ -676,16 +677,15 @@ testWidget' beforeJS afterSwitchover bodyWidget = maybe (error "test timed out")

676 mainHydrationWidgetWithSwitchoverAction (putMVar waitUntilSwitchover ()) (pure ()) $ bodyWidget

677 mainHydrationWidgetWithSwitchoverAction (putMVar waitUntilSwitchover ()) (pure ()) $ bodyWidget

677 syncPoint

678 syncPoint

678 application <- jsaddleOr defaultConnectionOptions entryPoint $ \_ sendResponse -> sendResponse $ responseLBS status200 [] $ "<!doctype html>\n" <> LBS.fromStrict html

679 application <- jsaddleOr defaultConnectionOptions entryPoint $ \_ sendResponse -> sendResponse $ responseLBS status200 [] $ "<!doctype html>\n" <> LBS.fromStrict html

679− --port <- randomRIO (3000, 50000)

680+ port <- getFreePort

680− let port = 3911 -- TODO

681− let settings = Warp.setPort port Warp.defaultSettings

681+ let settings = Warp.setPort (fromIntegral $ toInteger port) Warp.defaultSettings

682 -- hSilence to get rid of ConnectionClosed logs

683 jsaddleWarp = forkIO $ Warp.runSettings settings application

684 bracket jsaddleWarp killThread $ \_ -> do

685 (_, Just out, Just err, _) <- createProcess $ (shell "whereis chromium") { std_out = CreatePipe }

686 whereisRes <- liftIO $ TE.decodeUtf8 <$> BS.hGetContents out

687 let chromePath = case T.words whereisRes of

688− _:path:_ -> path

688+ _:path':_ -> path'

689 _ -> "/run/current-system/sw/bin/chromium" -- TODO: Need proper error if chrome not found

690 WD.runSession (chromeConfig (T.unpack chromePath)) . WD.finallyClose $ do

691 WD.openPage $ "http://localhost:" <> show port

@@ -694,3 +694,14 @@ testWidget' beforeJS afterSwitchover bodyWidget = maybe (error "test timed out")

694 liftIO $ takeMVar waitUntilSwitchover

695 liftIO $ threadDelay 100000 -- wait a bit

696 afterSwitchover a

697+

698+-- TODO: Should this be part of more widely used module?

699+getFreePort :: MonadIO m => m PortNumber

700+getFreePort = liftIO $ withSocketsDo $ do

701+ addr:_ <- getAddrInfo (Just defaultHints) (Just "127.0.0.1") (Just "0")

702+ bracket (open addr) close socketPort

703+ where

704+ open addr = do

705+ sock <- socket (addrFamily addr) (addrSocketType addr) (addrProtocol addr)

706+ bind sock (addrAddress addr)

707+ return sock