Denote supportedNetworks in hydra-cluster tests

Author: locallycompact

.github/workflows/check-tutorial.yaml

@@ -35,7 +35,7 @@ jobs:
 
         with open("hydra-cluster/test/Test/CardanoNodeSpec.hs", "r") as cardanoNodeSpecFile:
             body = cardanoNodeSpecFile.read()
-            expectedCardanoNodeVersion = re.findall(r"getCardanoNodeVersion.*([0-9]+\.[0-9]+\.[0-9]+)", body)[0]
+            expectedCardanoNodeVersion = re.findall(r"supportedCardanoNodeVersion.*([0-9]+\.[0-9]+\.[0-9]+)", body)[0]
 
         print("Checking used cardano-node version")
         if all(v == expectedCardanoNodeVersion for v in usedCardanoNodeVersions):

hydra-cluster/test/Test/CardanoNodeSpec.hs

@@ -17,13 +17,26 @@ import Hydra.Logging (Tracer, showLogsOnFailure)
 import System.Directory (doesFileExist)
 import Test.Hydra.Cluster.Utils (forEachKnownNetwork)
 
+supportedNetworks :: [KnownNetwork]
+supportedNetworks = [Preview, Preproduction, Mainnet]
+
+supportedCardanoNodeVersion :: String
+supportedCardanoNodeVersion = "8.9.0"
+
+forSupportedKnownNetworks :: String -> (KnownNetwork -> IO ()) -> Spec
+forSupportedKnownNetworks msg action = forEachKnownNetwork msg $ \network -> do
+  unless (network `elem` supportedNetworks) $
+    pendingWith $
+      "cardano-node " <> supportedCardanoNodeVersion <> " is only supported on " ++ show supportedNetworks
+  action network
+
 spec :: Spec
 spec = do
   -- NOTE: We also hard-code the cardano-node version here to allow prevent
   -- false positives test errors in case someone uses an "untested" /
   -- different than in shell.nix version of cardano-node and cardano-cli.
   it "has expected cardano-node version available" $
-    getCardanoNodeVersion >>= (`shouldContain` "8.9.0")
+    getCardanoNodeVersion >>= (`shouldContain` supportedCardanoNodeVersion)
 
   around (failAfter 5 . setupTracerAndTempDir) $ do
     it "withCardanoNodeDevnet does start a block-producing devnet within 5 seconds" $ \(tr, tmp) ->
@@ -41,16 +54,18 @@ spec = do
 
     describe "findRunningCardanoNode" $ do
       it "returns Nothing on non-matching network" $ \(tr, tmp) -> do
+        unless (Preview `elem` supportedNetworks) $
+          pendingWith "Preview is not supported so skipping this test."
         withCardanoNodeOnKnownNetwork tr tmp Preview $ \_ -> do
           findRunningCardanoNode tr tmp Preproduction `shouldReturn` Nothing
 
       it "returns Just running node on matching network" $ \(tr, tmp) -> do
+        unless (Preview `elem` supportedNetworks) $
+          pendingWith "Preview is not supported so skipping this test."
         withCardanoNodeOnKnownNetwork tr tmp Preview $ \runningNode -> 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"
+  forSupportedKnownNetworks "withCardanoNodeOnKnownNetwork starts synchronizing within 10 seconds" $ \network -> do
     -- NOTE: This implies that withCardanoNodeOnKnownNetwork does not
     -- synchronize the whole chain before continuing.
     setupTracerAndTempDir $ \(tr, tmp) ->