 
 (deftest shows-help
   (let [command-sequence ["help" "quit"]
-        input-string (clojure.string/join "\r" command-sequence)]
+        input-string (command-sequence->input-str command-sequence)]
     (with-in-str
       input-string
       (mocking [println print flush]


(deftest list-shows-error-if-no-classes-loaded
  (let [command-sequence ["list" "quit"]
        input-string (clojure.string/join "\r" command-sequence)]
    (with-in-str
      input-string
      (mocking [println print flush]

  (:use [app.interactive]
        [conjure.core]
        [clojure.test]))

(defn- command-sequence->input-str [command-sequence]
  (clojure.string/join "\r" command-sequence))

(deftest can-quit
  (let [input-command "quit\r"]
