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

wip [skip ci]

Browse source
This commit is contained in:
Michiel Borkent 2023-04-21 10:47:57 +02:00
parent 631f54e4e2
commit 663052bda3
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/babashka/main.clj
View file

@ -317,7 +317,7 @@ Use bb run --help to show this help output.
(let [user-middleware (when-not (str/blank? user-middleware) (let [user-middleware (when-not (str/blank? user-middleware)
(read-string user-middleware)) (read-string user-middleware))
opts (nrepl-server/parse-opt address) opts (nrepl-server/parse-opt address)
opts (assoc opts :user-middleware user-middleware)] opts (assoc opts :middleware user-middleware)]
(babashka.impl.nrepl-server/start-server! opts)) (babashka.impl.nrepl-server/start-server! opts))
(binding [*out* *err*] (binding [*out* *err*]
(println "For more info visit: https://book.babashka.org/#_nrepl")) (println "For more info visit: https://book.babashka.org/#_nrepl"))
@ -648,7 +648,7 @@ Use bb run --help to show this help output.
(recur options (recur options
(assoc opts-map (assoc opts-map
:nrepl (or opt "1667")))) :nrepl (or opt "1667"))))
("--middlware") ("--middleware")
(let [options (next options)] (let [options (next options)]
(recur (next options) (recur (next options)
(assoc opts-map (assoc opts-map

2
test/babashka/main_test.clj
View file

@ -26,7 +26,7 @@
(is (= "1667" (is (= "1667"
(:nrepl (parse-opts ["--nrepl-server"])))) (:nrepl (parse-opts ["--nrepl-server"]))))
(is (= "[foo]" (is (= "[foo]"
(:middleware (parse-opts ["--middlware" "[foo]"])))) (:middleware (parse-opts ["--middleware" "[foo]"]))))
(is (= "1666" (is (= "1666"
(:socket-repl (parse-opts ["--socket-repl"])))) (:socket-repl (parse-opts ["--socket-repl"]))))
(is (= {:nrepl "1667", :classpath "src"} (is (= {:nrepl "1667", :classpath "src"}