28 lines
625 B
Clojure
28 lines
625 B
Clojure
|
(ns babashka.test-utils
|
||
|
|
(:require
|
||
|
|
[babashka.main :as main]
|
||
|
|
[me.raynes.conch :refer [let-programs] :as sh]))
|
||
|
|
|
||
|
|
(set! *warn-on-reflection* true)
|
||
|
|
|
||
|
|
(defn bb-jvm [input & args]
|
||
|
|
(with-out-str
|
||
|
|
(with-in-str input
|
||
|
|
(apply main/-main args))))
|
||
|
|
|
||
|
|
(defn bb-native [input & args]
|
||
|
|
(let-programs [bb "./bb"]
|
||
|
|
(binding [sh/*throw* false]
|
||
|
|
(apply bb (conj (vec args)
|
||
|
|
{:in input})))))
|
||
|
|
|
||
|
|
(def bb
|
||
|
|
(case (System/getenv "BB_TEST_ENV")
|
||
|
|
"jvm" #'bb-jvm
|
||
|
|
"native" #'bb-native
|
||
|
|
#'bb-jvm))
|
||
|
|
|
||
|
|
(if (= bb #'bb-jvm)
|
||
|
|
(println "==== Testing JVM version")
|
||
|
|
(println "==== Testing native version"))
|