summaryrefslogtreecommitdiffabout
path: root/src
authorSergey Poznyakoff <gray@gnu.org.ua>2011-06-12 01:01:10 (GMT)
committer Sergey Poznyakoff <gray@gnu.org.ua>2011-06-12 01:01:10 (GMT)
commite50173c65dca2cd0e0b5cbc563b7fa36b4d164ca (patch) (side-by-side diff)
treec51ac0da8d875fed9156cc67bc9b1a931650299b /src
parenta9fa703eecfc81b26c1d969cc13a7ce476c84d6d (diff)
downloadellinika-e50173c65dca2cd0e0b5cbc563b7fa36b4d164ca.tar.gz
ellinika-e50173c65dca2cd0e0b5cbc563b7fa36b4d164ca.tar.bz2
Add tests.
Diffstat (limited to 'src') (more/less context) (ignore whitespace changes)
-rw-r--r--src/ellinika/test-conjugation.scm78
-rw-r--r--src/ellinika/tests/accsyl.scm7
-rw-r--r--src/ellinika/tests/aorist.scm22
-rw-r--r--src/ellinika/tests/append-el.scm7
-rw-r--r--src/ellinika/tests/append-s.scm7
-rw-r--r--src/ellinika/tests/conj/aggelv.scm3
-rw-r--r--src/ellinika/tests/conj/agv.scm3
-rw-r--r--src/ellinika/tests/conj/anebainv.scm3
-rw-r--r--src/ellinika/tests/conj/anoigv.scm3
-rw-r--r--src/ellinika/tests/conj/aresv.scm3
-rw-r--r--src/ellinika/tests/conj/ballv.scm3
-rw-r--r--src/ellinika/tests/conj/bgainv.scm3
-rw-r--r--src/ellinika/tests/conj/blepv.scm3
-rw-r--r--src/ellinika/tests/conj/briskv.scm3
-rw-r--r--src/ellinika/tests/conj/denv.scm3
-rw-r--r--src/ellinika/tests/conj/diabazv.scm6
-rw-r--r--src/ellinika/tests/conj/eimai.scm3
-rw-r--r--src/ellinika/tests/conj/erxomai.scm3
-rw-r--r--src/ellinika/tests/conj/exv.scm3
-rw-r--r--src/ellinika/tests/conj/kitav.scm3
-rw-r--r--src/ellinika/tests/conj/kremav.scm3
-rw-r--r--src/ellinika/tests/conj/nikav.scm3
-rw-r--r--src/ellinika/tests/conj/nikv.scm3
-rw-r--r--src/ellinika/tests/conj/ntynv.scm3
-rw-r--r--src/ellinika/tests/conj/phgainv.scm3
-rw-r--r--src/ellinika/tests/conj/pinv.scm3
-rw-r--r--src/ellinika/tests/conj/trabav.scm3
-rw-r--r--src/ellinika/tests/conj/uelv.scm3
-rw-r--r--src/ellinika/tests/deacc.scm7
-rw-r--r--src/ellinika/tests/phonmap.scm5
-rw-r--r--src/ellinika/tests/setacc-1.scm7
-rw-r--r--src/ellinika/tests/setacc-2.scm7
-rw-r--r--src/ellinika/tests/setacc-3.scm7
-rw-r--r--src/ellinika/tests/slice-el.scm8
-rw-r--r--src/ellinika/tests/slice-s.scm8
-rw-r--r--src/ellinika/tests/soundslike.scm7
-rw-r--r--src/ellinika/tests/suffix-el.scm11
-rw-r--r--src/ellinika/tests/suffix-s.scm11
-rw-r--r--src/ellinika/tests/syltest-1.scm6
-rw-r--r--src/ellinika/tests/syltest-2.scm6
-rw-r--r--src/ellinika/tests/syltest-3.scm6
-rw-r--r--src/ellinika/tests/syltest-4.scm4
-rw-r--r--src/ellinika/tests/syltest-5.scm4
-rw-r--r--src/ellinika/tests/trim-el.scm9
-rw-r--r--src/ellinika/tests/trim-s.scm9
45 files changed, 315 insertions, 0 deletions
diff --git a/src/ellinika/test-conjugation.scm b/src/ellinika/test-conjugation.scm
new file mode 100644
index 0000000..83086bf
--- a/dev/null
+++ b/src/ellinika/test-conjugation.scm
@@ -0,0 +1,78 @@
+;;;; This file is part of Ellinika project.
+;;;; Copyright (C) 2011 Sergey Poznyakoff
+;;;;
+;;;; Ellinika is free software; you can redistribute it and/or modify
+;;;; it under the terms of the GNU General Public License as published by
+;;;; the Free Software Foundation; either version 3 of the License, or
+;;;; (at your option) any later version.
+;;;;
+;;;; Ellinika is distributed in the hope that it will be useful,
+;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;;;; GNU General Public License for more details.
+;;;;
+;;;; You should have received a copy of the GNU General Public License
+;;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+(define-module (ellinika test-conjugation))
+
+(use-modules (srfi srfi-1)
+ (ellinika elmorph)
+ (ellinika i18n)
+ (ellinika cgi)
+ (ellinika tenses)
+ (ellinika conjugator)
+ (gamma sql))
+
+(ellinika-cgi-init dict-template-file-name)
+(define db-connection (sql-open-connection ellinika-sql-connection))
+(sql-query db-connection "SET NAMES utf8")
+
+
+(define transtab
+ '(("act" . "Ενεργητηκή φωνή")
+ ("pas" . "Μεσοπαθητική φωνή")
+ ("ind" . "Οριστική")
+ ("sub" . "Υποτακτική")
+ ("imp" . "Προστακτική")))
+
+(define (term x)
+ (or (assoc-ref transtab x) x))
+
+(define-public (test-conjugation:tense verb voice mood tense)
+ (for-each
+ (lambda (result)
+ (format #t "~A ~A/~A/~A: " verb (term voice) (term mood) tense)
+ (let ((conj (conjugation:table result)))
+ (cond
+ ((empty-conjugation? conj)
+ (display "#f"))
+ (else
+ (let ((att (conjugation:attested result)))
+ (cond
+ ((not att)
+ (display "*"))
+ (else
+ (if (not (member 'class att))
+ (display "*"))
+ (if (not (member 'root att))
+ (display "!"))))
+ (display conj)))))
+ (newline))
+ (conjugator db-connection verb voice mood tense))
+ (gc))
+
+(define-public (test-conjugation:voice voice verb)
+ (for-each
+ (lambda (mood-tenses)
+ (let ((mood (car mood-tenses)))
+ (for-each
+ (lambda (tense)
+ (test-conjugation:tense verb voice mood tense))
+ (cdr mood-tenses))))
+ ellinika-tense-list))
+
+(define-public (test-conjugation:verb verb)
+ (test-conjugation:voice "act" verb)
+ (test-conjugation:voice "pas" verb))
+
diff --git a/src/ellinika/tests/accsyl.scm b/src/ellinika/tests/accsyl.scm
new file mode 100644
index 0000000..af91eb4
--- a/dev/null
+++ b/src/ellinika/tests/accsyl.scm
@@ -0,0 +1,7 @@
+(load-extension "./libelmorph" "scm_init_ellinika_elmorph_module")
+
+(let ((str "έρχομαι"))
+ (display (elstr-accented-syllable str))
+ (newline))
+
+ \ No newline at end of file
diff --git a/src/ellinika/tests/aorist.scm b/src/ellinika/tests/aorist.scm
new file mode 100644
index 0000000..5c47162
--- a/dev/null
+++ b/src/ellinika/tests/aorist.scm
@@ -0,0 +1,22 @@
+(load-extension "./libelmorph" "scm_init_ellinika_elmorph_module")
+
+(for-each
+ (lambda (root)
+ (display (elstr-thema-aoristoy root))
+ (newline))
+ (list
+ "χαν"
+ "νιωθ"
+ "διαβαζ"
+ "πλεκ"
+ "ανοιγ"
+ "προσεχ"
+ "διδασκ"
+ "φτιαχν"
+ "αλλαζ"
+ "λειπ"
+ "σκαβ"
+ "βάφ"
+ "δουλεύ"
+ "παύ"
+ "ζη"))
diff --git a/src/ellinika/tests/append-el.scm b/src/ellinika/tests/append-el.scm
new file mode 100644
index 0000000..206e465
--- a/dev/null
+++ b/src/ellinika/tests/append-el.scm
@@ -0,0 +1,7 @@
+(load-extension "./libelmorph" "scm_init_ellinika_elmorph_module")
+
+(display
+ (elstr-append (string->elstr "παρακ")
+ "εί"
+ "μενος"))
+(newline)
diff --git a/src/ellinika/tests/append-s.scm b/src/ellinika/tests/append-s.scm
new file mode 100644
index 0000000..92e7149
--- a/dev/null
+++ b/src/ellinika/tests/append-s.scm
@@ -0,0 +1,7 @@
+(load-extension "./libelmorph" "scm_init_ellinika_elmorph_module")
+
+(display
+ (elstr-append "παρακ"
+ "εί"
+ "μενος"))
+(newline)
diff --git a/src/ellinika/tests/conj/aggelv.scm b/src/ellinika/tests/conj/aggelv.scm
new file mode 100644
index 0000000..e9f584f
--- a/dev/null
+++ b/src/ellinika/tests/conj/aggelv.scm
@@ -0,0 +1,3 @@
+(use-modules ((ellinika test-conjugation)))
+
+(test-conjugation:verb "αγγέλω")
diff --git a/src/ellinika/tests/conj/agv.scm b/src/ellinika/tests/conj/agv.scm
new file mode 100644
index 0000000..4bbc05d
--- a/dev/null
+++ b/src/ellinika/tests/conj/agv.scm
@@ -0,0 +1,3 @@
+(use-modules ((ellinika test-conjugation)))
+
+(test-conjugation:verb "άγω")
diff --git a/src/ellinika/tests/conj/anebainv.scm b/src/ellinika/tests/conj/anebainv.scm
new file mode 100644
index 0000000..2c96cef
--- a/dev/null
+++ b/src/ellinika/tests/conj/anebainv.scm
@@ -0,0 +1,3 @@
+(use-modules ((ellinika test-conjugation)))
+
+(test-conjugation:verb "ανεβαίνω")
diff --git a/src/ellinika/tests/conj/anoigv.scm b/src/ellinika/tests/conj/anoigv.scm
new file mode 100644
index 0000000..4ba6e12
--- a/dev/null
+++ b/src/ellinika/tests/conj/anoigv.scm
@@ -0,0 +1,3 @@
+(use-modules ((ellinika test-conjugation)))
+
+(test-conjugation:verb "ανοίγω")
diff --git a/src/ellinika/tests/conj/aresv.scm b/src/ellinika/tests/conj/aresv.scm
new file mode 100644
index 0000000..d4e54f9
--- a/dev/null
+++ b/src/ellinika/tests/conj/aresv.scm
@@ -0,0 +1,3 @@
+(use-modules ((ellinika test-conjugation)))
+
+(test-conjugation:verb "αρέσω")
diff --git a/src/ellinika/tests/conj/ballv.scm b/src/ellinika/tests/conj/ballv.scm
new file mode 100644
index 0000000..105fbac
--- a/dev/null
+++ b/src/ellinika/tests/conj/ballv.scm
@@ -0,0 +1,3 @@
+(use-modules ((ellinika test-conjugation)))
+
+(test-conjugation:verb "βάλλω")
diff --git a/src/ellinika/tests/conj/bgainv.scm b/src/ellinika/tests/conj/bgainv.scm
new file mode 100644
index 0000000..99efc5f
--- a/dev/null
+++ b/src/ellinika/tests/conj/bgainv.scm
@@ -0,0 +1,3 @@
+(use-modules ((ellinika test-conjugation)))
+
+(test-conjugation:verb "βγαίνω")
diff --git a/src/ellinika/tests/conj/blepv.scm b/src/ellinika/tests/conj/blepv.scm
new file mode 100644
index 0000000..e7fbc8b
--- a/dev/null
+++ b/src/ellinika/tests/conj/blepv.scm
@@ -0,0 +1,3 @@
+(use-modules ((ellinika test-conjugation)))
+
+(test-conjugation:verb "βλέπω")
diff --git a/src/ellinika/tests/conj/briskv.scm b/src/ellinika/tests/conj/briskv.scm
new file mode 100644
index 0000000..9769e27
--- a/dev/null
+++ b/src/ellinika/tests/conj/briskv.scm
@@ -0,0 +1,3 @@
+(use-modules ((ellinika test-conjugation)))
+
+(test-conjugation:verb "βρίσκω")
diff --git a/src/ellinika/tests/conj/denv.scm b/src/ellinika/tests/conj/denv.scm
new file mode 100644
index 0000000..a3cb637
--- a/dev/null
+++ b/src/ellinika/tests/conj/denv.scm
@@ -0,0 +1,3 @@
+(use-modules ((ellinika test-conjugation)))
+
+(test-conjugation:verb "δένω")
diff --git a/src/ellinika/tests/conj/diabazv.scm b/src/ellinika/tests/conj/diabazv.scm
new file mode 100644
index 0000000..17e1cb0
--- a/dev/null
+++ b/src/ellinika/tests/conj/diabazv.scm
@@ -0,0 +1,6 @@
+(use-modules ((ellinika test-conjugation)))
+
+(test-conjugation:verb "διαβάζω")
+
+
+ \ No newline at end of file
diff --git a/src/ellinika/tests/conj/eimai.scm b/src/ellinika/tests/conj/eimai.scm
new file mode 100644
index 0000000..a893163
--- a/dev/null
+++ b/src/ellinika/tests/conj/eimai.scm
@@ -0,0 +1,3 @@
+(use-modules ((ellinika test-conjugation)))
+
+(test-conjugation:verb "είμαι")
diff --git a/src/ellinika/tests/conj/erxomai.scm b/src/ellinika/tests/conj/erxomai.scm
new file mode 100644
index 0000000..aaca526
--- a/dev/null
+++ b/src/ellinika/tests/conj/erxomai.scm
@@ -0,0 +1,3 @@
+(use-modules ((ellinika test-conjugation)))
+
+(test-conjugation:verb "έρχομαι")
diff --git a/src/ellinika/tests/conj/exv.scm b/src/ellinika/tests/conj/exv.scm
new file mode 100644
index 0000000..6236404
--- a/dev/null
+++ b/src/ellinika/tests/conj/exv.scm
@@ -0,0 +1,3 @@
+(use-modules ((ellinika test-conjugation)))
+
+(test-conjugation:verb "έχω")
diff --git a/src/ellinika/tests/conj/kitav.scm b/src/ellinika/tests/conj/kitav.scm
new file mode 100644
index 0000000..7090885
--- a/dev/null
+++ b/src/ellinika/tests/conj/kitav.scm
@@ -0,0 +1,3 @@
+(use-modules ((ellinika test-conjugation)))
+
+(test-conjugation:verb "κιτάω")
diff --git a/src/ellinika/tests/conj/kremav.scm b/src/ellinika/tests/conj/kremav.scm
new file mode 100644
index 0000000..a7aa1b4
--- a/dev/null
+++ b/src/ellinika/tests/conj/kremav.scm
@@ -0,0 +1,3 @@
+(use-modules ((ellinika test-conjugation)))
+
+(test-conjugation:verb "κρεμάω")
diff --git a/src/ellinika/tests/conj/nikav.scm b/src/ellinika/tests/conj/nikav.scm
new file mode 100644
index 0000000..1524468
--- a/dev/null
+++ b/src/ellinika/tests/conj/nikav.scm
@@ -0,0 +1,3 @@
+(use-modules ((ellinika test-conjugation)))
+
+(test-conjugation:verb "νικάω")
diff --git a/src/ellinika/tests/conj/nikv.scm b/src/ellinika/tests/conj/nikv.scm
new file mode 100644
index 0000000..5b8f6cc
--- a/dev/null
+++ b/src/ellinika/tests/conj/nikv.scm
@@ -0,0 +1,3 @@
+(use-modules ((ellinika test-conjugation)))
+
+(test-conjugation:verb "νικώ")
diff --git a/src/ellinika/tests/conj/ntynv.scm b/src/ellinika/tests/conj/ntynv.scm
new file mode 100644
index 0000000..160832d
--- a/dev/null
+++ b/src/ellinika/tests/conj/ntynv.scm
@@ -0,0 +1,3 @@
+(use-modules ((ellinika test-conjugation)))
+
+(test-conjugation:verb "ντύνω")
diff --git a/src/ellinika/tests/conj/phgainv.scm b/src/ellinika/tests/conj/phgainv.scm
new file mode 100644
index 0000000..a51f542
--- a/dev/null
+++ b/src/ellinika/tests/conj/phgainv.scm
@@ -0,0 +1,3 @@
+(use-modules ((ellinika test-conjugation)))
+
+(test-conjugation:verb "πηγαίνω")
diff --git a/src/ellinika/tests/conj/pinv.scm b/src/ellinika/tests/conj/pinv.scm
new file mode 100644
index 0000000..5b68a8a
--- a/dev/null
+++ b/src/ellinika/tests/conj/pinv.scm
@@ -0,0 +1,3 @@
+(use-modules ((ellinika test-conjugation)))
+
+(test-conjugation:verb "πίνω")
diff --git a/src/ellinika/tests/conj/trabav.scm b/src/ellinika/tests/conj/trabav.scm
new file mode 100644
index 0000000..e588555
--- a/dev/null
+++ b/src/ellinika/tests/conj/trabav.scm
@@ -0,0 +1,3 @@
+(use-modules ((ellinika test-conjugation)))
+
+(test-conjugation:verb "τραβάω")
diff --git a/src/ellinika/tests/conj/uelv.scm b/src/ellinika/tests/conj/uelv.scm
new file mode 100644
index 0000000..9c031eb
--- a/dev/null
+++ b/src/ellinika/tests/conj/uelv.scm
@@ -0,0 +1,3 @@
+(use-modules ((ellinika test-conjugation)))
+
+(test-conjugation:verb "θέλω")
diff --git a/src/ellinika/tests/deacc.scm b/src/ellinika/tests/deacc.scm
new file mode 100644
index 0000000..de5cf53
--- a/dev/null
+++ b/src/ellinika/tests/deacc.scm
@@ -0,0 +1,7 @@
+(load-extension "./libelmorph" "scm_init_ellinika_elmorph_module")
+
+(let ((str "έρχομαι"))
+ (display (elstr-deaccent str))
+ (newline))
+
+ \ No newline at end of file
diff --git a/src/ellinika/tests/phonmap.scm b/src/ellinika/tests/phonmap.scm
new file mode 100644
index 0000000..3af86a7
--- a/dev/null
+++ b/src/ellinika/tests/phonmap.scm
@@ -0,0 +1,5 @@
+(load-extension "./libelmorph" "scm_init_ellinika_elmorph_module")
+
+(let ((word (string->elstr "παρακείμενος")))
+ (display (elstr->phonetic-map word))
+ (newline))
diff --git a/src/ellinika/tests/setacc-1.scm b/src/ellinika/tests/setacc-1.scm
new file mode 100644
index 0000000..ce3a7c2
--- a/dev/null
+++ b/src/ellinika/tests/setacc-1.scm
@@ -0,0 +1,7 @@
+(load-extension "./libelmorph" "scm_init_ellinika_elmorph_module")
+
+(let ((str "διαβασε"))
+ (display (elstr-set-accent str 3))
+ (newline))
+
+ \ No newline at end of file
diff --git a/src/ellinika/tests/setacc-2.scm b/src/ellinika/tests/setacc-2.scm
new file mode 100644
index 0000000..c06fa8c
--- a/dev/null
+++ b/src/ellinika/tests/setacc-2.scm
@@ -0,0 +1,7 @@
+(load-extension "./libelmorph" "scm_init_ellinika_elmorph_module")
+
+(let ((str "αιμα"))
+ (display (elstr-set-accent str 2))
+ (newline))
+
+ \ No newline at end of file
diff --git a/src/ellinika/tests/setacc-3.scm b/src/ellinika/tests/setacc-3.scm
new file mode 100644
index 0000000..cae8db5
--- a/dev/null
+++ b/src/ellinika/tests/setacc-3.scm
@@ -0,0 +1,7 @@
+(load-extension "./libelmorph" "scm_init_ellinika_elmorph_module")
+
+(let ((str "παιδιου"))
+ (display (elstr-set-accent str 1))
+ (newline))
+
+ \ No newline at end of file
diff --git a/src/ellinika/tests/slice-el.scm b/src/ellinika/tests/slice-el.scm
new file mode 100644
index 0000000..13b2084
--- a/dev/null
+++ b/src/ellinika/tests/slice-el.scm
@@ -0,0 +1,8 @@
+(load-extension "./libelmorph" "scm_init_ellinika_elmorph_module")
+
+(let ((word (string->elstr "παρακείμενος")))
+ (display (elstr-slice word 4 2))
+ (newline)
+ (elstr-slice! word 4 2)
+ (display word)
+ (newline))
diff --git a/src/ellinika/tests/slice-s.scm b/src/ellinika/tests/slice-s.scm
new file mode 100644
index 0000000..13b2084
--- a/dev/null
+++ b/src/ellinika/tests/slice-s.scm
@@ -0,0 +1,8 @@
+(load-extension "./libelmorph" "scm_init_ellinika_elmorph_module")
+
+(let ((word (string->elstr "παρακείμενος")))
+ (display (elstr-slice word 4 2))
+ (newline)
+ (elstr-slice! word 4 2)
+ (display word)
+ (newline))
diff --git a/src/ellinika/tests/soundslike.scm b/src/ellinika/tests/soundslike.scm
new file mode 100644
index 0000000..1d3efa9
--- a/dev/null
+++ b/src/ellinika/tests/soundslike.scm
@@ -0,0 +1,7 @@
+(load-extension "./libelmorph" "scm_init_ellinika_elmorph_module")
+
+(load "../elmorph-public.scm")
+
+(let ((word (string->elstr "παρακείμενος")))
+ (display (elstr->soundslike word))
+ (newline))
diff --git a/src/ellinika/tests/suffix-el.scm b/src/ellinika/tests/suffix-el.scm
new file mode 100644
index 0000000..c298175
--- a/dev/null
+++ b/src/ellinika/tests/suffix-el.scm
@@ -0,0 +1,11 @@
+(load-extension "./libelmorph" "scm_init_ellinika_elmorph_module")
+
+(display
+ (elstr-suffix? (string->elstr "παρακείμενος") "μενος"))
+(newline)
+(display
+ (elstr-suffix? (string->elstr "παρακείμενος") "μεν"))
+(newline)
+(display
+ (elstr-suffix? (string->elstr "παρακείμενος") "α" "οντας" "μενος"))
+(newline)
diff --git a/src/ellinika/tests/suffix-s.scm b/src/ellinika/tests/suffix-s.scm
new file mode 100644
index 0000000..2eb1a95
--- a/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)
diff --git a/src/ellinika/tests/syltest-1.scm b/src/ellinika/tests/syltest-1.scm
new file mode 100644
index 0000000..f7e2e8e
--- a/dev/null
+++ b/src/ellinika/tests/syltest-1.scm
@@ -0,0 +1,6 @@
+(load-extension "./libelmorph" "scm_init_ellinika_elmorph_module")
+
+(display (string->elstr "ερθουμε"))
+(newline)
+
+ \ No newline at end of file
diff --git a/src/ellinika/tests/syltest-2.scm b/src/ellinika/tests/syltest-2.scm
new file mode 100644
index 0000000..0f19fc9
--- a/dev/null
+++ b/src/ellinika/tests/syltest-2.scm
@@ -0,0 +1,6 @@
+(load-extension "./libelmorph" "scm_init_ellinika_elmorph_module")
+
+(display (string->elstr "ερχόνταν"))
+(newline)
+
+ \ No newline at end of file
diff --git a/src/ellinika/tests/syltest-3.scm b/src/ellinika/tests/syltest-3.scm
new file mode 100644
index 0000000..7b6a7a7
--- a/dev/null
+++ b/src/ellinika/tests/syltest-3.scm
@@ -0,0 +1,6 @@
+(load-extension "./libelmorph" "scm_init_ellinika_elmorph_module")
+
+(display (string->elstr "παιδιού"))
+(newline)
+
+ \ No newline at end of file
diff --git a/src/ellinika/tests/syltest-4.scm b/src/ellinika/tests/syltest-4.scm
new file mode 100644
index 0000000..c0060d5
--- a/dev/null
+++ b/src/ellinika/tests/syltest-4.scm
@@ -0,0 +1,4 @@
+(load-extension "./libelmorph" "scm_init_ellinika_elmorph_module")
+
+(display (string->elstr "ιού"))
+(newline)
diff --git a/src/ellinika/tests/syltest-5.scm b/src/ellinika/tests/syltest-5.scm
new file mode 100644
index 0000000..e08bea8
--- a/dev/null
+++ b/src/ellinika/tests/syltest-5.scm
@@ -0,0 +1,4 @@
+(load-extension "./libelmorph" "scm_init_ellinika_elmorph_module")
+
+(display (string->elstr "γειτονιά"))
+(newline)
diff --git a/src/ellinika/tests/trim-el.scm b/src/ellinika/tests/trim-el.scm
new file mode 100644
index 0000000..3e3f68c
--- a/dev/null
+++ b/src/ellinika/tests/trim-el.scm
@@ -0,0 +1,9 @@
+(load-extension "./libelmorph" "scm_init_ellinika_elmorph_module")
+(load "../elmorph-public.scm")
+
+(let ((word "παρακείμενος"))
+ (display (elstr-trim word -1))
+ (newline)
+ (elstr-trim! word -1)
+ (display word)
+ (newline))
diff --git a/src/ellinika/tests/trim-s.scm b/src/ellinika/tests/trim-s.scm
new file mode 100644
index 0000000..dced31b
--- a/dev/null
+++ b/src/ellinika/tests/trim-s.scm
@@ -0,0 +1,9 @@
+(load-extension "./libelmorph" "scm_init_ellinika_elmorph_module")
+(load "../elmorph-public.scm")
+
+(let ((word (string->elstr "παρακείμενος")))
+ (display (elstr-trim word -1))
+ (newline)
+ (elstr-trim! word -1)
+ (display word)
+ (newline))

Return to:

Send suggestions and report system problems to the System administrator.