     (is (not (nil? result)))
     (is (= (fo result) "nous sommes allées"))))
 
-(deftest reflexive
+(deftest generate-reflexive-present
   (let [rules {:s-present-phrasal
                (first (filter #(= (get % :rule) "s-present-phrasal")
                               (:grammar medium)))

                                small)]
    (is (= "j'étais" (fo result)))))

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

    (is (= (fo (first result))
           "je m'amuse"))))

(deftest generate-have-fun-sentence
  (let [result (engine/expression medium
                                  {:synsem {:sem {:pred :have-fun}}})]
    (is (= (get-in result [:synsem :sem :pred]) :have-fun))))

(deftest generate-vp-aux-reflexive
  (let [result
        (engine/expression
         medium
