@@ -56,6 +56,7 @@ runAndReadLog = runDocker $ do
56 containerId <- createContainer (defaultCreateOpts (testImageName <> ":latest"))
56 containerId <- createContainer (defaultCreateOpts (testImageName <> ":latest"))
57 c <- fromRight containerId
57 c <- fromRight containerId
58 status1 <- startContainer defaultStartOpts c
58 status1 <- startContainer defaultStartOpts c
59+ _ <- inspectContainer c >>= fromRight
59 lift $ threadDelay 300000 -- give 300ms for the application to finish
60 lift $ threadDelay 300000 -- give 300ms for the application to finish
60 lift $ assert $ status1 == Right ()
61 lift $ assert $ status1 == Right ()
61 status2 <- killContainer SIGTERM c
62 status2 <- killContainer SIGTERM c