|
@@ -0,0 +1,20 @@
|
|
|
+;;;; isodate-test.lisp
|
|
|
+
|
|
|
+(load "isodate.lisp")
|
|
|
+
|
|
|
+(defpackage #:isodate-test
|
|
|
+ (:use :cl
|
|
|
+ :prove
|
|
|
+ :iso-date))
|
|
|
+
|
|
|
+(in-package #:isodate-test)
|
|
|
+
|
|
|
+;;; "isodate-test" goes here. Hacks and glory await!
|
|
|
+
|
|
|
+(plan 2)
|
|
|
+
|
|
|
+(is (encode-universal-time 0 18 20 20 7 1969) (parse-date "1969-07-20T20:18:00"))
|
|
|
+
|
|
|
+(is "1969-07-20T20:18:00" (print-date (encode-universal-time 0 18 20 20 7 1969)))
|
|
|
+
|
|
|
+(finalize)
|