wb | latency is a cloud profile (nomadcloud backend)

Author: fmaste

bench/cardano-profile/cardano-profile.cabal

@@ -56,7 +56,6 @@ library
                       , Cardano.Benchmarking.Profile.Builtin.Plutuscall
                       , Cardano.Benchmarking.Profile.Builtin.Scenario.Base
                       , Cardano.Benchmarking.Profile.Builtin.Scenario.Chainsync
-                      , Cardano.Benchmarking.Profile.Builtin.Scenario.Latency
                       , Cardano.Benchmarking.Profile.Builtin.Scenario.Idle
                       , Cardano.Benchmarking.Profile.Builtin.Scenario.TracerOnly
                       , Cardano.Benchmarking.Profile.Extra.Scaling

bench/cardano-profile/src/Cardano/Benchmarking/Profile.hs

@@ -41,7 +41,6 @@ import           Cardano.Benchmarking.Profile.Builtin.Model               (profi
 import           Cardano.Benchmarking.Profile.Builtin.Plutuscall          (profilesNoEraPlutuscall)
 import           Cardano.Benchmarking.Profile.Builtin.Scenario.Chainsync  (profilesNoEraChainsync)
 import           Cardano.Benchmarking.Profile.Builtin.Scenario.Idle       (profilesNoEraIdle)
-import           Cardano.Benchmarking.Profile.Builtin.Scenario.Latency    (profilesNoEraLatency)
 import           Cardano.Benchmarking.Profile.Builtin.Scenario.TracerOnly (profilesNoEraTracerOnly)
 import           Cardano.Benchmarking.Profile.Extra.Scaling               (profilesNoEraScalingLocal, profilesNoEraScalingCloud)
 import           Cardano.Benchmarking.Profile.Extra.Voting                (profilesNoEraVoting)
@@ -142,7 +141,6 @@ profilesNoEra obj = Map.fromList $ map
     -- Empty datasets not running `FixedLoaded`.
     ++ profilesNoEraChainsync        -- Scenario `Chainsync`
     ++ profilesNoEraIdle             -- Scenario `Idle`
-    ++ profilesNoEraLatency          -- Scenario `Latency`
     ++ profilesNoEraTracerOnly       -- Scenario `TracerOnly`
     -- Extra modules
     ++ profilesNoEraScalingLocal
@@ -582,7 +580,6 @@ libMKLocations =
     , ("PROFILES_SCENARIOS"    ,
          profilesNoEraChainsync
       ++ profilesNoEraIdle
-      ++ profilesNoEraLatency
       ++ profilesNoEraTracerOnly
       )
     , ("PROFILES_LEGACY"       ,

bench/cardano-profile/src/Cardano/Benchmarking/Profile/Builtin/Cloud.hs

@@ -18,10 +18,12 @@ import           Prelude
 import           Data.Function ((&))
 -- Package: self.
 import qualified Cardano.Benchmarking.Profile.Builtin.Empty as E
+import qualified Cardano.Benchmarking.Profile.Builtin.Scenario.Base as B
 import qualified Cardano.Benchmarking.Profile.Primitives as P
 import qualified Cardano.Benchmarking.Profile.Types as Types
 import qualified Cardano.Benchmarking.Profile.Vocabulary as V
 import qualified Cardano.Benchmarking.Profile.Workload.Voting as W
+import qualified Cardano.Benchmarking.Profile.Workload.Latency as L
 
 --------------------------------------------------------------------------------
 
@@ -170,10 +172,31 @@ profilesNoEraCloud =
   , loopVoting  & P.name "plutus-voting-volt-nomadperf"                  . P.dreps  10000 . P.newTracing . P.p2pOn . P.workloadAppend W.votingWorkloadx1
   , loopVoting  & P.name "plutus-voting-double-volt-nomadperf"           . P.dreps  10000 . P.newTracing . P.p2pOn . P.workloadAppend W.votingWorkloadx2
   ]
+  -----------
+  -- Latency.
+  -----------
+  ++
+  let latency =
+          P.empty & B.base
+        . P.fixedLoaded
+        . composeFiftytwo
+        -- TODO: Use `genesisVariant300` like the others and to "Scenario.Base".
+        . V.genesisVariantPreVoltaire
+        . V.timescaleCompressed
+         -- TODO: "tracer-only" and "idle" have `P.delegators 6`.
+         --       Remove and use `V.datasetEmpty` in module "Scenario.Base".
+        . P.delegators 0
+        . P.workloadAppend L.latencyWorkload
+        . P.analysisStandard
+  in (
+    latency & P.name "latency-nomadperf"
+            . P.desc "AWS perf class cluster, stop when all latency services stop"
+            . P.traceForwardingOn . P.newTracing . P.p2pOn . nomadPerf
+  )
   ----------------------
   -- Testing benchmarks.
   ----------------------
-  ++
+  :
   -- TODO: Inconsistency: "fast*" and "ci-test*" use `V.valueLocal` and "default*"/"oldtracing" use `V.valueCloud`.
   let valueCI  = P.empty & E.base . V.valueLocal . P.traceForwardingOn . nomadPerf
       fastNP = valueCI

bench/cardano-profile/src/Cardano/Benchmarking/Profile/Builtin/Scenario/Latency.hs

@@ -16,9 +16,11 @@ import           Data.Function ((&))
 -- Package: self.
 import qualified Cardano.Benchmarking.Profile.Builtin.Cloud as C
 import qualified Cardano.Benchmarking.Profile.Builtin.Empty as E
+import qualified Cardano.Benchmarking.Profile.Builtin.Scenario.Base as B
 import qualified Cardano.Benchmarking.Profile.Primitives as P
 import qualified Cardano.Benchmarking.Profile.Types as Types
 import qualified Cardano.Benchmarking.Profile.Vocabulary as V
+import qualified Cardano.Benchmarking.Profile.Workload.Latency as L
 
 --------------------------------------------------------------------------------
 
@@ -63,6 +65,27 @@ profilesNoEraScalingCloud =
   , fast        & P.name "fast-nomadperfssd"  . V.valueLocal . P.traceForwardingOn . P.newTracing . P.p2pOn
   , value       & P.name "value-nomadperfssd" . V.valueCloud . V.datasetOct2021    . P.dreps 0 . V.fundsDouble . P.newTracing . P.p2pOn
   ]
+  -----------
+  -- Latency.
+  -----------
+  ++
+  let latency =
+          P.empty & B.base
+        . P.fixedLoaded
+        . C.composeFiftytwo
+        -- TODO: Use `genesisVariant300` like the others and to "Scenario.Base".
+        . V.genesisVariantPreVoltaire
+        . V.timescaleCompressed
+         -- TODO: "tracer-only" and "idle" have `P.delegators 6`.
+         --       Remove and use `V.datasetEmpty` in module "Scenario.Base".
+        . P.delegators 0
+        . P.workloadAppend L.latencyWorkload
+        . P.analysisStandard
+  in [
+    latency & P.name "latency-nomadperfssd"
+            . P.desc "AWS perf-ssd class cluster, stop when all latency services stop"
+            . P.traceForwardingOn . P.newTracing . P.p2pOn . nomadSsd
+  ]
 
 nomadSsd :: Types.Profile -> Types.Profile
 nomadSsd = clusterNomadSsdNoRegions . nomadSsdRegions