add first regular future tense forms

ekoontz · Jul 7, 2024 · bcddf99 · bcddf99
1 parent 32bfbba
commit bcddf99
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 2 deletions.
diff --git a/resources/español/morphology/verbs.edn b/resources/español/morphology/verbs.edn
@@ -161,6 +161,16 @@
 
  ;; </present-tense rules>
 
- ;; .. other tenses..
-]  
+ ;; <future tense>
+
+
+ {:g [#"^(.+)ar$"    "$1é"] 
+  :p [#"^(.+ar)é$"   "$1"] 
+  :u {:cat :verb
+      :infl :future
+      :agr {:number :sing
+            :person :1st}}}
+
+ ;; </future tense>
+ ]  
 
diff --git a/test/menard/test/español.cljc b/test/menard/test/español.cljc
@@ -82,6 +82,12 @@
     (is (= (u/get-in hablan [:agr :number]) :plur))
     (is (= (u/get-in hablan [:infl]) :present))))
 
+(deftest analyze-future-tense
+  ;; regular
+  (let [hablaré (->> "hablaré" analyze first)]
+    (is (= (u/get-in hablaré [:agr :number]) :sing))
+    (is (= (u/get-in hablaré [:infl]) :future))))
+