 (deftest generate-and-parse-noun-phrase-with-specifier
   ;; create a noun phrase where the determiner is "ventotto", but the head of the noun phrase
   ;; might be anything.
-  (let [result (generate {:synsem {:sem {:spec {:def :twentyeight}}}} np-grammar)]
+  (let [result (generate {:synsem {:sem {:spec {:def :twentyeight}}}} :model np-grammar)]
     (is (not (= "" (fo result))))
     (is (= :twentyeight (get-in result [:synsem :sem :spec :def])))
     (is (not (empty? (parse (fo result)))))))

                                                :sem {:tense :past
                                                      :aspect :progressive}
                                                :subcat '()}}
                                      small)))]
    (is (= do-this-many
           (count (map-fn (fn [expr]
                            (let [fo (fo expr)

                                                :sem {:tense :past
                                                      :aspect :perfect}
                                                :subcat '()}}
                                      :model small)))]
    (is (= do-this-many
           (count (map-fn (fn [expr]
                          (let [fo (fo expr)
