: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)
+
-;;; MOP Testing
+(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
+
+;; Disable attrib class until understand changes in sbcl/cmucl
+;; using COMPUTE-SLOT-ACCESSOR-INFO and defining method
+;; for slot access of ALL-ATTRIBUTES. Does this work on Allegro/LW?
+
+#+ignore
+(progn
(eval-when (:compile-toplevel :load-toplevel :execute)
(when (find-package '#:kmr-mop)
(pushnew :kmrtest-mop cl:*features*)))
#+kmrtest-mop
(eval-when (:compile-toplevel :load-toplevel :execute)
(setq cl:*features* (delete :kmrtest-mop cl:*features*)))
+
+) ;; progn