cardano-note: fix tests

Author: geo2a

cardano-node/cardano-node.cabal

@@ -245,6 +245,7 @@ test-suite cardano-node-test
                       , cardano-crypto-class
                       , cardano-crypto-wrapper
                       , cardano-api
+                      , cardano-diffusion:{api, cardano-diffusion}
                       , cardano-protocol-tpraos
                       , cardano-node
                       , cardano-slotting

cardano-node/test/Test/Cardano/Node/POM.hs

@@ -8,7 +8,7 @@ module Test.Cardano.Node.POM
 
 
 import           Cardano.Crypto.ProtocolMagic (RequiresNetworkMagic (..))
-import           Cardano.Network.Diffusion.Configuration (defaultNumberOfBigLedgerPeers)
+import           Cardano.Network.Diffusion.Configuration (defaultNumberOfBigLedgerPeers, TxSubmissionLogicVersion(..))
 import           Cardano.Node.Configuration.LedgerDB
 import           Cardano.Node.Configuration.POM
 import           Cardano.Node.Configuration.Socket
@@ -26,6 +26,8 @@ import           Cardano.Network.ConsensusMode (ConsensusMode (..))
 import           Cardano.Network.NodeToNode (AcceptedConnectionsLimit (..),
                    DiffusionMode (InitiatorAndResponderDiffusionMode))
 import           Ouroboros.Network.PeerSelection.PeerSharing (PeerSharing (..))
+import           Ouroboros.Network.TxSubmission.Inbound.V2.Types
+                     (defaultTxSubmissionInitDelay)
 
 import           Data.Monoid (Last (..))
 import           Data.Text (Text)
@@ -174,6 +176,8 @@ testPartialYamlConfig =
     , pncResponderCoreAffinityPolicy = mempty
     , pncLedgerDbConfig = mempty
     , pncEgressPollInterval = mempty
+    , pncTxSubmissionLogicVersion = mempty
+    , pncTxSubmissionInitDelay = mempty
     }
 
 -- | Example partial configuration theoretically created
@@ -227,6 +231,8 @@ testPartialCliConfig =
     , pncResponderCoreAffinityPolicy = mempty
     , pncLedgerDbConfig = mempty
     , pncEgressPollInterval = mempty
+    , pncTxSubmissionLogicVersion = mempty
+    , pncTxSubmissionInitDelay = mempty
     }
 
 -- | Expected final NodeConfiguration
@@ -286,6 +292,8 @@ eExpectedConfig = do
     , ncGenesisConfig = disableGenesisConfig
     , ncResponderCoreAffinityPolicy = NoResponderCoreAffinity
     , ncLedgerDbConfig = LedgerDbConfiguration DefaultNumOfDiskSnapshots DefaultSnapshotInterval DefaultQueryBatchSize V2InMemory noDeprecatedOptions
+    , ncTxSubmissionLogicVersion = TxSubmissionLogicV1
+    , ncTxSubmissionInitDelay = defaultTxSubmissionInitDelay
     }
 
 -- -----------------------------------------------------------------------------

cardano-testnet/test/cardano-testnet-test/Cardano/Testnet/Test/DumpConfig.hs

@@ -56,7 +56,7 @@ hprop_dump_config = integrationRetryWorkspace 2 "dump-config-files" $ \tmpDir ->
   H.threadDelay $ double2Int $ realToFrac startTimeOffsetSeconds * 1_000_000 * 1.2
 
   currentTime <- H.noteShowIO Time.getCurrentTime
-  startTime <- H.noteShow $ Time.addUTCTime startTimeOffsetSeconds currentTime
+  startTime <- H.noteShow $ Time.addUTCTime (fromIntegral startTimeOffsetSeconds) currentTime
 
   -- Update start time in Byron genesis file
   eByron <- runExceptT $ Byron.readGenesisData byronGenesisFile