                                         ;; generic spec to something more specific
                                         ;; if this test fails and you want to investigate
                                         ;; why.
-                                        np-grammar)))]
+                                        :model np-grammar)))]
     (is (= do-this-many
            (count (map-fn (fn [expr] 
                             (let [fo (fo expr)

                                 :sem {:spec {:def :def} 
                                       :mod {:pred :difficile}
                                       :number :sing
                                       :pred :donna}}} 
                       np-grammar)]
    (is (or (= (fo expr) "la donna difficile")
            (= (fo expr) "la difficile donna")))
    (is (not (empty? (reduce concat (map

                                   :sem {:pred :be
                                         :subj {:pred :I}
                                         :tense :present}}}
                         :model small
                         :do-enrich false)]
    (is (= "io sono" (fo result)))))

(deftest passato-prossimo
