17 lines
948 B
Scheme
17 lines
948 B
Scheme
;; The first three lines of this file were inserted by DrScheme. They record metadata
|
|
;; about the language level of this file in a form that our tools can easily process.
|
|
#reader(lib "htdp-beginner-reader.ss" "lang")((modname bar) (read-case-sensitive #t) (teachpacks ()) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ())))
|
|
(check-error (error) "")
|
|
(check-error (error 1) "1")
|
|
(check-error (error 'a) "a: ")
|
|
(check-error (error 'a "bad input") "a: bad input")
|
|
(check-error (error 'a "bad input: " 1) "a: bad input: 1")
|
|
(check-error (error 'a "bad input: " 1 " and " "hello") "a: bad input: 1 and hello")
|
|
(check-error (error 'a "bad input: " 1 " and " false) "a: bad input: 1 and false")
|
|
(check-error (error 'a "uhoh " (list 1 2 3)) "a: uhoh (cons 1 (cons 2 (cons 3 empty)))")
|
|
|
|
(define-struct err (str))
|
|
|
|
(check-error (error 'a "bad input: " 1 " and " (make-err "hello"))
|
|
"a: bad input: 1 and (make-err \"hello\")")
|