23 lines
819 B
Clojure
23 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}}))))
|