From d3f378eb21251e20b3f5fff6e4a505470f6af726 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Thu, 15 Jan 2004 17:32:26 +0000
Subject: [PATCH] r8538: changes

---
 tests.lisp | 28 ++++++++++++++++++++++++++--
 1 file changed, 26 insertions(+), 2 deletions(-)

diff --git a/tests.lisp b/tests.lisp
index 5189d07..b4aa20c 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,6 +315,30 @@
                                 :value-range 0.05 :saturation-range 0
                                 :black-limit 0 :gray-limit .1) nil)
 
+(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)
+
 ;;; MOP Testing
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
-- 
2.34.1