                   (is (= "loro gestiscono" (fo each))))
                 (map :surface
                      result)))))
-
 
 (deftest casa-generate
   (let [result (generate 

    (is (= do-this-many
           (count (pmap (fn [expr]
                          (let [fo (fo expr)
                                parsed (:parses (first (parse fo)))]
                            (if (not (empty? parsed))
                              (log/info (str "parse OK:" fo))
                              (log/error (str "parse failed: " fo)))

    (is (= do-this-many
           (count (pmap (fn [expr]
                          (let [fo (fo expr)
                                parsed (reduce concat (map :parses (parse fo)))]
                            (if (not (empty? parsed))
                              (log/info (str "parse OK:" fo))
                              (log/error (str "parse failed: " fo)))
