                            #(generate {:synsem {:cat :verb
                                                 :sem {:tense :conditional}
                                                 :subcat []}}
-                                      :model (medium))))]
+                                      :model model)))]
     (log/debug (str "expressions: " (string/join "," (map morph expressions))))
     (is (= do-this-many
            (count (map (fn [expr]

                                                :sem {:tense :past
                                                      :aspect :progressive}
                                                :subcat []}}
                                      :model (medium))))]
    (is (= do-this-many
           (count (map-fn (fn [expr]
                            (let [surface (morph expr)

                                                            :aspect :perfect
                                                            :obj :unspec}
                                                      :subcat []}}
                                            :model model)]
                              result)))]
    (is (= do-this-many
           (count (map-fn (fn [expr]
