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

add a couple tests for arg parsing

Browse source
This commit is contained in:
Bob 2024-05-25 16:51:58 -04:00
parent 5cd2b9d6e6
commit bad1628607
No known key found for this signature in database
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
test/babashka/main_test.clj
View file

@ -68,6 +68,10 @@
(is (= {:force? true :repl true} (parse-opts ["--force" "repl"])))
(is (= {:force? true :clojure true :command-line-args '("-M" "-r")}
(parse-opts ["--force" "clojure" "-M" "-r"])))
(is (= {:command-line-args '("asdf" "fdsa")}
(main/parse-opts ["--" "asdf" "fdsa"])))
(is (= {:repl true :command-line-args '("asdf" "fdsa")}
(main/parse-opts ["repl" "--" "asdf" "fdsa"])))
(testing "file opts parsing does not mess with :command-line-args"
(is (= {:prn true, :expressions ["(prn :foo)"]}
(-> (let [[_ opts] (main/parse-file-opt ["-e" "(prn :foo)"] {})]