2020-05-09 12:03:50 +00:00
|
|
|
(ns babashka.pods.jvm-test
|
2020-12-29 10:15:12 +00:00
|
|
|
(:require [babashka.pods.test-common :refer [test-program assertions
|
|
|
|
|
pod-registry]]
|
|
|
|
|
[clojure.string :as str]
|
|
|
|
|
[clojure.test :refer [deftest is]]))
|
2020-05-09 12:03:50 +00:00
|
|
|
|
2020-05-09 12:09:58 +00:00
|
|
|
(deftest jvm-test
|
2020-05-09 12:03:50 +00:00
|
|
|
(let [out (java.io.StringWriter.)
|
|
|
|
|
err (java.io.StringWriter.)
|
|
|
|
|
ret (binding [*out* out
|
|
|
|
|
*err* err]
|
|
|
|
|
(try (load-string
|
2020-05-09 13:25:29 +00:00
|
|
|
test-program)
|
2020-05-09 12:03:50 +00:00
|
|
|
(catch Exception e (prn e))))]
|
|
|
|
|
|
2020-05-17 13:25:04 +00:00
|
|
|
(assertions out err ret)))
|
2020-12-29 10:15:12 +00:00
|
|
|
|
|
|
|
|
(deftest pod-registry-test
|
|
|
|
|
(let [out (java.io.StringWriter.)
|
|
|
|
|
err (java.io.StringWriter.)
|
|
|
|
|
ex (binding [*out* out
|
2022-12-29 16:04:00 +00:00
|
|
|
*err* err]
|
2020-12-29 10:15:12 +00:00
|
|
|
(try (load-string
|
|
|
|
|
pod-registry)
|
|
|
|
|
(catch Exception e
|
|
|
|
|
e)))]
|
|
|
|
|
(is (str/includes? (str out) "c3ab8ff13720e8ad9047dd39466b3c8974e592c2fa383d4a3960714caef0c4f2"))
|
2022-03-23 15:57:56 +00:00
|
|
|
(is (str/includes? (pr-str ex) "Version or path must be provided"))))
|
