22 lines
819 B
Clojure
22 lines
819 B
Clojure
(ns contajners.core-test
|
|
(:require [clojure.test :as t]
|
|
[contajners.core :as c]))
|
|
|
|
(t/deftest docker-tests
|
|
(let [image "busybox:musl"
|
|
client (c/client {:engine :docker
|
|
:version "v1.41"
|
|
:category :images
|
|
:conn {:uri "unix:///var/run/docker.sock"}})]
|
|
(t/testing "pull an image"
|
|
(c/invoke client
|
|
{:op :ImageCreate
|
|
:params {:fromImage image}})
|
|
(let [images (c/invoke client {:op :ImageList})]
|
|
(t/is (contains? (->> images
|
|
(mapcat :RepoTags)
|
|
(into #{}))
|
|
image)))
|
|
(c/invoke client
|
|
{:op :ImageDelete
|
|
:params {:name image}}))))
|