;;;; 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)