Fix a non-empty command with allow-empty-command option

totakke · Mar 5, 2020 · e21c782 · e21c782
1 parent e6cacba
commit e21c782
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git a/src/clj_sub_command/core.cljc b/src/clj_sub_command/core.cljc
@@ -339,7 +339,7 @@
         scmds (set (map :cmd command-specs))
         scmd (scmds cmd)
         cands (candidates cmd scmds)
-        error (when-not (or scmd allow-empty-command)
+        error (when-not (or scmd (and allow-empty-command (empty? cmd)))
                 (str "Unknown command: " (pr-str (or cmd ""))
                      (when (seq cands)
                        (str "\n\n" (candidate-message cands)))))

diff --git a/test/clj_sub_command/core_test.cljc b/test/clj_sub_command/core_test.cljc
@@ -94,4 +94,9 @@
                                                (str "Commands: " (s/join \, (map :cmd specs)))))]
       (is (nil? (:errors m)))
       (is (= (:options-summary m) "Options: --alpha|--beta"))
-      (is (= (:commands-summary m) "Commands: command1,command2")))))
+      (is (= (:commands-summary m) "Commands: command1,command2")))
+    (let [m (parse-cmds ["command3"]
+                        []
+                        [["command1"] ["command2"]]
+                        :allow-empty-command true)]
+      (is (= (count (:errors m)) 1)))))