Add unit tests for variant/->map & variant/exclude?

Author: cap10morgan

test/docker_clojure/variant_test.clj

@@ -1,7 +1,10 @@
 (ns docker-clojure.variant-test
-  (:require [clojure.test :refer :all]
-            [docker-clojure.variant :refer :all]
-            [docker-clojure.config :as cfg]))
+  (:refer-clojure :exclude [compare sort])
+  (:require [clojure.string :as str]
+            [clojure.test :refer :all]
+            [docker-clojure.config :as cfg]
+            [docker-clojure.core :as-alias core]
+            [docker-clojure.variant :refer :all]))
 
 (deftest ->map-test
   (testing "returns the expected map version of the image variant list"
@@ -17,4 +20,46 @@
               :maintainer         "Paul Lam <[email protected]> & Wes Morgan <[email protected]>"
               :architecture       "i386"}
              (->map '("eclipse-temurin" 8 :distro/distro
-                      ["build-tool" "1.2.3"] "i386")))))))
+                      ["build-tool" "1.2.3"] "i386"))))
+
+      (is (= {:jdk-version        22
+              :base-image         "debian"
+              :base-image-tag     "debian:bookworm"
+              :distro             :debian/bookworm
+              :build-tool         "tools-deps"
+              :docker-tag         "temurin-22-tools-deps-1.12.0.1530"
+              :build-tool-version "1.12.0.1530"
+              :maintainer         "Paul Lam <[email protected]> & Wes Morgan <[email protected]>"
+              :architecture       "arm64"}
+             (->map '("debian" 22 :debian/bookworm
+                      ["tools-deps" "1.12.0.1530"] "arm64"))))
+
+      (is (= {:jdk-version         22
+              :base-image          "debian"
+              :base-image-tag      "debian:bookworm"
+              :distro              :debian/bookworm
+              :build-tool          ::core/all
+              :docker-tag          "latest"
+              :build-tool-version  nil
+              :build-tool-versions cfg/build-tools
+              :maintainer          "Paul Lam <[email protected]> & Wes Morgan <[email protected]>"
+              :architecture        "arm64"}
+             (->map '("debian" 22 :debian/bookworm
+                      [::core/all] "arm64")))))))
+
+(deftest exclude?-test
+  (testing "gets excluded if contains every key-value pair in exclusion"
+    (is (exclude? {:foo "bar" :baz "qux" :other "thingy"}
+                  {:foo "bar" :baz "qux"})))
+  (testing "gets excluded if pred fn returns true"
+    (is (exclude? {:foo "bar" :baz "qux" :other "thingy"}
+                  {:foo #(str/starts-with? % "b") :baz "qux"})))
+  (testing "remains included if missing one key-value pair from exclusion"
+    (is (not (exclude? {:foo "bar" :other "thingy"}
+                       {:foo "bar" :baz "qux"}))))
+  (testing "remains included if key's value doesn't match exclusion's"
+    (is (not (exclude? {:foo "burp" :baz "qux" :other "thingy"}
+                       {:foo "bar" :baz "qux"}))))
+  (testing "remains included if pred fn returns false"
+    (is (not (exclude? {:foo "bar" :baz "qux" :other "thingy"}
+                       {:foo "bar" :baz #(> (count %) 3)})))))