include inspect container in tests
commitae66f6951ecd90fc5c60a324b3efd12b7112810b
authorJames Parker <dev@jamesparker.me>
dateTue 2 Aug 2016, 12:30 (10 years ago)
parent7b62e6a
tests/tests.hs+1
@@ -56,6 +56,7 @@ runAndReadLog = runDocker $ do
5656 containerId <- createContainer (defaultCreateOpts (testImageName <> ":latest"))
5757 c <- fromRight containerId
5858 status1 <- startContainer defaultStartOpts c
59+ _ <- inspectContainer c >>= fromRight
5960 lift $ threadDelay 300000 -- give 300ms for the application to finish
6061 lift $ assert $ status1 == Right ()
6162 status2 <- killContainer SIGTERM c