(Kor) Add unit tests about verb inflection

This commit is contained in:
Inari Listenmaa committed 2020-03-24 20:51:30 +01:00
1 parent 5344ca7cce
commit 4730cae42b
4 files changed
+51 -15

No files matched your search

+4
View File
@@ -152,6 +152,10 @@ oper
let v = mkVerb plain Active
in v ** {c2 = Object ; p2 = emptyPP} ;
mkVerb3 : (plain : Str) -> Verb3 = \plain ->
let v = mkVerb2 plain
in v ** {c3 = Bare ; p3 = emptyPP} ;
mkVerbFull : (x1,_,_,_,_,x6 : Str) -> VerbType -> Verb =
\plain,polite,formal,planeg,polneg,formneg,vt -> {
s = table {