   [lines]
   (lazy-seq
     (when-let [classfn (first (first lines))]
-      (if (#{:comment :code :testcode} classfn)
+      (if (#{:comment :code} classfn)
         (let [[same tail] (split-with #(= classfn (first %)) lines)
               text (string/join "\n" (map second same))]
           (cons [classfn text] (gather-lines- tail)))

      [text]
      (m include) [[:include (include-info text)]]
      (m required) []
      (m testcode) [[:testcode text]]
      (m anchor) [[:anchor text]]
      (m heading) [[:anchor text]
                   [:comment (m markdown)]]

  []
  (re-pattern (str (comment) "%require +")))

(defn test-begin
  "A regular expression matching a test-begin line."
  []
  (re-pattern (str (comment) "<\\?")))

(defn test-end
  "A regular expression matching a test-end line."
  []
  (re-pattern (str (comment) "\\?>")))


; ## Parsing
