X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=tests.lisp;h=483fcf164b37008ebccc7f00d9f02daaeefafd5a;hp=ad50708b5dd6c7b64be0e20150a5e4ba0c7413e2;hb=ab5f800e2939665c968b9e97519d99bddb39251d;hpb=2f65fd6d93691f3943182138efd2013c3fdb67c7

diff --git a/tests.lisp b/tests.lisp
index ad50708..483fcf1 100644
--- a/tests.lisp
+++ b/tests.lisp
@@ -345,6 +345,24 @@
     (ensure-keyword-default-case (read-from-string "type")) :type)
 
 
+(deftest se.1
+    (string-elide "A Test string" 10 :end) "A Test ..." )
+
+(deftest se.2
+    (string-elide "A Test string" 13 :end) "A Test string")
+
+(deftest se.3
+    (string-elide "A Test string" 11 :end) "A Test s..." )
+
+(deftest se.4
+    (string-elide "A Test string" 2 :middle) "...")
+
+(deftest se.5
+    (string-elide "A Test string" 11 :middle) "A Te...ring")
+
+(deftest se.6
+    (string-elide "A Test string" 12 :middle) "A Tes...ring")
+
  ;;; MOP Testing
 
 (eval-when (:compile-toplevel :load-toplevel :execute)