             (assoc :block-key block-key)
             (assoc-in [:test-case block-key] {:line-no line-no :text ""}))))))
 
-(defmethod parse-line :in-block
+(defmethod parse-test-line :in-block
   [{:keys [block-key test-case test-cases] :as state} [line-no line]]
   (let [cursor-x (.indexOf line "|")
         cursor-line (when (and (= :in block-key)

                       :block-key nil ;; :in or :out
                       :test-case {:in nil, :out nil}}
        numbered-lines (map-indexed (fn [line-no line] [(inc line-no) line]) lines)
        state (reduce parse-line initial-state numbered-lines)]
    
    (when (:block-key state)
      (throw (error-msg "EOF" "code block not closed")))

        ;; close test block
        (assoc state :block-key nil)))))

(defmethod parse-test-line :start-block
  [{:keys [block-key test-case test-cases] :as state} [line-no line]]
  (if block-key
    (throw (error-msg line-no "must close previous block before starting new one"))
