@@ -73,15 +73,12 @@ testFindImage =
74testListContainers :: IO ()
74testListContainers :: IO ()
75testListContainers =
75testListContainers =
76− runDocker $ do
76+ runDocker $
77+ do containerId <- createContainer (defaultCreateOpts (testImageName <> ":latest")) Nothing
78+ c <- fromRight containerId
77− res <- listContainers $ ListOpts { all=True }
79+ res <- listContainers $ ListOpts { all=True }
78− case res of
80+ deleteContainer (DeleteOpts True True) c
81− lift $ print (containerNetworks r)
82− lift $ print (containerStatus r)
83− Left e -> lift $ print e
84− lift $ assert $ isRight res
81+ lift $ assert $ isRight res
86testBuildFromDockerfile :: IO ()
83testBuildFromDockerfile :: IO ()
87testBuildFromDockerfile = do
84testBuildFromDockerfile = do