(deftest hue.diff.1 (hue-difference 10 10) 0)
(deftest hue.diff.2 (hue-difference 10 9) -1)
(deftest hue.diff.3 (hue-difference 9 10) 1)
-(deftest hue.diff.4 (hue-difference 10 nil) nil)
-(deftest hue.diff.5 (hue-difference nil 1) nil)
+(deftest hue.diff.4 (hue-difference 10 nil) 360)
+(deftest hue.diff.5 (hue-difference nil 1) 360)
(deftest hue.diff.7 (hue-difference 10 190) 180)
(deftest hue.diff.8 (hue-difference 190 10) -180)
(deftest hue.diff.9 (hue-difference 1 359) -2)
:value-range 0.05 :saturation-range 0
:black-limit 0 :gray-limit .1) nil)
-;;; MOP Testing
+#+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
(eval-when (:compile-toplevel :load-toplevel :execute)
(when (find-package '#:kmr-mop)