git.iko.soy/docker-hs
on master help sign in
Integration test for #49
commit1506b2d0a7cbf82fece716afb4f4000ee4078d07 authorJames Parker <dev@jamesparker.me> dateSun 7 Jan 2018, 19:45 (9 years ago) parent8d1dd6d
2 files changed+3−2
compare with master
unifiedsplit
tests/Dockerfile+1−1 tests/tests.hs+2−1
tests/Dockerfile+1−1
@@ -1,4 +1,4 @@
11FROM debian:jessie
22
3−CMD ["/bin/bash", "-c", "echo 123"]
3+CMD ["/bin/bash", "-c", "echo $TEST"]
44
tests/tests.hs+2−1
@@ -80,7 +80,8 @@ testBuildFromDockerfile = do
8080testRunAndReadLog :: IO ()
8181testRunAndReadLog =
8282 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
8485 c <- fromRight containerId
8586 status1 <- startContainer defaultStartOpts c
8687 _ <- inspectContainer c >>= fromRight