aboutsummaryrefslogtreecommitdiff
path: root/src/ellinika/tests/suffix-s.scm
diff options
context:
space:
mode:
Diffstat (limited to 'src/ellinika/tests/suffix-s.scm')
-rw-r--r--src/ellinika/tests/suffix-s.scm11
1 files changed, 11 insertions, 0 deletions
diff --git a/src/ellinika/tests/suffix-s.scm b/src/ellinika/tests/suffix-s.scm
new file mode 100644
index 0000000..2eb1a95
--- /dev/null
+++ b/src/ellinika/tests/suffix-s.scm
@@ -0,0 +1,11 @@
+(load-extension "./libelmorph" "scm_init_ellinika_elmorph_module")
+
+(display
+ (elstr-suffix? "παρακείμενος" "μενος"))
+(newline)
+(display
+ (elstr-suffix? "παρακείμενος" "μεν"))
+(newline)
+(display
+ (elstr-suffix? "παρακείμενος" "α" "οντας" "μενος"))
+(newline)

Return to:

Send suggestions and report system problems to the System administrator.