aboutsummaryrefslogtreecommitdiff
path: root/src/ellinika/tests
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2011-06-12 04:01:10 +0300
committerSergey Poznyakoff <gray@gnu.org.ua>2011-06-12 04:01:10 +0300
commite50173c65dca2cd0e0b5cbc563b7fa36b4d164ca (patch)
treec51ac0da8d875fed9156cc67bc9b1a931650299b /src/ellinika/tests
parenta9fa703eecfc81b26c1d969cc13a7ce476c84d6d (diff)
downloadellinika-e50173c65dca2cd0e0b5cbc563b7fa36b4d164ca.tar.gz
ellinika-e50173c65dca2cd0e0b5cbc563b7fa36b4d164ca.tar.bz2
Add tests.
Diffstat (limited to 'src/ellinika/tests')
-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
44 files changed, 237 insertions, 0 deletions
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))

Return to:

Send suggestions and report system problems to the System administrator.