projects
/
kmrcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r8580: add tests/improvements to ensure-keyword-*
[kmrcl.git]
/
tests.lisp
diff --git
a/tests.lisp
b/tests.lisp
index b4aa20c3d2b74f9a0eff8b867d5d577d70d46c63..ad50708b5dd6c7b64be0e20150a5e4ba0c7413e2 100644
(file)
--- a/
tests.lisp
+++ b/
tests.lisp
@@
-315,31
+315,37
@@
:value-range 0.05 :saturation-range 0
:black-limit 0 :gray-limit .1) nil)
: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.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.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.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.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.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 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
+
;;; MOP Testing
(eval-when (:compile-toplevel :load-toplevel :execute)
(when (find-package '#:kmr-mop)
(eval-when (:compile-toplevel :load-toplevel :execute)
(when (find-package '#:kmr-mop)