aboutsummaryrefslogtreecommitdiff
path: root/src/ellinika/tests
diff options
context:
space:
mode:
Diffstat (limited to 'src/ellinika/tests')
-rwxr-xr-xsrc/ellinika/tests/conj-test39
-rw-r--r--src/ellinika/tests/conj/anoigv.scm1
-rw-r--r--src/ellinika/tests/conj/bastav.scm3
-rw-r--r--src/ellinika/tests/conj/lev.scm10
-rw-r--r--src/ellinika/tests/conj/milav.scm5
-rw-r--r--src/ellinika/tests/conj/ntynv.scm1
-rw-r--r--src/ellinika/tests/conj/pav.scm7
-rw-r--r--src/ellinika/tests/samples/aggelv28
-rw-r--r--src/ellinika/tests/samples/agv28
-rw-r--r--src/ellinika/tests/samples/anebainv28
-rw-r--r--src/ellinika/tests/samples/anoigv28
-rw-r--r--src/ellinika/tests/samples/apomenv28
-rw-r--r--src/ellinika/tests/samples/aresv28
-rw-r--r--src/ellinika/tests/samples/ballv28
-rw-r--r--src/ellinika/tests/samples/bastav49
-rw-r--r--src/ellinika/tests/samples/bastv49
-rw-r--r--src/ellinika/tests/samples/bgainv28
-rw-r--r--src/ellinika/tests/samples/blepv28
-rw-r--r--src/ellinika/tests/samples/briskv28
-rw-r--r--src/ellinika/tests/samples/denv28
-rw-r--r--src/ellinika/tests/samples/diabazv28
-rw-r--r--src/ellinika/tests/samples/eimai28
-rw-r--r--src/ellinika/tests/samples/erxomai37
-rw-r--r--src/ellinika/tests/samples/exv28
-rw-r--r--src/ellinika/tests/samples/kauomai28
-rw-r--r--src/ellinika/tests/samples/kremav32
-rw-r--r--src/ellinika/tests/samples/lev36
-rw-r--r--src/ellinika/tests/samples/milav32
-rw-r--r--src/ellinika/tests/samples/nikav32
-rw-r--r--src/ellinika/tests/samples/nikv32
-rw-r--r--src/ellinika/tests/samples/ntynv28
-rw-r--r--src/ellinika/tests/samples/pav2
-rw-r--r--src/ellinika/tests/samples/phgainv28
-rw-r--r--src/ellinika/tests/samples/pinv28
-rw-r--r--src/ellinika/tests/samples/trabav49
-rw-r--r--src/ellinika/tests/samples/uelv28
36 files changed, 948 insertions, 0 deletions
diff --git a/src/ellinika/tests/conj-test b/src/ellinika/tests/conj-test
new file mode 100755
index 0000000..fbacae1
--- /dev/null
+++ b/src/ellinika/tests/conj-test
@@ -0,0 +1,39 @@
1#! /bin/sh
2
3testdir=conj.dir
4failures=0
5
6testcon() {
7 if guile -s conj/$1.scm | diff -pu samples/$1 - > $testdir/$1.diff
8 then
9 status=PASS
10 rm $testdir/$1.diff
11 else
12 status=FAIL
13 failures=1
14 fi
15 echo "$1: $status"
16}
17
18if ! test -d $testdir; then
19 mkdir $testdir || exit 2
20fi
21
22if test $# -gt 0; then
23 for verb in $*
24 do
25 testcon $verb
26 done
27else
28 find samples -type f -printf '%f\n' |
29 while read verb
30 do
31 testcon $verb
32 done
33fi
34
35if test $failures -eq 0; then
36 rmdir $testdir
37fi
38
39exit $failures
diff --git a/src/ellinika/tests/conj/anoigv.scm b/src/ellinika/tests/conj/anoigv.scm
index 4ba6e12..cb42dba 100644
--- a/src/ellinika/tests/conj/anoigv.scm
+++ b/src/ellinika/tests/conj/anoigv.scm
@@ -1,3 +1,4 @@
1(use-modules ((ellinika test-conjugation))) 1(use-modules ((ellinika test-conjugation)))
2 2
3(test-conjugation:verb "ανοίγω") 3(test-conjugation:verb "ανοίγω")
4;(test-conjugation:tense "ανοίγω" "pas" "imp" "Αόριστος")
diff --git a/src/ellinika/tests/conj/bastav.scm b/src/ellinika/tests/conj/bastav.scm
new file mode 100644
index 0000000..bdf5a5d
--- /dev/null
+++ b/src/ellinika/tests/conj/bastav.scm
@@ -0,0 +1,3 @@
1(use-modules ((ellinika test-conjugation)))
2
3(test-conjugation:verb "βαστάω")
diff --git a/src/ellinika/tests/conj/lev.scm b/src/ellinika/tests/conj/lev.scm
new file mode 100644
index 0000000..c42ad93
--- /dev/null
+++ b/src/ellinika/tests/conj/lev.scm
@@ -0,0 +1,10 @@
1(use-modules ((ellinika test-conjugation)))
2
3(test-conjugation:verb "λέω")
4;(test-conjugation:tense "λέω" "pas" "ind" "Αόριστος")
5;(test-conjugation:tense "λέω" "act" "ind" "Ενεστώτας")
6;(test-conjugation:tense "λέω" "act" "ind" "Παρακείμενος")
7;(test-conjugation:tense "λέω" "act" "ind" "Μέλλοντας διαρκείας")
8;(test-conjugation:tense "λέω" "act" "ind" "Παρατατικός")
9;(test-conjugation:tense "λέω" "pas" "ind" "Μέλλοντας στιγμιαίος")
10;(test-conjugation:tense "λέω" "pas" "imp" "Αόριστος") \ No newline at end of file
diff --git a/src/ellinika/tests/conj/milav.scm b/src/ellinika/tests/conj/milav.scm
new file mode 100644
index 0000000..413dd72
--- /dev/null
+++ b/src/ellinika/tests/conj/milav.scm
@@ -0,0 +1,5 @@
1(use-modules ((ellinika test-conjugation)))
2
3(test-conjugation:verb "μιλάω")
4;(test-conjugation:tense "μιλάω" "act" "ind" "Μέλλοντας διαρκείας")
5;(test-conjugation:tense "μιλάω" "act" "ind" "Ενεστώτας")
diff --git a/src/ellinika/tests/conj/ntynv.scm b/src/ellinika/tests/conj/ntynv.scm
index 1fd1545..42ba15b 100644
--- a/src/ellinika/tests/conj/ntynv.scm
+++ b/src/ellinika/tests/conj/ntynv.scm
@@ -1,3 +1,4 @@
1(use-modules (ellinika test-conjugation)) 1(use-modules (ellinika test-conjugation))
2 2
3(test-conjugation:verb "ντύνω") 3(test-conjugation:verb "ντύνω")
4;(test-conjugation:tense "ντύνω" "act" "imp" "Αόριστος") \ No newline at end of file
diff --git a/src/ellinika/tests/conj/pav.scm b/src/ellinika/tests/conj/pav.scm
new file mode 100644
index 0000000..d438e56
--- /dev/null
+++ b/src/ellinika/tests/conj/pav.scm
@@ -0,0 +1,7 @@
1(use-modules ((ellinika test-conjugation)))
2
3;(test-conjugation:verb "πάω")
4(test-conjugation:tense "πάω" "act" "ind" "Ενεστώτας")
5;(test-conjugation:tense "πάω" "act" "ind" "Μέλλοντας στιγμιαίος")
6;(test-conjugation:tense "πάω" "act" "sub" "Ενεστώτας")
7;(test-conjugation:tense "πάω" "act" "sub" "Αόριστος")
diff --git a/src/ellinika/tests/samples/aggelv b/src/ellinika/tests/samples/aggelv
new file mode 100644
index 0000000..348ac81
--- /dev/null
+++ b/src/ellinika/tests/samples/aggelv
@@ -0,0 +1,28 @@
1αγγέλω Ενεργητηκή φωνή/Οριστική/Ενεστώτας: (αγγέλω αγγέλεις αγγέλει αγγέλουμε αγγέλετε αγγέλουν(ε))
2αγγέλω Ενεργητηκή φωνή/Οριστική/Παρατατικός: (άγγελα άγγελες άγγελε αγγέλαμε αγγέλατε άγγελαν)
3αγγέλω Ενεργητηκή φωνή/Οριστική/Μέλλοντας διαρκείας: (θα αγγέλω θα αγγέλεις θα αγγέλει θα αγγέλουμε θα αγγέλετε θα αγγέλουν(ε))
4αγγέλω Ενεργητηκή φωνή/Οριστική/Αόριστος: (άγγειλα άγγειλες άγγειλε αγγείλαμε αγγείλατε άγγειλαν)
5αγγέλω Ενεργητηκή φωνή/Οριστική/Παρακείμενος: (έχω αγγείλει έχεις αγγείλει έχει αγγείλει έχουμε αγγείλει έχετε αγγείλει έχουν(ε) αγγείλει)
6αγγέλω Ενεργητηκή φωνή/Οριστική/Υπερσυντέλικος: (είχα αγγείλει είχες αγγείλει είχα αγγείλει είχαμε αγγείλει είχατε αγγείλει είχαν αγγείλει)
7αγγέλω Ενεργητηκή φωνή/Οριστική/Συντελεσμένος μέλλοντας: (θα έχω αγγείλει θα έχεις αγγείλει θα έχει αγγείλει θα έχουμε αγγείλει θα έχετε αγγείλει θα έχουν(ε) αγγείλει)
8αγγέλω Ενεργητηκή φωνή/Οριστική/Μέλλοντας στιγμιαίος: (θα αγγείλω θα αγγείλεις θα αγγείλει θα αγγείλουμε θα αγγείλετε θα αγγείλουν(ε))
9αγγέλω Ενεργητηκή φωνή/Υποτακτική/Ενεστώτας: (να αγγέλω να αγγέλεις να αγγέλει να αγγέλουμε να αγγέλετε να αγγέλουν(ε))
10αγγέλω Ενεργητηκή φωνή/Υποτακτική/Αόριστος: (να αγγείλω να αγγείλεις να αγγείλει να αγγείλουμε να αγγείλετε να αγγείλουν(ε))
11αγγέλω Ενεργητηκή φωνή/Υποτακτική/Παρακείμενος: (να έχω αγγείλει να έχεις αγγείλει να έχει αγγείλει να έχουμε αγγείλει να έχετε αγγείλει να έχουν(ε) αγγείλει)
12αγγέλω Ενεργητηκή φωνή/Προστακτική/Ενεστώτας: (#f άγγελε #f #f αγγέλετε #f)
13αγγέλω Ενεργητηκή φωνή/Προστακτική/Αόριστος: (#f άγγειλε #f #f αγγείλτε #f)
14αγγέλω Ενεργητηκή φωνή/Προστακτική/Παρακείμενος: (#f να έχεις αγγείλει #f #f να έχετε αγγείλει #f)
15αγγέλω Μεσοπαθητική φωνή/Οριστική/Ενεστώτας: (αγγέλομαι αγγέλεσαι αγγέλεται αγγελόμαστε αγγέλεστε αγγέλονται)
16αγγέλω Μεσοπαθητική φωνή/Οριστική/Παρατατικός: (αγγελομούν αγγελοσούν αγγελόταν αγγελόμαστε αγγελόσαστε αγγέλονταν)
17αγγέλω Μεσοπαθητική φωνή/Οριστική/Μέλλοντας διαρκείας: (θα αγγέλομαι θα αγγέλεσαι θα αγγέλεται θα αγγελόμαστε θα αγγέλεστε θα αγγέλονται)
18αγγέλω Μεσοπαθητική φωνή/Οριστική/Αόριστος: !(αγγέλθηκα αγγέλθηκες αγγέλθηκε αγγελθήκαμε αγγελθήκατε αγγέλθηκαν)
19αγγέλω Μεσοπαθητική φωνή/Οριστική/Παρακείμενος: !(έχω αγγελθεί έχεις αγγελθεί έχει αγγελθεί έχουμε αγγελθεί έχετε αγγελθεί έχουν(ε) αγγελθεί)
20αγγέλω Μεσοπαθητική φωνή/Οριστική/Υπερσυντέλικος: !(είχα αγγελθεί είχες αγγελθεί είχα αγγελθεί είχαμε αγγελθεί είχατε αγγελθεί είχαν αγγελθεί)
21αγγέλω Μεσοπαθητική φωνή/Οριστική/Συντελεσμένος μέλλοντας: !(θα έχω αγγελθεί θα έχεις αγγελθεί θα έχει αγγελθεί θα έχουμε αγγελθεί θα έχετε αγγελθεί θα έχουν(ε) αγγελθεί)
22αγγέλω Μεσοπαθητική φωνή/Οριστική/Μέλλοντας στιγμιαίος: !(θα αγγελθώ θα αγγελθείς θα αγγελθεί θα αγγελθούμε θα αγγελθείτε θα αγγελθούν(ε))
23αγγέλω Μεσοπαθητική φωνή/Υποτακτική/Ενεστώτας: (να αγγέλομαι να αγγέλεσαι να αγγέλεται να αγγελόμαστε να αγγέλεστε να αγγέλονται)
24αγγέλω Μεσοπαθητική φωνή/Υποτακτική/Αόριστος: !(να αγγελθώ να αγγελθείς να αγγελθεί να αγγελθούμε να αγγελθείτε να αγγελθούν(ε))
25αγγέλω Μεσοπαθητική φωνή/Υποτακτική/Παρακείμενος: !(να έχω αγγελθεί να έχεις αγγελθεί να έχει αγγελθεί να έχουμε αγγελθεί να έχετε αγγελθεί να έχουν(ε) αγγελθεί)
26αγγέλω Μεσοπαθητική φωνή/Προστακτική/Ενεστώτας: (#f να αγγέλεσαι #f #f να αγγέλεστε #f)
27αγγέλω Μεσοπαθητική φωνή/Προστακτική/Αόριστος: !(#f αγγείλου #f #f αγγελθείτε #f)
28αγγέλω Μεσοπαθητική φωνή/Προστακτική/Παρακείμενος: !(#f να έχεις αγγελθεί #f #f να έχετε αγγελθεί #f)
diff --git a/src/ellinika/tests/samples/agv b/src/ellinika/tests/samples/agv
new file mode 100644
index 0000000..0fd9fa1
--- /dev/null
+++ b/src/ellinika/tests/samples/agv
@@ -0,0 +1,28 @@
1άγω Ενεργητηκή φωνή/Οριστική/Ενεστώτας: (άγω άγεις άγει άγουμε άγετε άγουν(ε))
2άγω Ενεργητηκή φωνή/Οριστική/Παρατατικός: (έαγα έαγες έαγε άγαμε άγατε έαγαν)
3άγω Ενεργητηκή φωνή/Οριστική/Μέλλοντας διαρκείας: (θα άγω θα άγεις θα άγει θα άγουμε θα άγετε θα άγουν(ε))
4άγω Ενεργητηκή φωνή/Οριστική/Αόριστος: (ήγαγα ήγαγες ήγαγε ηγάγαμε ηγάγατε ήγαγαν)
5άγω Ενεργητηκή φωνή/Οριστική/Παρακείμενος: (έχω αγάγει έχεις αγάγει έχει αγάγει έχουμε αγάγει έχετε αγάγει έχουν(ε) αγάγει)
6άγω Ενεργητηκή φωνή/Οριστική/Υπερσυντέλικος: (είχα αγάγει είχες αγάγει είχα αγάγει είχαμε αγάγει είχατε αγάγει είχαν αγάγει)
7άγω Ενεργητηκή φωνή/Οριστική/Συντελεσμένος μέλλοντας: (θα έχω αγάγει θα έχεις αγάγει θα έχει αγάγει θα έχουμε αγάγει θα έχετε αγάγει θα έχουν(ε) αγάγει)
8άγω Ενεργητηκή φωνή/Οριστική/Μέλλοντας στιγμιαίος: (θα αγάγω θα αγάγεις θα αγάγει θα αγάγουμε θα αγάγετε θα αγάγουν(ε))
9άγω Ενεργητηκή φωνή/Υποτακτική/Ενεστώτας: (να άγω να άγεις να άγει να άγουμε να άγετε να άγουν(ε))
10άγω Ενεργητηκή φωνή/Υποτακτική/Αόριστος: (να αγάγω να αγάγεις να αγάγει να αγάγουμε να αγάγετε να αγάγουν(ε))
11άγω Ενεργητηκή φωνή/Υποτακτική/Παρακείμενος: (να έχω αγάγει να έχεις αγάγει να έχει αγάγει να έχουμε αγάγει να έχετε αγάγει να έχουν(ε) αγάγει)
12άγω Ενεργητηκή φωνή/Προστακτική/Ενεστώτας: (#f άγε #f #f άγετε #f)
13άγω Ενεργητηκή φωνή/Προστακτική/Αόριστος: (#f άγαγε #f #f αγάγτε #f)
14άγω Ενεργητηκή φωνή/Προστακτική/Παρακείμενος: (#f να έχεις αγάγει #f #f να έχετε αγάγει #f)
15άγω Μεσοπαθητική φωνή/Οριστική/Ενεστώτας: (άγομαι άγεσαι άγεται αγόμαστε άγεστε άγονται)
16άγω Μεσοπαθητική φωνή/Οριστική/Παρατατικός: (αγομούν αγοσούν αγόταν αγόμαστε αγόσαστε άγονταν)
17άγω Μεσοπαθητική φωνή/Οριστική/Μέλλοντας διαρκείας: (θα άγομαι θα άγεσαι θα άγεται θα αγόμαστε θα άγεστε θα άγονται)
18άγω Μεσοπαθητική φωνή/Οριστική/Αόριστος: (άχθηκα άχθηκες άχθηκε αχθήκαμε αχθήκατε άχθηκαν)
19άγω Μεσοπαθητική φωνή/Οριστική/Παρακείμενος: (έχω αχθεί έχεις αχθεί έχε