Sha256: 91f31b731180e2ace146358bf4972fc062fce37e7d855f8c6836c0a9b7de5ed5
Contents?: true
Size: 601 Bytes
Versions: 53
Compression:
Stored size: 601 Bytes
Contents
(ql:quickload "lisp-unit")
(defpackage #:leap-test
(:use #:common-lisp #:lisp-unit))
#-xlisp-test (load "leap-year")
(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
53 entries across 53 versions & 1 rubygems