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.
19 lines
512 B
19 lines
512 B
#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))
|
|
|