Debug in progress

Author: erikd

cardano-chain-gen/test/Test/Cardano/Db/Mock/Config.hs

@@ -105,6 +105,8 @@ import System.Directory (createDirectoryIfMissing, removePathForcibly)
 import System.FilePath.Posix (takeDirectory, (</>))
 import System.IO.Silently (hSilence)
 
+import Debug.Trace as Trace
+
 data Config = Config
   { topLevelConfig :: TopLevelConfig CardanoBlock
   , protocolInfo :: Consensus.ProtocolInfo CardanoBlock
@@ -474,7 +476,8 @@ withCustomConfigAndDropDB ::
   IOManager ->
   [(Text, Text)] ->
   IO a
-withCustomConfigAndDropDB =
+withCustomConfigAndDropDB = do
+  Trace.traceM "withCustomConfigAndDropDB: Start"
   withFullConfig'
     ( WithConfigArgs
         { hasFingerprint = True
@@ -540,6 +543,7 @@ withFullConfig' ::
   [(Text, Text)] ->
   IO a
 withFullConfig' WithConfigArgs {..} cmdLineArgs mSyncNodeConfig configFilePath testLabelFilePath action iom migr = do
+  Trace.traceM "withFullConfig': Start"
   recreateDir mutableDir
   -- check if custom syncNodeConfigs have been passed or not
   syncNodeConfig <-

cardano-chain-gen/test/Test/Cardano/Db/Mock/Unit/Conway/Config/JsonbInSchema.hs

@@ -16,8 +16,11 @@ import Test.Cardano.Db.Mock.Config
 import Test.Cardano.Db.Mock.Validate
 import Test.Tasty.HUnit (Assertion ())
 
+import Debug.Trace as Trace
+
 configRemoveJsonbFromSchemaEnabled :: IOManager -> [(Text, Text)] -> Assertion
 configRemoveJsonbFromSchemaEnabled = do
+  Trace.traceM "configRemoveJsonbFromSchemaEnabled: Outside"
   withCustomConfigAndDropDB args (Just configRemoveJsonFromSchema) cfgDir testLabel $ \_interpreter _mockServer dbSync -> do
     startDBSync dbSync
     threadDelay 7_000_000
@@ -27,6 +30,7 @@ configRemoveJsonbFromSchemaEnabled = do
       False
       "There should be no jsonb data types in database if option is enabled"
     checkStillRuns dbSync
+    Trace.traceM "configRemoveJsonbFromSchemaEnabled: End"
   where
     args = initCommandLineArgs {claFullMode = False}
     testLabel = "conwayConfigRemoveJsonbFromSchemaEnabled"
@@ -37,6 +41,7 @@ configRemoveJsonbFromSchemaDisabled :: IOManager -> [(Text, Text)] -> Assertion
 configRemoveJsonbFromSchemaDisabled = do
   withCustomConfigAndDropDB args (Just configRemoveJsonFromSchemaFalse) cfgDir testLabel $
     \_interpreter _mockServer dbSync -> do
+      Trace.traceM "configRemoveJsonbFromSchemaDisabled A"
       startDBSync dbSync
       threadDelay 7_000_000
       assertEqQuery