   (: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"]


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