diff --git a/src/main/cljc/dda/c4k_common/predicate.cljc b/src/main/cljc/dda/c4k_common/predicate.cljc index 49a3132..b6be693 100644 --- a/src/main/cljc/dda/c4k_common/predicate.cljc +++ b/src/main/cljc/dda/c4k_common/predicate.cljc @@ -24,7 +24,7 @@ (defn stage? [input] - (contains? #{:prod :acc :int :test :dev} input)) + (contains? #{"prod" "acc" "int" "test" "dev"} input)) (defn map-or-seq? [input] @@ -33,7 +33,7 @@ (defn pvc-storage-class-name? [input] - (contains? #{:manual :local-path} input)) + (contains? #{"manual" "local-path"} input)) (defn port-number? [input] diff --git a/src/test/cljc/dda/c4k_common/predicate_test.cljc b/src/test/cljc/dda/c4k_common/predicate_test.cljc index a492a0e..dc3b420 100644 --- a/src/test/cljc/dda/c4k_common/predicate_test.cljc +++ b/src/test/cljc/dda/c4k_common/predicate_test.cljc @@ -34,9 +34,9 @@ (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)))) + (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)))