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

Added integer-string? predicate

Browse source
This commit is contained in:
Clemens 2022-10-28 12:42:19 +02:00
parent aac5209322
commit e6074cdb4d
2 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -44,6 +44,12 @@
(fqdn-string? (first split-string)) (fqdn-string? (first split-string))
(port-number? (edn/read-string (second split-string))))))) (port-number? (edn/read-string (second split-string)))))))
(defn integer-string?
[input]
(and (string? input)
(some? (re-matches #"^\d+$" input))
(integer? (edn/read-string input))))
(defn string-sequence? (defn string-sequence?
[input] [input]
(and (sequential? input) (and (sequential? input)

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

@ -51,6 +51,15 @@
(is (false? (cut/host-and-port-string? "test.123:1234"))) (is (false? (cut/host-and-port-string? "test.123:1234")))
(is (false? (cut/host-and-port-string? "test.de:abc")))) (is (false? (cut/host-and-port-string? "test.de:abc"))))
(deftest test-integer-string?
(is (true? (cut/integer-string? "1")))
(is (true? (cut/integer-string? "42")))
(is (false? (cut/integer-string? 42)))
(is (false? (cut/integer-string? "42.2")))
(is (false? (cut/integer-string? "4 2")))
(is (false? (cut/integer-string? "1e2")))
(is (false? (cut/integer-string? true))))
(deftest test-string-sequence? (deftest test-string-sequence?
(is (true? (cut/string-sequence? ["hallo" "welt" "!"]))) (is (true? (cut/string-sequence? ["hallo" "welt" "!"])))
(is (false? (cut/string-sequence? ["hallo" 1 "welt" "!"]))) (is (false? (cut/string-sequence? ["hallo" 1 "welt" "!"])))