X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=tests.lisp;h=774f0134acf2b6297be1f33f1fc068f7d3c25652;hp=5189d075c67c5cf925fd7a6402727edd10277ceb;hb=baaf50bd67cbb36d51bfaf0b473cc914d140a41b;hpb=f6555d4ded6e1612ef1042fdbfd8df3c8eb5df18

diff --git a/tests.lisp b/tests.lisp
index 5189d07..774f013 100644
--- a/tests.lisp
+++ b/tests.lisp
@@ -279,8 +279,8 @@
 (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)
@@ -315,8 +315,62 @@
                                 :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)
+
+
+(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*)))
@@ -369,3 +423,5 @@
 #+kmrtest-mop
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (setq cl:*features* (delete :kmrtest-mop cl:*features*)))
+
+) ;; progn