Add a test for --network option

Signed-off-by: Sasha Bogicevic <[email protected]>

Author: v0d1ch

hydra-node/test/Hydra/OptionsSpec.hs

@@ -16,6 +16,7 @@ import Hydra.Cardano.Api (
  )
 import Hydra.Chain (maximumNumberOfParties)
 import Hydra.Network (Host (Host))
+import Hydra.NetworkVersions (parseNetworkTxIds)
 import Hydra.Options (
   BlockfrostOptions (..),
   CardanoChainConfig (..),
@@ -43,6 +44,7 @@ import Hydra.Options (
  )
 import Test.Aeson.GenericSpecs (roundtripAndGoldenSpecs)
 import Test.QuickCheck (Property, chooseEnum, counterexample, forAll, property, vectorOf, (===))
+import Test.QuickCheck.Monadic (monadicIO)
 import Text.Regex.TDFA ((=~))
 
 spec :: Spec
@@ -324,6 +326,19 @@ spec = parallel $
             { chainConfig = Cardano (defaultCardanoChainConfig & #chainBackendOptions .~ Blockfrost (BlockfrostOptions "blockfrost-project.txt"))
             }
 
+    it "parses --network into related tx ids" $ monadicIO $ do
+      let networks = ["Mainnet", "preview", "Preprod"]
+      forM_ networks $ \network -> do
+        case parseNetworkTxIds network of
+          Left err -> error $ "Failed to parse network versions: " <> show err
+          Right txIds -> do
+            pure $
+              ["--network", network]
+                `shouldParse` Run
+                  defaultRunOptions
+                    { chainConfig = Cardano defaultCardanoChainConfig{hydraScriptsTxId = txIds}
+                    }
+
     it "switches to offline mode when using --offline-head-seed and --initial-utxo" $
       mconcat
         [ ["--offline-head-seed", "0100"]