Skip to content

Instantly share code, notes, and snippets.

@agumonkey

agumonkey/try.rackunit.rkt

Last active December 14, 2015 04:48
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save agumonkey/5030355 to your computer and use it in GitHub Desktop.
Save agumonkey/5030355 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
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)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment