Merge pull request #1180 from input-output-hk/cardano-cli-text-envelope-format

Check if cardano-cli works with DraftCommitTxResponse json output

Author: v0d1ch

hydra-cluster/hydra-cluster.cabal

@@ -154,6 +154,7 @@ test-suite tests
     Test.DirectChainSpec
     Test.EndToEndSpec
     Test.GeneratorSpec
+    Test.Hydra.Cluster.CardanoCliSpec
     Test.Hydra.Cluster.FaucetSpec
     Test.Ledger.Cardano.ConfigurationSpec
     Test.LogFilterSpec

hydra-cluster/test/Test/Hydra/Cluster/CardanoCliSpec.hs

@@ -0,0 +1,45 @@
+module Test.Hydra.Cluster.CardanoCliSpec where
+
+import Hydra.Prelude hiding (toString)
+import Test.Hydra.Prelude
+
+import Control.Lens ((^?))
+import Data.Aeson (encodeFile)
+import Data.Aeson.Lens (key, _String)
+import Hydra.API.HTTPServer (DraftCommitTxResponse (DraftCommitTxResponse))
+import Hydra.Cardano.Api (Tx)
+import System.Exit (ExitCode (..))
+import System.FilePath ((</>))
+import System.Process (proc, readCreateProcessWithExitCode)
+import Test.QuickCheck (generate)
+
+spec :: Spec
+spec =
+  describe "cardano-cli" $
+    it "cardano-cli can accept a draft commit tx in text-envelope format" $
+      withTempDir "cardano-cli" $ \tmpDir -> do
+        let txFile = tmpDir </> "tx.raw"
+        draftCommitResponse <- DraftCommitTxResponse <$> generate (arbitrary :: Gen Tx)
+        encodeFile txFile draftCommitResponse
+
+        (exitCode, output, _errors) <- readCreateProcessWithExitCode (cardanoCliSign txFile) ""
+        exitCode `shouldBe` ExitSuccess
+        output
+          ^? key "type" . _String `shouldSatisfy` \case
+            Nothing -> False
+            Just something -> something == "Witnessed Tx BabbageEra"
+ where
+  cardanoCliSign txFile =
+    proc
+      "cardano-cli"
+      [ "transaction"
+      , "sign"
+      , "--tx-file"
+      , txFile
+      , "--signing-key-file"
+      , "config/credentials/alice.sk"
+      , "--testnet-magic"
+      , "42"
+      , "--out-file"
+      , "/dev/stdout"
+      ]

nix/hydra/packages.nix

@@ -113,6 +113,7 @@ rec {
           nativePkgs.hydra-cluster.components.tests.tests
           hydra-node
           cardano-node.packages.${system}.cardano-node
+          cardano-node.packages.${system}.cardano-cli
           hydra-chain-observer
         ];
     };