From 9fd3027ca5e5225e6f9dd2fe58e0f81bcf30df25 Mon Sep 17 00:00:00 2001 From: Daniel Firth Date: Wed, 21 Feb 2024 09:01:05 +0000 Subject: [PATCH] fixup! cardano-api: 8.37 -> 8.38 --- hydra-cluster/test/Test/CardanoNodeSpec.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/hydra-cluster/test/Test/CardanoNodeSpec.hs b/hydra-cluster/test/Test/CardanoNodeSpec.hs index a960f403b06..b8e8c497094 100644 --- a/hydra-cluster/test/Test/CardanoNodeSpec.hs +++ b/hydra-cluster/test/Test/CardanoNodeSpec.hs @@ -55,7 +55,9 @@ spec = do describe "findRunningCardanoNode" $ do it "returns Nothing on non-matching network" $ const $ pendingWith "No other valid network to test against." - it "returns Just running node on matching network" $ const $ pendingWith "No other valid network to test against." + it "returns Just running node on matching network" $ \(tr, tmp) -> do + withCardanoNodeOnKnownNetwork tr tmp Sanchonet $ \runningNode -> do + findRunningCardanoNode tmp Sanchonet `shouldReturn` Just runningNode setupTracerAndTempDir :: ToJSON msg => ((Tracer IO msg, FilePath) -> IO a) -> IO a setupTracerAndTempDir action =