CI: Tweaks to debug

cardano-foundation · Sep 15, 2020 · 32a7736 · 32a7736
1 parent 51d8705
commit 32a7736
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/lib/shelley/test/integration/Main.hs b/lib/shelley/test/integration/Main.hs
@@ -91,7 +91,7 @@ import System.Directory
 import System.Environment
     ( lookupEnv )
 import System.Exit
-    ( die )
+    ( ExitCode (..), die, exitWith )
 import System.FilePath
     ( (</>) )
 import System.IO
@@ -217,6 +217,14 @@ specWithServer (tr, tracers) = aroundAll withContext . after tearDown
         testPoolConfigs' <- poolConfigsFromEnv
         withSystemTempDir tr' "test" $ \dir -> do
             extraLogDir <- (fmap (,Info)) <$> testLogDirFromEnv
+
+            case extraLogDir of
+                Just (d, _) -> do
+                    writeFile (d </> "foo.log") "Hello world"
+                    putStrLn "Did write file!"
+                    exitWith ExitSuccess
+                _ -> fail "TESTS_LOGDIR not set!"
+
             withCluster
                 tr' -- TODO: Use testMinSeverityFromEnv
                 minSev