@@ -76,13 +76,11 @@ testRunAndReadLog =
76 status1 <- startContainer defaultStartOpts c
76 status1 <- startContainer defaultStartOpts c
77 _ <- inspectContainer c >>= fromRight
77 _ <- inspectContainer c >>= fromRight
78 lift $ threadDelay 300000 -- give 300ms for the application to finish
78 lift $ threadDelay 300000 -- give 300ms for the application to finish
79− lift $ assert $ isRightUnit status1
79+ lift $ assertBool ("starting the container, unexpected status: " ++ show status1) $ isRightUnit status1
80− status2 <- killContainer SIGTERM c
81 logs <- getContainerLogs defaultLogOpts c >>= fromRight
80 logs <- getContainerLogs defaultLogOpts c >>= fromRight
82− lift $ assert $ isRightUnit status2
83 lift $ assert $ (C.pack "123") `C.isInfixOf` (toStrict1 logs)
81 lift $ assert $ (C.pack "123") `C.isInfixOf` (toStrict1 logs)
84 status3 <- deleteContainer (DeleteOpts True True) c
82 status3 <- deleteContainer (DeleteOpts True True) c
85− lift $ assert $ isRightUnit status3
83+ lift $ assertBool ("deleting container, unexpected status: " ++ show status3) $ isRightUnit status3
87 isRightUnit (Right ()) = True
85 isRightUnit (Right ()) = True
88 isRightUnit _ = False
86 isRightUnit _ = False
@@ -201,4 +199,3 @@ main = do
201 Just _ -> do
199 Just _ -> do
203 defaultMain $ testGroup "Tests" [jsonTests, integrationTests]
201 defaultMain $ testGroup "Tests" [jsonTests, integrationTests]