From e50173c65dca2cd0e0b5cbc563b7fa36b4d164ca Mon Sep 17 00:00:00 2001
From: Sergey Poznyakoff <gray@gnu.org.ua>
Date: Sun, 12 Jun 2011 04:01:10 +0300
Subject: Add tests.

---
 src/ellinika/tests/trim-s.scm | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 src/ellinika/tests/trim-s.scm

(limited to 'src/ellinika/tests/trim-s.scm')

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