Sha256: 8c8ab066d7c079a777ce9d5c2420d381fdcd5d82805a9dc027fcde5acea8cc77
Contents?: true
Size: 600 Bytes
Versions: 343
Compression:
Stored size: 600 Bytes
Contents
(ql:quickload "lisp-unit")
#-xlisp-test (load "leap-year")
(defpackage #:leap-test
(:use #:common-lisp #:lisp-unit))
(in-package #:leap-test)
(define-test vanilla-leap-year
(assert-true (leap:leap-year-p 1996)))
(define-test any-old-year
(assert-false (leap:leap-year-p 1997)))
(define-test non-leap-even-year
(assert-false (leap:leap-year-p 1998)))
(define-test century
(assert-false (leap:leap-year-p 1900)))
(define-test exceptional-century
(assert-true (leap:leap-year-p 2400)))
#-xlisp-test
(let ((*print-errors* t)
(*print-failures* t))
(run-tests :all :leap-test))
Version data entries
343 entries across 343 versions & 1 rubygems