From e50173c65dca2cd0e0b5cbc563b7fa36b4d164ca Mon Sep 17 00:00:00 2001 From: Sergey Poznyakoff Date: Sun, 12 Jun 2011 04:01:10 +0300 Subject: Add tests. --- src/ellinika/tests/accsyl.scm | 7 +++++++ src/ellinika/tests/aorist.scm | 22 ++++++++++++++++++++++ src/ellinika/tests/append-el.scm | 7 +++++++ src/ellinika/tests/append-s.scm | 7 +++++++ src/ellinika/tests/conj/aggelv.scm | 3 +++ src/ellinika/tests/conj/agv.scm | 3 +++ src/ellinika/tests/conj/anebainv.scm | 3 +++ src/ellinika/tests/conj/anoigv.scm | 3 +++ src/ellinika/tests/conj/aresv.scm | 3 +++ src/ellinika/tests/conj/ballv.scm | 3 +++ src/ellinika/tests/conj/bgainv.scm | 3 +++ src/ellinika/tests/conj/blepv.scm | 3 +++ src/ellinika/tests/conj/briskv.scm | 3 +++ src/ellinika/tests/conj/denv.scm | 3 +++ src/ellinika/tests/conj/diabazv.scm | 6 ++++++ src/ellinika/tests/conj/eimai.scm | 3 +++ src/ellinika/tests/conj/erxomai.scm | 3 +++ src/ellinika/tests/conj/exv.scm | 3 +++ src/ellinika/tests/conj/kitav.scm | 3 +++ src/ellinika/tests/conj/kremav.scm | 3 +++ src/ellinika/tests/conj/nikav.scm | 3 +++ src/ellinika/tests/conj/nikv.scm | 3 +++ src/ellinika/tests/conj/ntynv.scm | 3 +++ src/ellinika/tests/conj/phgainv.scm | 3 +++ src/ellinika/tests/conj/pinv.scm | 3 +++ src/ellinika/tests/conj/trabav.scm | 3 +++ src/ellinika/tests/conj/uelv.scm | 3 +++ src/ellinika/tests/deacc.scm | 7 +++++++ src/ellinika/tests/phonmap.scm | 5 +++++ src/ellinika/tests/setacc-1.scm | 7 +++++++ src/ellinika/tests/setacc-2.scm | 7 +++++++ src/ellinika/tests/setacc-3.scm | 7 +++++++ src/ellinika/tests/slice-el.scm | 8 ++++++++ src/ellinika/tests/slice-s.scm | 8 ++++++++ src/ellinika/tests/soundslike.scm | 7 +++++++ src/ellinika/tests/suffix-el.scm | 11 +++++++++++ src/ellinika/tests/suffix-s.scm | 11 +++++++++++ src/ellinika/tests/syltest-1.scm | 6 ++++++ src/ellinika/tests/syltest-2.scm | 6 ++++++ src/ellinika/tests/syltest-3.scm | 6 ++++++ src/ellinika/tests/syltest-4.scm | 4 ++++ src/ellinika/tests/syltest-5.scm | 4 ++++ src/ellinika/tests/trim-el.scm | 9 +++++++++ src/ellinika/tests/trim-s.scm | 9 +++++++++ 44 files changed, 237 insertions(+) create mode 100644 src/ellinika/tests/accsyl.scm create mode 100644 src/ellinika/tests/aorist.scm create mode 100644 src/ellinika/tests/append-el.scm create mode 100644 src/ellinika/tests/append-s.scm create mode 100644 src/ellinika/tests/conj/aggelv.scm create mode 100644 src/ellinika/tests/conj/agv.scm create mode 100644 src/ellinika/tests/conj/anebainv.scm create mode 100644 src/ellinika/tests/conj/anoigv.scm create mode 100644 src/ellinika/tests/conj/aresv.scm create mode 100644 src/ellinika/tests/conj/ballv.scm create mode 100644 src/ellinika/tests/conj/bgainv.scm create mode 100644 src/ellinika/tests/conj/blepv.scm create mode 100644 src/ellinika/tests/conj/briskv.scm create mode 100644 src/ellinika/tests/conj/denv.scm create mode 100644 src/ellinika/tests/conj/diabazv.scm create mode 100644 src/ellinika/tests/conj/eimai.scm create mode 100644 src/ellinika/tests/conj/erxomai.scm create mode 100644 src/ellinika/tests/conj/exv.scm create mode 100644 src/ellinika/tests/conj/kitav.scm create mode 100644 src/ellinika/tests/conj/kremav.scm create mode 100644 src/ellinika/tests/conj/nikav.scm create mode 100644 src/ellinika/tests/conj/nikv.scm create mode 100644 src/ellinika/tests/conj/ntynv.scm create mode 100644 src/ellinika/tests/conj/phgainv.scm create mode 100644 src/ellinika/tests/conj/pinv.scm create mode 100644 src/ellinika/tests/conj/trabav.scm create mode 100644 src/ellinika/tests/conj/uelv.scm create mode 100644 src/ellinika/tests/deacc.scm create mode 100644 src/ellinika/tests/phonmap.scm create mode 100644 src/ellinika/tests/setacc-1.scm create mode 100644 src/ellinika/tests/setacc-2.scm create mode 100644 src/ellinika/tests/setacc-3.scm create mode 100644 src/ellinika/tests/slice-el.scm create mode 100644 src/ellinika/tests/slice-s.scm create mode 100644 src/ellinika/tests/soundslike.scm create mode 100644 src/ellinika/tests/suffix-el.scm create mode 100644 src/ellinika/tests/suffix-s.scm create mode 100644 src/ellinika/tests/syltest-1.scm create mode 100644 src/ellinika/tests/syltest-2.scm create mode 100644 src/ellinika/tests/syltest-3.scm create mode 100644 src/ellinika/tests/syltest-4.scm create mode 100644 src/ellinika/tests/syltest-5.scm create mode 100644 src/ellinika/tests/trim-el.scm create mode 100644 src/ellinika/tests/trim-s.scm (limited to 'src/ellinika/tests') diff --git a/src/ellinika/tests/accsyl.scm b/src/ellinika/tests/accsyl.scm new file mode 100644 index 0000000..af91eb4 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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 --- /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)) -- cgit v1.2.1