                                                 :sem {:tense :past
                                                       :aspect :perfect}
                                                 :subcat '()}}
-                                      small)))]
+                                      :model small)))]
     (is (= do-this-many
            (count (map-fn (fn [expr]
                           (let [fo (fo expr)

                                   :sem {:pred :be
                                         :subj {:pred :I}
                                         :tense :present}}}
                         small
                         {:do-enrich false})]
    (is (= "io sono" (fo result)))))

(deftest passato-prossimo

                                   :sem {:subj {:pred :I}
                                         :tense :past
                                         :aspect :perfect}}}
                         :model small)]
    (is (not (nil? result)))
    (is (= "io ho bevuto" (fo result)))))

