r8632: updates

[kmrcl.git] / tests.lisp

diff --git a/tests.lisp b/tests.lisp
index b4aa20c3d2b74f9a0eff8b867d5d577d70d46c63..483fcf164b37008ebccc7f00d9f02daaeefafd5a 100644 (file)
--- a/tests.lisp
+++ b/tests.lisp
@@ -315,31 +315,55 @@
                                 :value-range 0.05 :saturation-range 0
                                 :black-limit 0 :gray-limit .1) nil)
 
+#+ignore
+(progn
 (deftest dst.1
     (is-dst-change-usa-spring-utime
      (encode-universal-time 0 0 0 2 4 2000)) t)
-
 (deftest dst.2
     (is-dst-change-usa-spring-utime
      (encode-universal-time 0 0 0 1 4 2000)) nil)
-
 (deftest dst.3
     (is-dst-change-usa-spring-utime
      (encode-universal-time 0 0 0 3 4 2000)) nil)
-
 (deftest dst.4
     (is-dst-change-usa-fall-utime
      (encode-universal-time 0 0 0 31 10 2004)) t)
-
 (deftest dst.5
     (is-dst-change-usa-fall-utime
      (encode-universal-time 0 0 0 30 10 2004)) nil)
-
 (deftest dst.6
     (is-dst-change-usa-fall-utime
      (encode-universal-time 0 0 0 1 11 2000)) nil)
+)
+
+
+(deftest ekdc.1
+    (ensure-keyword-default-case (read-from-string "TYPE")) :type)
+
+(deftest ekdc.2
+    (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
+ ;;; MOP Testing
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (when (find-package '#:kmr-mop)