#128 DRep key generation

cardano-cli/cardano-cli.cabal

@@ -286,6 +286,7 @@ test-suite cardano-cli-golden
                         Test.Golden.Byron.Witness
                         Test.Golden.ErrorsSpec
                         Test.Golden.Governance.Committee
+                        Test.Golden.Governance.DRep
                         Test.Golden.Help
                         Test.Golden.Key.NonExtendedKey
                         Test.Golden.Shelley.Address.Build

cardano-cli/src/Cardano/CLI/EraBased/Commands/Governance.hs

@@ -46,6 +46,10 @@ data EraBasedGovernanceCmds era
       (GovernanceCommitteeCmds era)
   | EraBasedGovernanceActionCmds
       (GovernanceActionCmds era)
+  | EraBasedGovernanceDRepGenerateKey
+      (ConwayEraOnwards era)
+      (File (VerificationKey ()) Out)
+      (File (SigningKey ()) Out)
 
 renderEraBasedGovernanceCmds :: EraBasedGovernanceCmds era -> Text
 renderEraBasedGovernanceCmds = \case
@@ -69,3 +73,4 @@ renderEraBasedGovernanceCmds = \case
     renderGovernanceCommitteeCmds cmds
   EraBasedGovernanceActionCmds cmds ->
     renderGovernanceActionCmds cmds
+  EraBasedGovernanceDRepGenerateKey{} -> "governance drep key-gen"

cardano-cli/src/Cardano/CLI/EraBased/Governance.hs

@@ -160,3 +160,4 @@ pCreateConstitution envCli =
       <*> pVotingCredential
       <*> pConstitution
       <*> pFileOutDirection "out-file" "Output filepath of the governance action."
+

cardano-cli/src/Cardano/CLI/EraBased/Options/Governance.hs

@@ -39,6 +39,7 @@ pEraBasedGovernanceCmds envCli era =
     , pCreateMirCertificatesCmds era
     , pGovernanceCommitteeCmds era <&> fmap EraBasedGovernanceCommitteeCmds
     , fmap EraBasedGovernanceActionCmds <$> pGovernanceActionCmds era
+    , pDRepCommands era
     ]
 
 
@@ -301,3 +302,17 @@ pMIRTransferToReserves w =
 
 --------------------------------------------------------------------------------
 
+pDRepCommands :: ()
+  => CardanoEra era
+  -> Maybe (Parser (EraBasedGovernanceCmds era))
+pDRepCommands era = do
+  w <- maybeFeatureInEra era
+  pure $
+    subParser "drep"
+    $ Opt.info (pKeyGen w)
+    $ Opt.progDesc "Delegate Representative commands."
+  where
+    pKeyGen w =
+      subParser "key-gen"
+      $ Opt.info (EraBasedGovernanceDRepGenerateKey w <$> pVerificationKeyFileOut <*> pSigningKeyFileOut)
+      $ Opt.progDesc "Generate Delegate Representative verification and signing keys."

cardano-cli/src/Cardano/CLI/EraBased/Run.hs

@@ -77,6 +77,11 @@ runEraBasedGovernanceCmds = \case
   EraBasedGovernanceActionCmds cmds ->
     firstExceptT (const ()) -- TODO: Conway era - fix error handling
       $ runGovernanceActionCmds cmds
+
+  EraBasedGovernanceDRepGenerateKey w vrf sgn ->
+    firstExceptT (const ()) -- TODO: Conway era - fix error handling
+      $ runGovernanceDRepKeyGen w vrf sgn
+
 runEraBasedGovernancePreConwayCmd
   :: ShelleyToBabbageEra era
   -> ExceptT () IO ()

cardano-cli/src/Cardano/CLI/EraBased/Run/Governance.hs

@@ -8,6 +8,7 @@ module Cardano.CLI.EraBased.Run.Governance
   ( runGovernanceCmds
   , runGovernanceMIRCertificatePayStakeAddrs
   , runGovernanceMIRCertificateTransfer
+  , runGovernanceDRepKeyGen
   ) where
 
 
@@ -334,3 +335,19 @@ runGovernanceVerifyPoll pollFile txFile mOutFile = do
 
   lift (writeByteStringOutput mOutFile (prettyPrintJSON signatories))
     & onLeft (left . GovernanceCmdWriteFileError)
+
+runGovernanceDRepKeyGen
+  :: ConwayEraOnwards era
+  -> VerificationKeyFile Out
+  -> SigningKeyFile Out
+  -> ExceptT GovernanceCmdError IO ()
+runGovernanceDRepKeyGen _w vkeyPath skeyPath = firstExceptT GovernanceCmdWriteFileError $ do
+  skey <- liftIO $ generateSigningKey AsDRepKey
+  let vkey = getVerificationKey skey
+  newExceptT $ writeLazyByteStringFile skeyPath (textEnvelopeToJSON (Just skeyDesc) skey)
+  newExceptT $ writeLazyByteStringFile vkeyPath (textEnvelopeToJSON (Just vkeyDesc) vkey)
+  where
+    skeyDesc :: TextEnvelopeDescr
+    skeyDesc = "Delegate Representative Signing Key"
+    vkeyDesc :: TextEnvelopeDescr
+    vkeyDesc = "Delegate Representative Verification Key"

cardano-cli/test/cardano-cli-golden/Test/Golden/Governance/DRep.hs

@@ -0,0 +1,30 @@
+{- HLINT ignore "Use camelCase" -}
+
+module Test.Golden.Governance.DRep where
+
+import           Control.Monad (void)
+
+import           Test.Cardano.CLI.Util
+
+import           Hedgehog (Property)
+import qualified Hedgehog.Extras.Test.Base as H
+import qualified Hedgehog.Extras.Test.File as H
+
+hprop_golden_governanceDRepKeyGen :: Property
+hprop_golden_governanceDRepKeyGen =
+  propertyOnce . H.moduleWorkspace "tmp" $ \tempDir -> do
+    verificationKeyFile <- noteTempFile tempDir "key-gen.vkey"
+    signingKeyFile <- noteTempFile tempDir "key-gen.skey"
+
+    void $ execCardanoCLI
+      [  "conway", "governance", "drep", "key-gen"
+      , "--verification-key-file", verificationKeyFile
+      , "--signing-key-file", signingKeyFile
+      ]
+
+    H.assertFileOccurences 1 "DRepVerificationKey_ed25519" verificationKeyFile
+    H.assertFileOccurences 1 "DRepSigningKey_ed25519" signingKeyFile
+
+    H.assertFileOccurences 1 "Delegate Representative Verification Key" verificationKeyFile
+    H.assertFileOccurences 1 "Delegate Representative Signing Key" signingKeyFile
+

cardano-cli/test/cardano-cli-golden/files/golden/help.cli

@@ -519,6 +519,7 @@ Usage: cardano-cli conway governance
                                        | vote
                                        | committee
                                        | action
+                                       | drep
                                        )
 
   Era-based governance commands
@@ -649,6 +650,15 @@ Usage: cardano-cli conway governance action create-constitution --governance-act
 
   Create a constitution.
 
+Usage: cardano-cli conway governance drep key-gen
+
+  Delegate Representative commands.
+
+Usage: cardano-cli conway governance drep key-gen --verification-key-file FILE
+                                                    --signing-key-file FILE
+
+  Generate Delegate Representative verification and signing keys.
+
 Usage: cardano-cli latest governance
 
   Latest era commands (Babbage)
@@ -758,6 +768,7 @@ Usage: cardano-cli experimental governance
                                              | vote
                                              | committee
                                              | action
+                                             | drep
                                              )
 
   Era-based governance commands
@@ -888,6 +899,15 @@ Usage: cardano-cli experimental governance action create-constitution --governan
 
   Create a constitution.
 
+Usage: cardano-cli experimental governance drep key-gen
+
+  Delegate Representative commands.
+
+Usage: cardano-cli experimental governance drep key-gen --verification-key-file FILE
+                                                          --signing-key-file FILE
+
+  Generate Delegate Representative verification and signing keys.
+
 Usage: cardano-cli legacy Legacy commands
 
   Legacy commands

cardano-cli/test/cardano-cli-golden/files/golden/help/conway_governance_drep_key-gen.cli

@@ -0,0 +1,10 @@
+Usage: cardano-cli conway governance drep key-gen --verification-key-file FILE
+                                                    --signing-key-file FILE
+
+  Generate Delegate Representative verification and signing keys.
+
+Available options:
+  --verification-key-file FILE
+                           Output filepath of the verification key.
+  --signing-key-file FILE  Output filepath of the signing key.
+  -h,--help                Show this help text

cardano-cli/test/cardano-cli-golden/files/golden/help/experimental_governance_drep_key-gen.cli

@@ -0,0 +1,10 @@
+Usage: cardano-cli experimental governance drep key-gen --verification-key-file FILE
+                                                          --signing-key-file FILE
+
+  Generate Delegate Representative verification and signing keys.
+
+Available options:
+  --verification-key-file FILE
+                           Output filepath of the verification key.
+  --signing-key-file FILE  Output filepath of the signing key.
+  -h,--help                Show this help text