You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
512 B
20 lines
512 B
3 years ago
|
#lang racket/base
|
||
|
|
|
||
|
|
(require "leap.rkt")
|
||
|
|
|
||
|
|
(module+ test
|
||
|
|
(require rackunit rackunit/text-ui)
|
||
|
|
|
||
|
|
(define suite
|
||
|
|
(test-suite
|
||
|
|
"leap tests"
|
||
|
|
|
||
|
|
(test-eqv? "vanilla-leap-year" (leap-year? 1996) #t)
|
||
|
|
(test-eqv? "any-old-year" (leap-year? 2015)#f)
|
||
|
|
(test-eqv? "non-leap-even-year" (leap-year? 1998) #f)
|
||
|
|
(test-eqv? "century" (leap-year? 2100)#f)
|
||
|
|
(test-eqv? "not an exceptional-century" (leap-year? 1800) #f)
|
||
|
|
(test-eqv? "exceptional-century" (leap-year? 2000) #t)))
|
||
|
|
|
||
|
|
(run-tests suite))
|