feat(sut): make clients in benchmark always start with a write

src/sut/dumblog/bench/Common.hs

@@ -110,7 +110,10 @@ commonBenchmark clients (_a, hc) = do
                                                      (max endMaxMemInUse startMaxMemInUse))
 
 commonClient :: HttpClient -> Int -> StdGen -> IO ()
-commonClient hc iterations gen = go iterations 0 gen
+commonClient hc iterations gen = do
+  mMaxIndex <- writeHttp hc vALUE_TO_WRITE
+  let maxIndex = fromMaybe (error "commonClient: initial write failed...") mMaxIndex
+  go (iterations - 1) maxIndex gen
   where
     go :: Int -> Int -> StdGen -> IO ()
     go 0 _maxIndex _gen = return ()

src/sut/dumblog/src/Dumblog/SQLite/Main.hs

@@ -1,15 +1,16 @@
 module Dumblog.SQLite.Main where
 
-import Control.Exception (bracket)
 import Control.Concurrent (MVar)
 import Control.Concurrent.Async (withAsync)
 import Control.Concurrent.STM.TBQueue (newTBQueueIO)
+import Control.Exception (bracket)
+import System.Directory (removePathForcibly)
 
-import Journal.Internal.Metrics
 import Dumblog.Common.Metrics
+import Dumblog.SQLite.DB
 import Dumblog.SQLite.FrontEnd
 import Dumblog.SQLite.Worker
-import Dumblog.SQLite.DB
+import Journal.Internal.Metrics
 
 ------------------------------------------------------------------------
 
@@ -24,4 +25,5 @@ sqliteDumblog capacity port mReady = do
 main :: IO ()
 main = do
   putStrLn "Starting Dumblog (SQLite)"
+  removePathForcibly sQLITE_DB_PATH
   sqliteDumblog (64 * 1024) 8054 Nothing