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/test-conjugation.scm | 78 ++++++++++++++++++++++++++++++++++++ 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 +++++ 45 files changed, 315 insertions(+) create mode 100644 src/ellinika/test-conjugation.scm 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 diff --git a/src/ellinika/test-conjugation.scm b/src/ellinika/test-conjugation.scm new file mode 100644 index 0000000..83086bf --- /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 . + +(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 --- /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