From 638ef8aba5a879a470772983406a205b88c01cf3 Mon Sep 17 00:00:00 2001
From: Eugene Koontz <ekoontz@hiro-tan.org>
Date: Wed, 11 Sep 2024 23:36:07 +0200
Subject: [PATCH] add tests for a spanish-speaking english model

---
 test/menard/test/english/es.cljc | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 test/menard/test/english/es.cljc

diff --git a/test/menard/test/english/es.cljc b/test/menard/test/english/es.cljc
new file mode 100644
index 000000000..38a40ee71
--- /dev/null
+++ b/test/menard/test/english/es.cljc
@@ -0,0 +1,30 @@
+(ns menard.test.english.es
+  (:require [menard.english.es :as en
+             :refer [analyze generate morph parse
+                     syntax-tree]]
+            [dag_unify.core :as u]
+            [clojure.test :refer [deftest is]]
+            #?(:clj [clojure.tools.logging :as log])
+            #?(:cljs [cljslog.core :as log])
+            [menard.lexiconfn :as l]))
+
+(def spec {:sem {:iobj :none,
+                 :subj
+                 {:gender :masc,
+                  :existential? false,
+                  :mod [],
+                  :ref {:human? true},
+                  :pred :he},
+                 :mod [],
+                 :pred :get-angry,
+                 :aspect :simple,
+                 :tense :present},
+           :agr {:gender :masc, :number :sing, :person :3rd},
+           :subcat [],
+           :cat :verb})
+
+(deftest reflexive-generate
+  (let [generated (-> spec generate)]
+    (is (not (empty? generated)))
+    (is (= (-> generated morph) "he gets angry"))))
+