meissa/c4k-common
6
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add tests for all remaining predicates

Browse source
This commit is contained in:
bom 2022-07-27 11:30:16 +02:00
parent f403f9452b
commit aa55ae4606
1 changed files with 41 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

43
src/test/cljc/dda/c4k_common/predicate_test.cljc
View file

@ -2,12 +2,51 @@
(:require (:require
#?(:clj [clojure.test :refer [deftest is are testing run-tests]] #?(:clj [clojure.test :refer [deftest is are testing run-tests]]
:cljs [cljs.test :refer-macros [deftest is are testing run-tests]]) :cljs [cljs.test :refer-macros [deftest is are testing run-tests]])
[clojure.spec.test.alpha :as st]
[dda.c4k-common.predicate :as cut])) [dda.c4k-common.predicate :as cut]))
(deftest test-bash-env-string? (deftest test-bash-env-string?
(is (true? (cut/bash-env-string? "abcd"))) (is (true? (cut/bash-env-string? "abcd")))
(is (false? (cut/bash-env-string? "$abdc"))) (is (false? (cut/bash-env-string? "$abdc")))
(is (false? (cut/bash-env-string? "\"abdc")))) (is (false? (cut/bash-env-string? "\"abdc"))))
(deftest test-fqdn-string?
(is (true? (cut/fqdn-string? "abc.test.de")))
(is (true? (cut/fqdn-string? "abc.def.fed.cba.abc.def.fed.cba")))
(is (true? (cut/fqdn-string? "123.456.de")))
(is (false? (cut/fqdn-string? "123.456.789")))
(is (false? (cut/fqdn-string? "test&test.de"))))
(deftest test-string-of-separated-by?
(is (true? (cut/string-of-separated-by? "abcd" cut/bash-env-string? #":")))
(is (true? (cut/string-of-separated-by? "abcd:efgh" cut/bash-env-string? #":")))
(is (false? (cut/string-of-separated-by? "abcd:ef$gh" cut/bash-env-string? #":")))
(is (true? (cut/string-of-separated-by? "test.de,test-gmbh.de,test-llc.com" cut/fqdn-string? #",")))
(is (false? (cut/string-of-separated-by? "test.123,test.de" cut/fqdn-string? #","))))
(deftest test-letsencrypt-issuer?
(is (false? (cut/letsencrypt-issuer? "issuer")))
(is (true? (cut/letsencrypt-issuer? "staging")))
(is (true? (cut/letsencrypt-issuer? "prod"))))
(deftest test-map-or-seq?
(is (true? (cut/map-or-seq? {:a 1 :b 2})))
(is (true? (cut/map-or-seq? '(1 2 3))))
(is (false? (cut/map-or-seq? "1,2,3"))))
(deftest test-pvc-storage-class-name?
(is (true? (cut/pvc-storage-class-name? :manual)))
(is (true? (cut/pvc-storage-class-name? :local-path)))
(is (false? (cut/pvc-storage-class-name? :none))))
(deftest test-port-number?
(is (true? (cut/port-number? 1)))
(is (true? (cut/port-number? 65535)))
(is (false? (cut/port-number? 0)))
(is (false? (cut/port-number? 65536)))
(is (false? (cut/port-number? "12345"))))
(deftest test-host-and-port-string?
(is (true? (cut/host-and-port-string? "test.de:1234")))
(is (false? (cut/host-and-port-string? "test.de,1234")))
(is (false? (cut/host-and-port-string? "test.123:1234")))
(is (false? (cut/host-and-port-string? "test.de:abc"))))