@@ -89,11 +89,17 @@ testBuildFromDockerfile = do
8989 r <- buildImageFromDockerfile (defaultBuildOpts "docker-hs/dockerfile-test") ctxDir
9090 lift $ assert $ isRight r
9191
92+
9293testRunAndReadLog :: IO ()
93−testRunAndReadLog =
94+testRunAndReadLog = testRunAndReadLogHelper $ NetworkingConfig HM.empty
95+
96+testRunAndReadLogWithNetworking :: IO ()
97+testRunAndReadLogWithNetworking = testRunAndReadLogHelper $ NetworkingConfig $ HM.fromList [("test-network", EndpointConfig ["cellar-door"])]
98+
99+testRunAndReadLogHelper :: NetworkingConfig -> IO ()
100+testRunAndReadLogHelper networkingConfig =
94101 runDocker $
95102 do let containerConfig = (defaultContainerConfig (testImageName <> ":latest")) {env = [EnvVar "TEST" "123"]}
96− networkingConfig = NetworkingConfig $ HM.fromList [("test-network", EndpointConfig ["cellar-door"])]
97103 containerId <- createContainer (CreateOpts containerConfig defaultHostConfig networkingConfig) Nothing
98104 c <- fromRight containerId
99105 status1 <- startContainer defaultStartOpts c
@@ -209,6 +215,7 @@ integrationTests =
209215 , testCase "Find image by name" testFindImage
210216 , testCase "List containers" testListContainers
211217 , testCase "Run a dummy container and read its log" testRunAndReadLog
218+ , testCase "Run a dummy container with networking and read its log" testRunAndReadLogWithNetworking
212219 , testCase "Try to stop a container that doesn't exist" testStopNonexisting
213220 ]
214221