18 lines
627 B
Clojure
18 lines
627 B
Clojure
(ns babashka.file-var-test
|
|
(:require
|
|
[babashka.test-utils :as tu]
|
|
[clojure.string :as str]
|
|
[clojure.test :as t :refer [deftest is]]))
|
|
|
|
(defn bb [input & args]
|
|
(apply tu/bb (when (some? input) (str input)) (map str args)))
|
|
|
|
(deftest file-var-test
|
|
(let [[f1 f2 f3 f4]
|
|
(str/split (bb nil "--classpath" "test/babashka/scripts"
|
|
"test/babashka/scripts/file_var.bb")
|
|
#"\n")]
|
|
(is (str/ends-with? f1 "file_var_classpath.bb"))
|
|
(is (str/ends-with? f2 "loaded_by_file_var.bb"))
|
|
(is (str/ends-with? f3 "file_var.bb"))
|
|
(is (str/ends-with? f4 "file_var.bb"))))
|