28 lines
1,014 B
Clojure
28 lines
1,014 B
Clojure
(ns babashka.pods.jvm-test
|
|
(:require [babashka.pods.test-common :refer [test-program assertions
|
|
pod-registry]]
|
|
[clojure.string :as str]
|
|
[clojure.test :refer [deftest is]]))
|
|
|
|
(deftest jvm-test
|
|
(let [out (java.io.StringWriter.)
|
|
err (java.io.StringWriter.)
|
|
ret (binding [*out* out
|
|
*err* err]
|
|
(try (load-string
|
|
test-program)
|
|
(catch Exception e (prn e))))]
|
|
|
|
(assertions out err ret)))
|
|
|
|
(deftest pod-registry-test
|
|
(let [out (java.io.StringWriter.)
|
|
err (java.io.StringWriter.)
|
|
ex (binding [*out* out
|
|
*err* err]
|
|
(try (load-string
|
|
pod-registry)
|
|
(catch Exception e
|
|
e)))]
|
|
(is (str/includes? (str out) "c3ab8ff13720e8ad9047dd39466b3c8974e592c2fa383d4a3960714caef0c4f2"))
|
|
(is (str/includes? (pr-str ex) "Version must be provided" ))))
|