clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-05-23 12:14:06 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix test

Browse Source
This commit is contained in:
rcmerci
2026-03-12 13:47:27 +08:00
parent a115779028
commit a1bccdbd33
2 changed files with 7 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/main/logseq/cli/completion_generator.cljs
View File

@@ -613,17 +613,6 @@ _logseq_compadd_lines() {
nil)))
(defn- bash-prev-cases
"Generate all prev-word value completion cases from the table."
[table]
(let [all-specs (->> table (mapcat (fn [entry] (seq (:spec entry)))))
unique-specs (into {} all-specs) ;; last one wins for duplicates
tokens (spec->tokens unique-specs)
cases (->> tokens
(keep bash-prev-completion-case)
(string/join "\n\n"))]
cases))
(defn- bash-subcommand-cases
"Generate subcommand completion for each group."
[table]

16
src/test/logseq/cli/completion_generator_test.cljs
View File

@@ -200,14 +200,14 @@
(is (string/includes? output "_logseq()")))
(testing "output ends with compdef _logseq logseq"
(is (string/includes? output "compdef _logseq logseq")))
(testing "boolean flags emit bare flag form"
(is (re-find #"--verbose\[" output)))
(testing "boolean flags emit alias grouping"
(is (string/includes? output "'{-v,--verbose}'[")))
(testing "enum options emit value list form"
(is (re-find #"--output=.*\(human json edn\)" output)))
(is (string/includes? output "'{-o,--output}'=[Output format. Default: human]:value:(human json edn)'")))
(testing ":complete :graphs emits _logseq_graphs"
(is (re-find #"--graph=.*_logseq_graphs" output)))
(is (string/includes? output "'{-g,--graph}'=[Graph name]:value:_logseq_graphs'")))
(testing ":complete :file emits _files"
(is (re-find #"--config=.*_files'" output)))
(is (string/includes? output "'{-c,--config}'=[Path to cli.edn (default ~/logseq/cli.edn)]:file:_files'")))
(testing ":alias emits grouping"
(is (re-find #"\(-h --help\)" output)))))
@@ -218,10 +218,8 @@
(testing "--sort for list page offers correct values"
(is (re-find #"--sort=.*\(title created-at updated-at\)" output)))
(testing "--sort for list tag offers name title"
;; The list tag function should contain (name title)
(let [tag-section (second (re-find #"_logseq_list_tag\(\).*?(?=\n_logseq)" output))]
;; Just check globally that name title appears in sort context
(is (re-find #"\(name title\)" output))))))
;; Just check globally that name title appears in sort context
(is (re-find #"\(name title\)" output)))))
(deftest test-zsh-all-commands-present
(let [output (gen/generate-completions "zsh" full-table)]