          true
          (over/over grammar arg1 arg2))))
 
-(deftest conditional
+(deftest generate-conditional
   (let [result (engine/generate {:synsem {:subcat '()
                                           :sem {:pred :sleep
                                                 :subj {:pred :I}

                                     :pred :have-fun :tense :past}}})]
    (is (= (fo result) "elle l'est amusée"))))

(deftest named-sentence
  (let [result (engine/expression medium
                                  {:synsem {:sem {:pred :be-called
                                                  :subj {:pred :lui}

                                small)]
    (is (= "je suis" (fo result)))))

(deftest generate-imperfect-irregular-être
  (let [result (engine/generate {:synsem {:subcat '()
                                          :infl :imperfect
                                          :sem {:pred :be
