(module date-test mzscheme (require (planet "test.ss" ("schematics" "schemeunit.plt" 2 0)) (file "date.ss") ) (provide date-tests ) (define date-tests (test-suite "All tests for date" (test-case "leap-year? : 2001 is not a leap year" (check equal? (leap-year? 2001) #f)) (test-case "leap-year? : 2004 is a leap year" (check equal? (leap-year? 2004) #t)) (test-case "leap-year? : 2000 is a leap year" (check equal? (leap-year? 2000) #t)) (test-case "leap-year? : 1900 is not a leap year" (check equal? (leap-year? 1900) #f)) )) )