;;; .EnTete "Le-Lisp (c) version 15.2" " " "Test des fonctions sur la date"
;;; .EnPied "testdate.ll" "%" " "
;;;
;;; .SuperTitre "Test des fonctions sur la date"
;;;
;;;
;;; .Centre "*****************************************************************"
;;; .Centre " Ce fichier est en lecture seule hors du projet ALE de l'INRIA.  "
;;; .Centre " Il est maintenu par ILOG SA, 2 Avenue Gallie'ni, 94250 Gentilly "
;;; .Centre " (c) Le-Lisp est une marque de'pose'e de l'INRIA                 "
;;; .Centre "*****************************************************************"
;;;
;;; .Centre "$Header: testdate.ll,v 1.1 88/12/05 15:08:55 kuczynsk Exp $"

(unless (>= (version) 15.2)
        (error 'load 'erricf 'testdate))

(unless (getdef 'eqdate)
	(loadmodule 'libdate t))

; Appel de la fonction de test 

(unless (featurep 'testcomm)
        (libload testcomm t))

(testfn ())

          (test-serie "Tests des fonctions sur la date" ())

#.(setq d (date))              #.d
(type-of (date))               date
#.(setq d (create-date))       #.d
(null (datep d))               ()
(datep ())                     ()
(type-of (short-string-date d)) string
(type-of (long-string-date d))  string
(< 0 (week-day-number d) 8)     0
(leap-year-p 1988)              t
(leap-year-p 1989)              ()
(leap-year-p 1900)              ()
(leap-year-p 2000)              t
(eqdate d d)                    #.d
(eqdate d (date))               ()
(<date d (date))                ()
(<=date d d)                    t
(>date d (date))                ()
(>=date d (date))               t
#.(setq n (date-to-number (setq dd (date)))) #.n
#.(> 1. (- (number-to-date n) dd))           1.

          (test-serie "Fin du test" ())

    ()                            ()