summaryrefslogtreecommitdiffabout
path: root/src/ellinika/tests/slice-s.scm
authorSergey Poznyakoff <gray@gnu.org.ua>2011-06-12 01:01:10 (GMT)
committer Sergey Poznyakoff <gray@gnu.org.ua>2011-06-12 01:01:10 (GMT)
commite50173c65dca2cd0e0b5cbc563b7fa36b4d164ca (patch) (side-by-side diff)
treec51ac0da8d875fed9156cc67bc9b1a931650299b /src/ellinika/tests/slice-s.scm
parenta9fa703eecfc81b26c1d969cc13a7ce476c84d6d (diff)
downloadellinika-e50173c65dca2cd0e0b5cbc563b7fa36b4d164ca.tar.gz
ellinika-e50173c65dca2cd0e0b5cbc563b7fa36b4d164ca.tar.bz2
Add tests.
Diffstat (limited to 'src/ellinika/tests/slice-s.scm') (more/less context) (ignore whitespace changes)
-rw-r--r--src/ellinika/tests/slice-s.scm8
1 files changed, 8 insertions, 0 deletions
diff --git a/src/ellinika/tests/slice-s.scm b/src/ellinika/tests/slice-s.scm
new file mode 100644
index 0000000..13b2084
--- a/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))

Return to:

Send suggestions and report system problems to the System administrator.