13 lines
316 B
Racket
13 lines
316 B
Racket
#lang racket
|
|
|
|
(require rackunit rackunit/text-ui unstable/exn "helpers.rkt")
|
|
|
|
(run-tests
|
|
(test-suite "exn.ss"
|
|
(test-suite "try"
|
|
(test-ok (try (+ 1 2)))
|
|
(test-bad (try (+ 'a 'b)))
|
|
(test-ok (try (+ 'a 'b) (+ 3 4)))
|
|
(test-ok (try (+ 1 2) (+ 'a 'b)))
|
|
(test-bad (try (+ 'a 'b) (+ 'c 'd))))))
|