isodate-test.lisp 583 B

1234567891011121314151617181920212223242526
  1. ;;;; isodate-test.lisp
  2. (load "isodate.lisp")
  3. (defpackage #:isodate-test
  4. (:use :cl
  5. :prove
  6. :iso-date))
  7. (in-package #:isodate-test)
  8. ;;; "isodate-test" goes here. Hacks and glory await!
  9. (plan 5)
  10. (is (encode-universal-time 0 18 20 20 7 1969) (parse-date "1969-07-20T20:18:00"))
  11. (is "1969-07-20T20:18:00" (print-date (encode-universal-time 0 18 20 20 7 1969)))
  12. (ok (leap-year-p 2000))
  13. (is (encode-universal-time 0 18 20 20 7 1969) (parse-mini-date "19690720201800"))
  14. (is "19690720201800" (print-mini-date (encode-universal-time 0 18 20 20 7 1969)))
  15. (finalize)