                                          :subj {:pred :voi}
                                          :tense :past
                                          :aspect :progressive}}}
-                         :model (small))]
+                         :model model)]
     (is (= :imperfect (get-in result [:synsem :infl])))
     (is (= "vous vendiez" (fo result)))))
 

            #?(:cljs [babel.logjs :as log]) 
            [dag_unify.core :refer [fail-path fail? get-in strip-refs unify]]))

(defn small [] (medium))

;; TODO: these defns (lookup) are convenience functions are duplicated in
;; babel.workbook.francais: factor out to babel.francais.

                                         :subj {:pred :I}
                                         :tense :present
                                         :aspect :simple}}}
                         :model model)]
    (is (= "je suis" (fo result)))))

(deftest generate-imparfait-regular-er
