diff options
Diffstat (limited to 'src/ellinika/tests')
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 | |||
3 | testdir=conj.dir | ||
4 | failures=0 | ||
5 | |||
6 | testcon() { | ||
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 | |||
18 | if ! test -d $testdir; then | ||
19 | mkdir $testdir || exit 2 | ||
20 | fi | ||
21 | |||
22 | if test $# -gt 0; then | ||
23 | for verb in $* | ||
24 | do | ||
25 | testcon $verb | ||
26 | done | ||
27 | else | ||
28 | find samples -type f -printf '%f\n' | | ||
29 | while read verb | ||
30 | do | ||
31 | testcon $verb | ||
32 | done | ||
33 | fi | ||
34 | |||
35 | if test $failures -eq 0; then | ||
36 | rmdir $testdir | ||
37 | fi | ||
38 | |||
39 | exit $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 | άγω Μεσοπαθητική φωνή/Οριστική/Παρακείμενος: (έχω αχθεί έχεις αχθεί έχε |