                                          :subj {:pred :I}
                                          :tense :present
                                          :aspect :simple}}}
-                         :model (small))]
+                         :model model)]
     (is (= "j'abandone" (fo result)))))
 
 (deftest generate-present-by-root-regular-2

    (is (= (fo result) "tu as coupé"))))

(deftest generate-passe-compose-irregular
  (is (not (empty? (get (:lexicon (small)) "pris"))))
  (is (= false (get-in (first (get (:lexicon (small)) "prendre"))
                       [:français :past-p :regular])))
  (let [result (generate {:synsem {:subcat []
                                   :sem {:subj {:pred :noi}
                                         :aspect :perfect
                                         :tense :present}}
                          :root {:français {:français "prendre"}}}
                         :model (small))]

    (is (not (nil? result)))
    (is (= (fo result) "nous avons pris"))))

    (is (= times
           (count (take times
                        (repeatedly
                         #(time (println (fo (generate spec :model model)))))))))))
(deftest speed-test-1
  ;; these should all take relatively the same time, but
  ;; for now, the more general the spec, the longer it takes to generate.
