+)
+
+
+(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")