Add CLI test for creating genesis key delegation certificates

IntersectMBO · Sep 2, 2020 · 8aa273e · 8aa273e
1 parent 9733b45
commit 8aa273e
Show file tree

Hide file tree

Showing 5 changed files with 88 additions and 13 deletions.
diff --git a/cardano-cli/cardano-cli.cabal b/cardano-cli/cardano-cli.cabal
@@ -245,6 +245,7 @@ test-suite cardano-cli-golden
  Test.Golden.Shelley.StakeAddress.KeyGen
  Test.Golden.Shelley.StakeAddress.RegistrationCertificate
  Test.Golden.Shelley.StakePool.RegistrationCertificate
+ Test.Golden.Shelley.TextEnvelope.Certificates.GenesisKeyDelegationCertificate
  Test.Golden.Shelley.TextEnvelope.Certificates.MIRCertificate
  Test.Golden.Shelley.TextEnvelope.Certificates.OperationalCertificate
  Test.Golden.Shelley.TextEnvelope.Certificates.StakeAddressCertificates

diff --git a/cardano-cli/test/Test/Golden/Shelley.hs b/cardano-cli/test/Test/Golden/Shelley.hs
@@ -31,6 +31,8 @@ import Test.Golden.Shelley.StakeAddress.RegistrationCertificate
  (golden_shelleyStakeAddressRegistrationCertificate)
 import Test.Golden.Shelley.StakePool.RegistrationCertificate
  (golden_shelleyStakePoolRegistrationCertificate)
+import Test.Golden.Shelley.TextEnvelope.Certificates.GenesisKeyDelegationCertificate
+ (golden_shelleyGenesisKeyDelegationCertificate)
 import Test.Golden.Shelley.TextEnvelope.Certificates.MIRCertificate
  (golden_shelleyMIRCertificate)
 import Test.Golden.Shelley.TextEnvelope.Certificates.OperationalCertificate
@@ -121,6 +123,7 @@ certificateTests =
  , ("golden_shelleyOperationalCertificate", golden_shelleyOperationalCertificate)
  , ("golden_shelleyStakePoolCertificates", golden_shelleyStakePoolCertificates)
  , ("golden_shelleyMIRCertificate", golden_shelleyMIRCertificate)
+ , ("golden_shelleyGenesisKeyDelegationCertificate", golden_shelleyGenesisKeyDelegationCertificate)
  ]
 
 metaDatatests :: IO Bool

diff --git a/...no-cli/test/Test/Golden/Shelley/TextEnvelope/Certificates/GenesisDelegationCertificate.hs b/...no-cli/test/Test/Golden/Shelley/TextEnvelope/Certificates/GenesisDelegationCertificate.hs
diff --git a/...cli/test/Test/Golden/Shelley/TextEnvelope/Certificates/GenesisKeyDelegationCertificate.hs b/...cli/test/Test/Golden/Shelley/TextEnvelope/Certificates/GenesisKeyDelegationCertificate.hs
@@ -0,0 +1,79 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module Test.Golden.Shelley.TextEnvelope.Certificates.GenesisKeyDelegationCertificate
+ ( golden_shelleyGenesisKeyDelegationCertificate
+ ) where
+
+import Cardano.Prelude
+
+import Hedgehog (Property)
+
+import Cardano.Api.Typed (AsType (..), HasTextEnvelope (..))
+
+import Test.OptParse
+
+{- HLINT ignore "Use camelCase" -}
+
+golden_shelleyGenesisKeyDelegationCertificate :: Property
+golden_shelleyGenesisKeyDelegationCertificate =
+ propertyOnce . moduleWorkspace "tmp" $ \tempDir -> do
+ -- Reference certificate
+ referenceCertificateFilePath <-
+ noteInputFile $
+ "test/data/golden/shelley/certificates/"
+ <> "genesis_key_delegation_certificate"
+
+ -- Verification key and certificate filepaths
+ genesisVerKeyFilePath <-
+ noteTempFile tempDir "genesis-verification-key-file"
+ genesisDelegVerKeyFilePath <-
+ noteTempFile tempDir "genesis-delegate-verification-key-file"
+ vrfVerKeyFilePath <- noteTempFile tempDir "vrf-verification-key-file"
+ genesisKeyDelegCertFilePath <-
+ noteTempFile tempDir "genesis-key-delegation-certificate-file"
+
+ -- Generate genesis key pair
+ void $ execCardanoCLI
+ [ "shelley","genesis","key-gen-genesis"
+ , "--verification-key-file", genesisVerKeyFilePath
+ , "--signing-key-file", "/dev/null"
+ ]
+
+ -- Generate genesis delegate key pair
+ void $ execCardanoCLI
+ [ "shelley","genesis","key-gen-delegate"
+ , "--verification-key-file", genesisDelegVerKeyFilePath
+ , "--signing-key-file", "/dev/null"
+ , "--operational-certificate-issue-counter-file", "/dev/null"
+ ]
+
+ -- Generate VRF key pair
+ void $ execCardanoCLI
+ [ "shelley","node","key-gen-VRF"
+ , "--verification-key-file", vrfVerKeyFilePath
+ , "--signing-key-file", "/dev/null"
+ ]
+
+ assertFilesExist
+ [ genesisVerKeyFilePath
+ , genesisDelegVerKeyFilePath
+ , vrfVerKeyFilePath
+ ]
+
+ -- Create genesis key delegation certificate
+ void $ execCardanoCLI
+ [ "shelley","governance","create-genesis-key-delegation-certificate"
+ , "--genesis-verification-key-file", genesisVerKeyFilePath
+ , "--genesis-delegate-verification-key-file", genesisDelegVerKeyFilePath
+ , "--vrf-verification-key-file", vrfVerKeyFilePath
+ , "--out-file", genesisKeyDelegCertFilePath
+ ]
+
+ assertFilesExist [genesisKeyDelegCertFilePath]
+
+ let certificateType = textEnvelopeType AsCertificate
+
+ checkTextEnvelopeFormat
+ certificateType
+ referenceCertificateFilePath
+ genesisKeyDelegCertFilePath
diff --git a/cardano-cli/test/data/golden/shelley/certificates/genesis_key_delegation_certificate b/cardano-cli/test/data/golden/shelley/certificates/genesis_key_delegation_certificate
@@ -0,0 +1,5 @@
+{
+ "type": "CertificateShelley",
+ "description": "Genesis Key Delegation Certificate",
+ "cborHex": "8405581cc3db461200fa59c81a4ecc8495446d9e42de27483ff6ee4339c9ab94581cd52ac434259f2af7fd2a538ece5ef8d80386527aa93e207473acb31c58201b9de69baec0dff8dde6e81d71f40f8b65fb3df55bb6ece5783aade88b17354d"
+}