12 lines
230 B
Racket
12 lines
230 B
Racket
#lang racket/base
|
|
(require rackunit
|
|
"12658-mod.rkt")
|
|
|
|
(check-equal?
|
|
(with-handlers ([exn? (λ (x) (exn-message x))])
|
|
(go 42)
|
|
(error 'go "Failed to throw exn"))
|
|
"procedure go: expects no arguments, given 1: 42")
|
|
|
|
|