             #?(:cljs [babel.logjs :as log]) 
             [dag_unify.core :refer [get-in]]))
 
+(def small (espanol/small))
+
 (deftest generate-conditional
   (let [result (generate {:synsem {:subcat '()
                                    :sem {:pred :sleep
                                          :subj {:pred :I}
                                          :tense :conditional}}}
-                         (small)
-                         {:truncate-children false})]
+                         :model small
+                         :truncate-children false)]
     (is (= :1st (get-in result [:comp :synsem :agr :person])))
     (is (= :sing (get-in result [:comp :synsem :agr :number])))
     (is (or (= "yo dormiría" (fo result))

                {:root {:espanol {:espanol "abrazar"}}
                 :synsem {:sem {:subj {:pred :I}}
                          :infl :preterito}}
                (small)
                {:truncate-children false})]
    (is (or (= "yo abracé" (fo result))
            (= "abracé" (fo result))))))
                
(deftest llamarse
  (let [result (generate {:synsem {:sem {:pred :be-called}}} (small))]
    (is (not (empty? (fo result))))))

(deftest llamo

                                             :subj {:pred :I}
                                             :pred :be-called
                                             :obj {:pred :Juan}}}}
                             :model small))]
    (is (or (= result
               "yo me llamo Juan")
            (= result "me llamo Juan")))))
