try.rackunit.rkt

(require rackunit)
(require rackunit/text-ui)

(define q1
  (test-suite
   "question 1 : warm up, project, inverse"
   (check-equal? 1000 (* 10 10 10) "trivial equality")
   (check-exn exn:fail? (lambda () (error "DUCK!"))) "test for function that should fail"))

(run-tests q1)

(define fail
  (test-suite
   "error on purpose"
   (check-equal? 1 0 "oops")))

(run-tests fail)