add some more future regular tests

ekoontz · Jul 7, 2024 · 30ac5ce · 30ac5ce
1 parent bcddf99
commit 30ac5ce
Show file tree

Hide file tree

Showing 2 changed files with 45 additions and 9 deletions.
diff --git a/resources/español/morphology/verbs.edn b/resources/español/morphology/verbs.edn
@@ -162,15 +162,48 @@
  ;; </present-tense rules>
 
  ;; <future tense>
-
-
  {:g [#"^(.+)ar$"    "$1é"] 
   :p [#"^(.+ar)é$"   "$1"] 
   :u {:cat :verb
       :infl :future
       :agr {:number :sing
             :person :1st}}}
 
+ {:g [#"^(.+)ar$"    "$1ás"] 
+  :p [#"^(.+ar)ás$"   "$1"] 
+  :u {:cat :verb
+      :infl :future
+      :agr {:number :sing
+            :person :2nd}}}
+
+ {:g [#"^(.+)ar$"    "$1á"] 
+  :p [#"^(.+ar)á$"   "$1"] 
+  :u {:cat :verb
+      :infl :future
+      :agr {:number :sing
+            :person :3rd}}}
+
+ {:g [#"^(.+)ar$"     "$1emos"] 
+  :p [#"^(.+ar)emos$" "$1"] 
+  :u {:cat :verb
+      :infl :future
+      :agr {:number :plur
+            :person :1st}}}
+
+ {:g [#"^(.+)ar$"    "$1éis"] 
+  :p [#"^(.+ar)éis$" "$1"] 
+  :u {:cat :verb
+      :infl :future
+      :agr {:number :plur
+            :person :2nd}}}
+
+ {:g [#"^(.+)ar$"    "$1án"] 
+  :p [#"^(.+ar)án$"   "$1"] 
+  :u {:cat :verb
+      :infl :future
+      :agr {:number :plur
+            :person :3rd}}}
+
  ;; </future tense>
  ]  
 
diff --git a/test/menard/test/español.cljc b/test/menard/test/español.cljc
@@ -86,11 +86,14 @@
   ;; regular
   (let [hablaré (->> "hablaré" analyze first)]
     (is (= (u/get-in hablaré [:agr :number]) :sing))
-    (is (= (u/get-in hablaré [:infl]) :future))))
-
-
-
-
-
-
+    (is (= (u/get-in hablaré [:agr :person]) :1st))    
+    (is (= (u/get-in hablaré [:infl]) :future))
+    (is (or (= (u/get-in hablaré [:sem :pred]) :speak)
+            (= (u/get-in hablaré [:sem :pred]) :talk))))    
+  (let [hablaréis (->> "hablaréis" analyze first)]
+    (is (= (u/get-in hablaréis [:agr :number]) :plur))
+    (is (= (u/get-in hablaréis [:agr :person]) :2nd))    
+    (is (= (u/get-in hablaréis [:infl]) :future))
+    (is (or (= (u/get-in hablaréis [:sem :pred]) :speak)
+            (= (u/get-in hablaréis [:sem :pred]) :talk)))))