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

Tasks: fix listing of tasks

Browse source
This commit is contained in:
Michiel Borkent 2021-04-26 10:59:05 +02:00
parent 386cbd4ad6
commit d7075ffad0
2 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/babashka/impl/tasks.clj
View file

@ -289,7 +289,7 @@
(:children forms)) (:children forms))
loc (zip/edn the-map) loc (zip/edn the-map)
loc (zip/down loc) loc (zip/down loc)
loc (zip/find-next-value loc :tasks) loc (zip/find-value loc :tasks)
loc (zip/right loc) loc (zip/right loc)
loc (zip/down loc)] loc (zip/down loc)]
(filter symbol? (filter symbol?

9
test/babashka/bb_edn_test.clj
View file

@ -152,7 +152,14 @@
:task t2/foo}}}" :task t2/foo}}}"
(let [res (test-utils/bb nil "tasks")] (let [res (test-utils/bb nil "tasks")]
(is (= "The following tasks are available:\n\ntask1 task1 doc\ntask2 task2 doc\nfoo Foo docstring\nbar Foo docstring\nbaz \nquux Foo docstring\n" (is (= "The following tasks are available:\n\ntask1 task1 doc\ntask2 task2 doc\nfoo Foo docstring\nbar Foo docstring\nbaz \nquux Foo docstring\n"
res))))) res))))
(testing ":tasks is the first node"
(test-utils/with-config "{:tasks {task1
{:doc \"task1 doc\"
:task (+ 1 2 3)}}}"
(let [res (test-utils/bb nil "tasks")]
(is (= "The following tasks are available:\n\ntask1 task1 doc\n"
res))))))
(deftest task-priority-test (deftest task-priority-test
(when-not test-utils/native? (when-not test-utils/native?