Merge pull request #5553 from input-output-hk/jordan/ledger-events-up…

…date-constitution-test Ledger events update constitution test
IntersectMBO · Dec 11, 2023 · ee9322d · ee9322d
2 parents e0fbe45 + 662cb33
commit ee9322d
Show file tree

Hide file tree

Showing 5 changed files with 437 additions and 6 deletions.
diff --git a/cardano-testnet/cardano-testnet.cabal b/cardano-testnet/cardano-testnet.cabal
@@ -167,7 +167,10 @@ test-suite cardano-testnet-test
                         Cardano.Testnet.Test.Cli.QuerySlotNumber
                         Cardano.Testnet.Test.FoldBlocks
                         Cardano.Testnet.Test.Misc
-                        Cardano.Testnet.Test.Node.LedgerEvents
+
+                        Cardano.Testnet.Test.LedgerEvents.Gov.ProposeNewConstitution
+                        Cardano.Testnet.Test.LedgerEvents.SanityCheck
+
                         Cardano.Testnet.Test.Node.Shutdown
                         Cardano.Testnet.Test.SubmitApi.Babbage.Transaction
 
@@ -180,6 +183,8 @@ test-suite cardano-testnet-test
                       , cardano-api
                       , cardano-cli
                       , cardano-crypto-class
+                      , cardano-ledger-conway
+                      , cardano-ledger-core
                       , cardano-testnet
                       , containers
                       , directory

diff --git a/cardano-testnet/src/Testnet/Components/Configuration.hs b/cardano-testnet/src/Testnet/Components/Configuration.hs
@@ -6,6 +6,7 @@ module Testnet.Components.Configuration
   ( createConfigYaml
   , createSPOGenesisAndFiles
   , mkTopologyConfig
+  , numSeededUTxOKeys
   ) where
 
 import           Cardano.Api.Shelley hiding (cardanoEra)
@@ -71,6 +72,9 @@ createConfigYaml (TmpAbsolutePath tempAbsPath') anyCardanoEra' = GHC.withFrozenC
               ]
 
 
+numSeededUTxOKeys :: Int
+numSeededUTxOKeys = 3
+
 createSPOGenesisAndFiles
   :: (MonadTest m, MonadCatch m, MonadIO m, HasCallStack)
   => CardanoTestnetOptions
@@ -121,7 +125,7 @@ createSPOGenesisAndFiles testnetOptions startTime (TmpAbsolutePath tempAbsPath')
     , "--supply", "1000000000000"
     , "--supply-delegated", "1000000000000"
     , "--gen-stake-delegs", "3"
-    , "--gen-utxo-keys", "3"
+    , "--gen-utxo-keys", show numSeededUTxOKeys
     , "--start-time", DTC.formatIso8601 startTime
     ]