luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

make the REPL requires available to command-line scripts (#972)

Browse source
This commit is contained in:
Bob 2021-08-22 17:20:41 -04:00 committed by GitHub
parent 72d3afa698
commit a85d593767
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
2 changed files with 17 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/babashka/main.clj
View file

@ -792,6 +792,9 @@ Use bb run --help to show this help output.
expressions
(sci/binding [sci/file abs-path]
(try
; when evaluating expression(s), add in repl-requires so things like
; pprint and dir are available
(sci/eval-form sci-ctx `(apply require (quote ~clojure-main/repl-requires)))
(loop []
(let [in (read-next *in*)]
(if (identical? ::EOF in)

14
test/babashka/main_test.clj
View file

@ -705,6 +705,20 @@ true")))
(is (= "foo" (bb nil "-e" "(binding [*print-readably* false] (pr-str \"foo\"))")))
(is (= "foo\n" (bb nil "-e" "(binding [*print-readably* false] (with-out-str (clojure.pprint/pprint \"foo\")))"))))
; repl-requires: '[[clojure.repl :refer (source apropos pst dir doc find-doc)]
; [clojure.pprint :refer (pp pprint)]]
(deftest repl-requires-test
(testing "the elements of repl-requires are available to scripts passed on the command line"
(is (str/includes? (bb nil "
(load-file \"test-resources/babashka/file_location2.clj\")
(require '[babashka.file-location2 :as fl])
(source fl/ok)") "ok"))
; using <= in case new matching functions get added
(is (<= 8 (bb nil '(count (apropos "first")))))
(is (= [1 2 3] (bb "[1 2 3]" "(pprint *input*)")))
(let [first-doc (test-utils/bb nil "(doc first)")]
(is (every? #(str/includes? first-doc %) ["---" "clojure.core/first" "first item"])))))
;;;; Scratch
(comment