mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-17 04:24:35 +03:00
35 lines
848 B
Haskell
35 lines
848 B
Haskell
|
-- | State shared by tests. We intentionally use an abstract type to
|
||
|
|
-- wrap up the values we need for tests, with accessors. This way, the
|
||
|
|
-- tests are less liable to refactorings when we add or change the
|
||
|
|
-- state.
|
||
|
|
module Harness.State
|
||
|
|
( State (..),
|
||
|
|
getServer,
|
||
|
|
Server (..),
|
||
|
|
)
|
||
|
|
where
|
||
|
|
|
||
|
|
import Control.Concurrent
|
||
|
|
import Data.Word
|
||
|
|
import Prelude (String)
|
||
|
|
|
||
|
|
-- | A state that's passed to all tests.
|
||
|
|
data State = State
|
||
|
|
{ server :: Server
|
||
|
|
}
|
||
|
|
|
||
|
|
-- | Information about the graphql-engine server that we're working
|
||
|
|
-- with.
|
||
|
|
data Server = Server
|
||
|
|
{ -- | The port to connect on.
|
||
|
|
port :: Word16,
|
||
|
|
urlPrefix :: String,
|
||
|
|
-- The full URI prefix e.g. http://localhost
|
||
|
|
|
||
|
|
-- | The thread that the server is running on, so we can stop it later.
|
||
|
|
threadId :: ThreadId
|
||
|
|
}
|
||
|
|
|
||
|
|
getServer :: State -> Server
|
||
|
|
getServer (State {server}) = server
|