diff --git a/hydra-cluster/src/HydraNode.hs b/hydra-cluster/src/HydraNode.hs index bb386f077b1..55fe4b7b9de 100644 --- a/hydra-cluster/src/HydraNode.hs +++ b/hydra-cluster/src/HydraNode.hs @@ -334,13 +334,16 @@ withHydraNode' tracer chainConfig workDir hydraNodeId hydraSKey hydraVKeys allNo filepath <$ writeFileTextEnvelope (File filepath) Nothing vKey let p = ( hydraNodeProcess $ + -- NOTE: Using 0.0.0.0 over 127.0.0.1 will make the hydra-node + -- crash if it can't bind the interface and make tests fail more + -- obvious when e.g. a hydra-node instance is already running. RunOptions { verbosity = Verbose "HydraNode" , nodeId = NodeId $ show hydraNodeId - , host = "127.0.0.1" + , host = "0.0.0.0" , port = fromIntegral $ 5_000 + hydraNodeId , peers - , apiHost = "127.0.0.1" + , apiHost = "0.0.0.0" , apiPort = fromIntegral $ 4_000 + hydraNodeId , monitoringPort = Just $ fromIntegral $ 6_000 + hydraNodeId , hydraSigningKey diff --git a/hydra-cluster/test/Test/CardanoNodeSpec.hs b/hydra-cluster/test/Test/CardanoNodeSpec.hs index fab10f8acc6..970508038a7 100644 --- a/hydra-cluster/test/Test/CardanoNodeSpec.hs +++ b/hydra-cluster/test/Test/CardanoNodeSpec.hs @@ -41,7 +41,7 @@ spec = do describe "findRunningCardanoNode" $ do it "returns Nothing on non-matching network" $ \(tr, tmp) -> do - withCardanoNodeOnKnownNetwork tr tmp Sanchonet $ \_ -> do + withCardanoNodeOnKnownNetwork tr tmp Preview $ \_ -> do findRunningCardanoNode tr tmp Preproduction `shouldReturn` Nothing it "returns Just running node on matching network" $ \(tr, tmp) -> do @@ -49,6 +49,8 @@ spec = do findRunningCardanoNode tr tmp Preview `shouldReturn` Just runningNode forEachKnownNetwork "withCardanoNodeOnKnownNetwork starts synchronizing within 10 seconds" $ \network -> do + when (network == Sanchonet) $ + pendingWith "cardano-node 8.9 not anymore supported on sanchonet" -- NOTE: This implies that withCardanoNodeOnKnownNetwork does not -- synchronize the whole chain before continuing. setupTracerAndTempDir $ \(tr, tmp) ->