(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))

     ))
  )