-
Notifications
You must be signed in to change notification settings - Fork 720
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
4831: Refactor `genesis create` command usage in cardano testnet r=Jimbo4350 a=Jimbo4350 Implement the following three modules: 1. Testnet.Commands.Genesis - Houses the refactoring of cli commands concerning genesis generation 2. Testnet.Commands.Governance - Houses the refactoring of cli commands concerning governance 3. Testnet.Options - Module that will house all the different `TestnetOptions` types. The aim is to only have one `TestnetOptions` type in the future. Co-authored-by: Jordan Millar <[email protected]>
- Loading branch information
Showing
11 changed files
with
223 additions
and
138 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,93 @@ | ||
| {-# LANGUAGE OverloadedStrings #-} | ||
| {-# LANGUAGE TypeApplications #-} | ||
|
|
||
| -- | All Byron and Shelley Genesis related functionality | ||
| module Testnet.Commands.Genesis | ||
| ( createShelleyGenesisInitialTxIn | ||
| , createByronGenesis | ||
| , defaultByronGenesisJsonValue | ||
| ) where | ||
|
|
||
| import Prelude | ||
|
|
||
| import Control.Monad.Catch | ||
| import Control.Monad.IO.Class | ||
| import Data.Aeson | ||
| import Data.Time.Clock (UTCTime) | ||
| import GHC.Stack (HasCallStack, withFrozenCallStack) | ||
|
|
||
| import Hedgehog.Extras.Stock.Time (showUTCTimeSeconds) | ||
| import Hedgehog.Internal.Property | ||
|
|
||
| import Testnet.Options | ||
| import Testnet.Util.Process | ||
|
|
||
| -- | Creates a default Byron genesis. This is required for any testnet, predominantly because | ||
| -- we inject our ADA supply into our testnet via the Byron genesis. | ||
| createByronGenesis | ||
| :: (MonadTest m, MonadCatch m, MonadIO m, HasCallStack) | ||
| => Int | ||
| -> UTCTime | ||
| -> BabbageTestnetOptions | ||
| -> String | ||
| -> String | ||
| -> m () | ||
| createByronGenesis testnetMagic startTime testnetOptions pParamFp genOutputDir = | ||
| withFrozenCallStack $ execCli_ | ||
| [ "byron", "genesis", "genesis" | ||
| , "--protocol-magic", show testnetMagic | ||
| , "--start-time", showUTCTimeSeconds startTime | ||
| , "--k", show (babbageSecurityParam testnetOptions) | ||
| , "--n-poor-addresses", "0" | ||
| , "--n-delegate-addresses", show @Int (babbageNumSpoNodes testnetOptions) | ||
| , "--total-balance", show @Int (babbageTotalBalance testnetOptions) | ||
| , "--delegate-share", "1" | ||
| , "--avvm-entry-count", "0" | ||
| , "--avvm-entry-balance", "0" | ||
| , "--protocol-parameters-file", pParamFp | ||
| , "--genesis-output-dir", genOutputDir | ||
| ] | ||
|
|
||
| -- | The Shelley initial UTxO is constructed from the 'sgInitialFunds' field which | ||
| -- is not a full UTxO but just a map from addresses to coin values. Therefore this | ||
| -- command creates a transaction input that defaults to the 0th index and therefore | ||
| -- we can spend spend this tx input in a transaction. | ||
| createShelleyGenesisInitialTxIn | ||
| :: (MonadTest m, MonadCatch m, MonadIO m, HasCallStack) | ||
| => Int -> FilePath -> m String | ||
| createShelleyGenesisInitialTxIn testnetMagic vKeyFp = | ||
| withFrozenCallStack $ execCli | ||
| [ "genesis", "initial-txin" | ||
| , "--testnet-magic", show @Int testnetMagic | ||
| , "--verification-key-file", vKeyFp | ||
| ] | ||
|
|
||
| -- | We need a Byron genesis in order to be able to hardfork to the later Shelley based eras. | ||
| -- The values here don't matter as the testnet conditions are ultimately determined | ||
| -- by the Shelley genesis. | ||
| defaultByronGenesisJsonValue :: Value | ||
| defaultByronGenesisJsonValue = | ||
| object | ||
| [ "heavyDelThd" .= toJSON @String "300000000000" | ||
| , "maxBlockSize" .= toJSON @String "2000000" | ||
| , "maxTxSize" .= toJSON @String "4096" | ||
| , "maxHeaderSize" .= toJSON @String "2000000" | ||
| , "maxProposalSize" .= toJSON @String "700" | ||
| , "mpcThd" .= toJSON @String "20000000000000" | ||
| , "scriptVersion" .= toJSON @Int 0 | ||
| , "slotDuration" .= toJSON @String "1000" | ||
| , "softforkRule" .= object | ||
| [ "initThd" .= toJSON @String "900000000000000" | ||
| , "minThd" .= toJSON @String "600000000000000" | ||
| , "thdDecrement" .= toJSON @String "50000000000000" | ||
| ] | ||
| , "txFeePolicy" .= object | ||
| [ "multiplier" .= toJSON @String "43946000000" | ||
| , "summand" .= toJSON @String "155381000000000" | ||
| ] | ||
| , "unlockStakeEpoch" .= toJSON @String "18446744073709551615" | ||
| , "updateImplicit" .= toJSON @String "10000" | ||
| , "updateProposalThd" .= toJSON @String "100000000000000" | ||
| , "updateVoteThd" .= toJSON @String "1000000000000" | ||
| ] | ||
|
|
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,46 @@ | ||
| module Testnet.Commands.Governance | ||
| ( createByronUpdateProposal | ||
| , createByronUpdateProposalVote | ||
| ) where | ||
|
|
||
| import Prelude | ||
|
|
||
| import Control.Monad.Catch | ||
| import Control.Monad.IO.Class | ||
| import GHC.Stack (HasCallStack, withFrozenCallStack) | ||
|
|
||
| import Testnet.Util.Process (execCli_) | ||
|
|
||
| import Hedgehog.Internal.Property | ||
|
|
||
|
|
||
| createByronUpdateProposal | ||
| :: (MonadTest m, MonadCatch m, MonadIO m, HasCallStack) | ||
| => Int -> String -> String -> Int -> m () | ||
| createByronUpdateProposal testnetMagic signingKeyFp updateProposalFp ptclMajorVersion = | ||
| withFrozenCallStack $ execCli_ | ||
| [ "byron", "governance", "create-update-proposal" | ||
| , "--filepath", updateProposalFp | ||
| , "--testnet-magic", show testnetMagic | ||
| , "--signing-key", signingKeyFp | ||
| , "--protocol-version-major", show ptclMajorVersion | ||
| , "--protocol-version-minor", "0" | ||
| , "--protocol-version-alt", "0" | ||
| , "--application-name", "cardano-sl" | ||
| , "--software-version-num", "1" | ||
| , "--system-tag", "linux" | ||
| , "--installer-hash", "0" | ||
| ] | ||
|
|
||
| createByronUpdateProposalVote | ||
| :: (MonadTest m, MonadCatch m, MonadIO m, HasCallStack) | ||
| => Int -> String -> String -> String -> m () | ||
| createByronUpdateProposalVote testnetMagic updateProposalFp signingKey outputFp = | ||
| withFrozenCallStack $ execCli_ | ||
| [ "byron", "governance", "create-proposal-vote" | ||
| , "--proposal-filepath", updateProposalFp | ||
| , "--testnet-magic", show testnetMagic | ||
| , "--signing-key", signingKey | ||
| , "--vote-yes" | ||
| , "--output-filepath", outputFp | ||
| ] |
Oops, something went wrong.