            "je m'amuse"))))
 
 (deftest generate-have-fun-sentence
-  (let [result (engine/expression medium
-                                  {:synsem {:sem {:pred :have-fun}}})]
+  (let [result (try-hard-to #(generate
+                              {:synsem {:sem {:pred :have-fun}}}))]
     (is (= (get-in result [:synsem :sem :pred]) :have-fun))))
 
 (deftest generate-vp-aux-reflexive
   (let [result
-        (engine/expression
-         medium
-         {:synsem {:subcat '() :sem {:subj {:pred :lei}
-                                     :pred :have-fun :tense :past}}})]
+        (try-hard-to #(generate
+                       {:synsem {:subcat '() :sem {:subj {:pred :lei}
+                                                   :pred :have-fun :tense :past}}}))]
     (is (= (fo result) "elle l'est amusée"))))
 
+(deftest generate-vp-present-reflexive
+  (let [result
+        (try-hard-to #(generate
+                       {:synsem {:subcat '() :sem {:subj {:pred :lei}
+                                                   :pred :have-fun :tense :present}}}))]
+    (is (= (fo result) "elle l'amuse"))))
+
 (deftest generate-named-sentence
-  (let [result (engine/expression medium
-                                  {:synsem {:sem {:pred :be-called
-                                                  :subj {:pred :lui}
-                                                  :obj {:pred :Jean}}}})]
+  (let [result
+        (try-hard-to #(generate
+                       {:synsem {:sem {:pred :be-called
+                                       :subj {:pred :lui}
+                                       :obj {:pred :Jean}}}}))]
     (is (= (fo result) "il l'appele Jean"))))
 
 (deftest parse-reflexive

         (is (= (fo result) "nous sommes allées")))))

(deftest generate-passe-compose
  (let [result (engine/generate {:synsem {:sem {:pred :go
                                                :subj {:pred :noi
                                                       :gender :fem}
                                                :aspect :perfect
                                                :tense :past}}}
                                small)]
    (is (not (nil? result)))
    (is (= (fo result) "nous sommes allées"))))


                                   :tense :present}}}))]
    (is (not (empty? the-foo)))))

