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

Added concat-str-vec with string-vector? pred

Browse source
This commit is contained in:
Clemens Geibel 2022-07-29 12:39:40 +02:00
parent d644e81345
commit c3a14c96d1
3 changed files with 18 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/main/cljc/dda/c4k_common/common.cljc
View file

@ -58,6 +58,11 @@
(into []
(apply concat vs)))
(defn-spec concat-str-vec cp/string-vector?
[& vs (s/* seq?)]
(into []
(apply concat vs)))
(defn generate-common [my-config my-auth config-defaults k8s-objects]
(let [resulting-config (merge config-defaults my-config my-auth)]
(cs/join

6
src/main/cljc/dda/c4k_common/predicate.cljc
View file

@ -44,3 +44,9 @@
(fqdn-string? (first split-string))
(port-number? (edn/read-string (second split-string)))))))
(defn string-vector?
[input]
(and (vector? input)
(every? true?
(map #(string? %) input))))

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

@ -50,3 +50,8 @@
(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"))))
(deftest test-string-vector?
(is (true? (cut/string-vector? ["hallo" "welt" "!"])))
(is (false? (cut/string-vector? ["hallo" 1 "welt" "!"])))
(is (false? (cut/string-vector? "hallo welt!"))))