...
(defn magical-cli-command [argument1]
...
(println "That was nice command and output is: " foober " and " barfoo))
...
(deftest test-cli-output
(testing "a test"
(magical-cli-command 1 2)
(is (= (captured-stdout-here-some-how) "That was nice command and output is: 1 and 2"))))
(defn actual-logic
[argument1]
...
[foober barfoo])
(defn magical-cli-command [argument1]
(let [[foober barfoo] (actual-logic argument1)]
(println "That was nice command and output is: " foober " and " barfoo)))
(deftest test-actual-logic
(testing "a test"
(is (= [... ...] (actual-logic 1 2))))