@@ -52,13 +52,9 @@ testDockerVersion = runDocker $ do
52testFindImage :: IO ()
52testFindImage :: IO ()
53testFindImage = runDocker $ do
53testFindImage = runDocker $ do
54 images <- listImages defaultListOpts >>= fromRight
54 images <- listImages defaultListOpts >>= fromRight
55− let xs = filter (tagFilter imageFullName) images
55+ let xs = filter ((== [imageFullName]) . imageRepoTags) images
56 lift $ assert $ length xs == 1
56 lift $ assert $ length xs == 1
57 where imageFullName = testImageName <> ":latest"
57 where imageFullName = testImageName <> ":latest"
58− tagFilter :: Text -> Image -> Bool
59− tagFilter t i = case (imageRepoTags i) of
61− Just tags -> elem t tags
63testRunAndReadLog :: IO ()
59testRunAndReadLog :: IO ()
64testRunAndReadLog = runDocker $ do
60testRunAndReadLog = runDocker $ do