digital-asset/daml
1
1
Fork 0
mirror of https://github.com/digital-asset/daml.git synced 2024-09-20 01:07:18 +03:00
Code Issues Projects Releases Wiki Activity

allocate free port to domain to avoid flakes (#16827)

Browse Source
This commit is contained in:
mziolekda 2023-05-09 12:51:41 +02:00 committed by GitHub
parent eaffc65c69
commit f35e2a9a3a
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compatibility/bazel_tools/daml_ledger/Main.hs
View File

@ -47,9 +47,9 @@ withSandbox getTools mbSecret f =
(tmpDir, _) <- getTempDir
let portFile = tmpDir </> "portfile"
devNull <- getDevNull
freePort <- getFreePort
let secretArgs = concat [["-C", "canton.participants.sandbox.ledger-api.port=" <> show freePort, "-C", "canton.participants.sandbox.ledger-api.auth-services.0.type=unsafe-jwt-hmac-256", "-C", "canton.participants.sandbox.ledger-api.auth-services.0.secret=" <> secret] | Just secret <- [mbSecret]]
let args = map (tweakArg portFile) (sandboxArgs <> secretArgs)
portArgs <- mapM (\argName-> fmap ((<>) argName . show) getFreePort) portArgNames
let secretArgs = concat [["-C", "canton.participants.sandbox.ledger-api.auth-services.0.type=unsafe-jwt-hmac-256", "-C", "canton.participants.sandbox.ledger-api.auth-services.0.secret=" <> secret] | Just secret <- [mbSecret]]
let args = map (tweakArg portFile) (sandboxArgs <> secretArgs <> portArgs)
mask $ \unmask -> do
ph@(_, _, _, handle) <- createProcess (proc sandboxBinary args) { std_out = UseHandle devNull }
let waitForStart = do
@ -60,6 +60,7 @@ withSandbox getTools mbSecret f =
in withResource createSandbox destroySandbox (f . fmap fst)
where
tweakArg portFile = replace "__PORTFILE__" portFile
portArgNames = ["--port=", "--admin-api-port=", "--domain-public-port=", "--domain-admin-port="]
newtype DamlOption = DamlOption FilePath
instance IsOption DamlOption where