Merge branch 'master' into 'yaml-ns-refactoring'

# Conflicts:
#   src/test/cljc/dda/c4k_common/common_test.cljc

package.json

@@ -22,7 +22,7 @@
         "url": "https://gitlab.com/domaindrivenarchitecture/c4k-common/issues"
     },
     "dependencies": {
-    "js-base64": "^3.6.1",
+        "js-base64": "^3.7.2",
         "js-yaml": "^4.0.0"
     },
     "devDependencies": {

src/main/cljc/dda/c4k_common/predicate.cljc

@@ -44,6 +44,12 @@
               (fqdn-string? (first 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?
   [input]
   (and (sequential? input)

src/test/cljc/dda/c4k_common/predicate_test.cljc

@@ -51,6 +51,15 @@
   (is (false? (cut/host-and-port-string? "test.123:1234")))
   (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?
   (is (true? (cut/string-sequence? ["hallo" "welt" "!"])))
   (is (false? (cut/string-sequence? ["hallo" 1 "welt" "!"])))