 (ns babel.test.it
   (:refer-clojure :exclude [get-in])
-  (:require [babel.engine :refer [generate generate-all]]
-            [babel.italiano.grammar :refer [small medium np-grammar]]
+  (:require [babel.italiano.grammar :refer [small medium np-grammar]]
             [babel.italiano.lexicon :refer [lexicon]]
             [babel.italiano.morphology :refer [fo new-style replace-patterns]]
-            [babel.italiano.workbook :refer [analyze parse]]
+            [babel.italiano.workbook :refer [analyze generate generate-all parse]]
             #?(:clj [clojure.test :refer [deftest is]])
             #?(:cljs [cljs.test :refer-macros [deftest is]])
             #?(:clj [clojure.tools.logging :as log])


        
(deftest round-trip-1
  (let [expr (generate {:synsem {:subcat '()
                                 :sem {:spec {:def :def} 
                                       :mod {:pred :difficile}
                                       :number :sing
                                     :pred :donna}}} 
                       np-grammar
                       {:allow-meta-lexemes false})]
    (is (= (fo expr) "la donna difficile"))
    (is (not (empty? (parse (fo expr) np-grammar))))))


                           (take do-this-many expressions)))))))))

(deftest roundtrip-small-grammar
  (let [do-this-many 100]
    (is (empty?
         (filter #(not (nil? %))
                 (let [expressions
