a0ace650f1
It was previously using the classpath coming from the parameters/env. We need to use cp/get-classpath for taking into consideration the classpath coming from bb.edn.
39 lines
1.9 KiB
Clojure
39 lines
1.9 KiB
Clojure
(ns babashka.uberjar-test
|
|
(:require
|
|
[babashka.test-utils :as tu]
|
|
[clojure.string :as str]
|
|
[clojure.test :as t :refer [deftest is testing]]))
|
|
|
|
(deftest uberjar-test
|
|
(testing "uberjar with --main"
|
|
(let [tmp-file (java.io.File/createTempFile "uber" ".jar")
|
|
path (.getPath tmp-file)]
|
|
(.deleteOnExit tmp-file)
|
|
(tu/bb nil "uberjar" path "--classpath" "test-resources/babashka/uberjar/src" "-m" "my.main-main")
|
|
(is (= "(\"1\" \"2\" \"3\" \"4\")\n"
|
|
(tu/bb nil "--jar" path "1" "2" "3" "4")))
|
|
(is (= "(\"1\" \"2\" \"3\" \"4\")\n"
|
|
(tu/bb nil "-jar" path "1" "2" "3" "4")))
|
|
(is (= "(\"1\" \"2\" \"3\" \"4\")\n"
|
|
(tu/bb nil path "1" "2" "3" "4")))))
|
|
(testing "without main, a REPL starts"
|
|
;; NOTE: if we choose the same tmp-file as above and doing this all in the
|
|
;; same JVM process, the below test fails because my.main-main will be the
|
|
;; main class in the manifest, even if we delete the tmp-file, which may
|
|
;; indicate a state-related bug somewhere!
|
|
(let [tmp-file (java.io.File/createTempFile "uber" ".jar")
|
|
path (.getPath tmp-file)]
|
|
(.deleteOnExit tmp-file)
|
|
(tu/bb nil "uberjar" path "--classpath" "test-resources/babashka/uberjar/src")
|
|
(is (str/includes? (tu/bb "(+ 1 2 3)" path) "6"))))
|
|
(testing "use bb.edn classpath when no other --classpath"
|
|
(tu/with-config {:paths ["test-resources/babashka/uberjar/src"]}
|
|
(let [tmp-file (java.io.File/createTempFile "uber" ".jar")
|
|
path (.getPath tmp-file)]
|
|
(.deleteOnExit tmp-file)
|
|
;; building with no --classpath
|
|
(tu/bb nil "uberjar" path "-m" "my.main-main")
|
|
;; running
|
|
(is (= "(\"42\")\n" (tu/bb nil "--jar" path "-m" "my.main-main" "42")))
|
|
(is (= "(\"42\")\n" (tu/bb nil "--classpath" path "-m" "my.main-main" "42")))
|
|
(is (= "(\"42\")\n" (tu/bb nil path "42")))))))
|