You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
11 lines
343 B
Racket
11 lines
343 B
Racket
#lang sugar/debug racket
|
|
(require sugar/debug rackunit)
|
|
(let ([out (open-output-string)])
|
|
(parameterize ([current-error-port out])
|
|
#^5)
|
|
(check-equal? (get-output-string out) "5 = 5\n"))
|
|
(let ([out (open-output-string)])
|
|
(parameterize ([current-error-port out])
|
|
#^^5)
|
|
(check-equal? (get-output-string out) "5 = 5 on line 9\n"))
|