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

Refactor keywords to strings

Browse source 
Because the yaml reader reads clojure keywords as string.
This commit is contained in:
erik 2023-01-27 12:23:01 +01:00
parent 4533a8dfff
commit 64298cc69e
2 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -24,7 +24,7 @@
(defn stage? (defn stage?
[input] [input]
(contains? #{:prod :acc :int :test :dev} input)) (contains? #{"prod" "acc" "int" "test" "dev"} input))
(defn map-or-seq? (defn map-or-seq?
[input] [input]
@ -33,7 +33,7 @@
(defn pvc-storage-class-name? (defn pvc-storage-class-name?
[input] [input]
(contains? #{:manual :local-path} input)) (contains? #{"manual" "local-path"} input))
(defn port-number? (defn port-number?
[input] [input]

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

@ -34,9 +34,9 @@
(is (false? (cut/map-or-seq? "1,2,3")))) (is (false? (cut/map-or-seq? "1,2,3"))))
(deftest test-pvc-storage-class-name? (deftest test-pvc-storage-class-name?
(is (true? (cut/pvc-storage-class-name? :manual))) (is (true? (cut/pvc-storage-class-name? "manual")))
(is (true? (cut/pvc-storage-class-name? :local-path))) (is (true? (cut/pvc-storage-class-name? "local-path")))
(is (false? (cut/pvc-storage-class-name? :none)))) (is (false? (cut/pvc-storage-class-name? "none"))))
(deftest test-port-number? (deftest test-port-number?
(is (true? (cut/port-number? 1))) (is (true? (cut/port-number? 1)))