Samuel W. Flint 9 years ago
parent
commit
c0d7371180
2 changed files with 9 additions and 2 deletions
  1. 7 1
      isodate-test.lisp
  2. 2 1
      isodate.lisp

+ 7 - 1
isodate-test.lisp

@@ -11,10 +11,16 @@
 
 ;;; "isodate-test" goes here. Hacks and glory await!
 
-(plan 2)
+(plan 5)
 
 (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)))
 
+(ok (leap-year-p 2000))
+
+(is (encode-universal-time 0 18 20 20 7 1969) (parse-mini-date "19690720201800"))
+
+(is "19690720201800" (print-mini-date (encode-universal-time 0 18 20 20 7 1969)))
+
 (finalize)

+ 2 - 1
isodate.lisp

@@ -8,7 +8,8 @@
            #:date-stamp
            #:parse-mini-date
            #:print-mini-date
-           #:mini-date-stamp))
+           #:mini-date-stamp
+           #:leap-year-p))
 
 (in-package #:iso-date)