r8614: add string-elide, new tests

[kmrcl.git] / tests.lisp

diff --git a/tests.lisp b/tests.lisp
index ad50708b5dd6c7b64be0e20150a5e4ba0c7413e2..483fcf164b37008ebccc7f00d9f02daaeefafd5a 100644 (file)
--- 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)