                                      :pred :have-fun :tense :past}}})]
     (is (= (fo result) "elle l'est amusée"))))
 
-(deftest named-sentence
+(deftest generate-named-sentence
   (let [result (engine/expression medium
                                   {:synsem {:sem {:pred :be-called
                                                   :subj {:pred :lui}

    (and (is (not (nil? result)))
         (is (= (fo result) "nous sommes allées")))))

(deftest passe-compose
  (let [result (engine/generate {:synsem {:sem {:pred :go
                                                :subj {:pred :noi
                                                       :gender :fem}

    (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
