@@ -80,7 +80,8 @@ testBuildFromDockerfile = do
80testRunAndReadLog :: IO ()
80testRunAndReadLog :: IO ()
81testRunAndReadLog =
81testRunAndReadLog =
82 runDocker $
82 runDocker $
83− do containerId <- createContainer (defaultCreateOpts (testImageName <> ":latest")) Nothing
83+ do let containerConfig = (defaultContainerConfig (testImageName <> ":latest")) {env = [EnvVar "TEST" "123"]}
84+ containerId <- createContainer (CreateOpts containerConfig defaultHostConfig) Nothing
84 c <- fromRight containerId
85 c <- fromRight containerId
85 status1 <- startContainer defaultStartOpts c
86 status1 <- startContainer defaultStartOpts c
86 _ <- inspectContainer c >>= fromRight
87 _ <- inspectContainer c >>= fromRight