more experiments

lib/wallet/integration/src/Test/Integration/Faucet.hs

@@ -100,6 +100,10 @@ import Data.Text
     ( Text )
 import GHC.TypeLits
     ( KnownNat, Nat, Symbol )
+import System.Environment
+    ( getEnv )
+import System.IO.Unsafe
+    ( unsafePerformIO )
 import UnliftIO.MVar
     ( MVar, modifyMVar )
 
@@ -2372,11 +2376,17 @@ preregKeyWallet = unsafeMkMnemonic
     , "bid", "raccoon", "spin", "reduce", "rival"
     ]
 
+{-# NOINLINE addrsPerWallet #-}
+-- Number of addresses per normal fixture wallet
+addrsPerWallet :: Int
+addrsPerWallet = unsafePerformIO $
+    read <$> getEnv "ADDRS_PER_WALLET"
+
 shelleyIntegrationTestFunds :: [(Address, Coin)]
 shelleyIntegrationTestFunds = mconcat
-    [ seqMnemonics >>= take 10 . map (, defaultAmt) . addresses . SomeMnemonic
+    [ seqMnemonics >>= take addrsPerWallet . map (, defaultAmt) . addresses . SomeMnemonic
 
-    , icaMnemonics >>= take 10 . map (, defaultAmt) . icaAddresses
+    , icaMnemonics >>= take addrsPerWallet . map (, defaultAmt) . icaAddresses
 
     , zip
          (addresses $ SomeMnemonic onlyDustWallet)

lib/wallet/src/Cardano/Wallet.hs

@@ -599,6 +599,10 @@ import GHC.TypeNats
     ( Nat )
 import Statistics.Quantile
     ( medianUnbiased, quantiles )
+import System.Environment
+    ( getEnv )
+import System.IO.Unsafe
+    ( unsafePerformIO )
 import System.Random.StdGenSeed
     ( StdGenSeed (..), stdGenFromSeed, stdGenSeed )
 import Type.Reflection
@@ -612,6 +616,7 @@ import qualified Cardano.Address.Script as CA
 import qualified Cardano.Address.Style.Shared as CA
 import qualified Cardano.Address.Style.Shelley as CAShelley
 import qualified Cardano.Api as Cardano
+import qualified Cardano.Api.Extra as Cardano
 import qualified Cardano.Crypto.Wallet as CC
 import qualified Cardano.Slotting.Slot as Slot
 import qualified Cardano.Tx.Balance.Internal.CoinSelection as CS
@@ -2881,6 +2886,11 @@ delegationFee db@DBLayer{atomically, walletsDB} netLayer
                     case recentEra of {}
         deposit <- liftIO $ calcMinimumDeposit db netLayer walletId
         pure DelegationFee { feePercentiles, deposit }
+{-# NOINLINE repeats #-}
+repeats :: Int
+repeats = unsafePerformIO $
+    read <$> getEnv "FEE_ITERATIONS"
+
 
 -- | Repeatedly (100 times) runs given transaction fee estimation calculation
 -- returning 1st and 9nth decile (10nth and 90nth percentile) values of a
@@ -2922,7 +2932,6 @@ calculateFeePercentiles
             ((e:_), []) -> Left e
             (_, samples') -> Right samples'
 
-    repeats = 100 -- TODO: modify repeats based on data
 
     -- | When estimating fee, it is rather cumbersome to return
     -- "cannot cover fee" if clients are just asking for an estimation.
@@ -3799,15 +3808,19 @@ toBalanceTxPParams
     :: forall era. WriteTx.IsRecentEra era
     => ProtocolParameters
     -> (ProtocolParameters, Cardano.BundledProtocolParameters era)
-toBalanceTxPParams pp =
+toBalanceTxPParams pp = bundledPParams `seq` ledgerPParams `seq`
     ( pp
-    , maybe
-        (error $ unwords
+    , bundledPParams
+    )
+  where
+    nodePParams = fromMaybe (error $ unwords
             [ "toBalanceTxPParams: no nodePParams."
             , "should only be possible in Byron, where"
             , "withRecentEra should prevent this to be reached."
-            ])
-        (Cardano.bundleProtocolParams
-            (WriteTx.fromRecentEra (WriteTx.recentEra @era)))
-        $ currentNodeProtocolParameters pp
-    )
+            ]) $ currentNodeProtocolParameters pp
+    bundledPParams = Cardano.bundleProtocolParams
+        (WriteTx.fromRecentEra (WriteTx.recentEra @era))
+        nodePParams
+    ledgerPParams = Cardano.unbundleLedgerShelleyBasedProtocolParams
+        (WriteTx.shelleyBasedEraFromRecentEra $ WriteTx.recentEra @era)
+        bundledPParams