|
|
@ -6,10 +6,10 @@
|
|
|
|
[only-in "completely unexpected!"]
|
|
|
|
[only-in "completely unexpected!"]
|
|
|
|
[report "well, not really"])
|
|
|
|
[report "well, not really"])
|
|
|
|
(parameterize ([current-error-port out])
|
|
|
|
(parameterize ([current-error-port out])
|
|
|
|
#^5)
|
|
|
|
#R5)
|
|
|
|
(check-equal? (get-output-string out) "5 = 5\n"))
|
|
|
|
(check-equal? (get-output-string out) "5 = 5\n"))
|
|
|
|
(let ([out (open-output-string)]
|
|
|
|
(let ([out (open-output-string)]
|
|
|
|
[report/line "outta the blue!"])
|
|
|
|
[report/line "outta the blue!"])
|
|
|
|
(parameterize ([current-error-port out])
|
|
|
|
(parameterize ([current-error-port out])
|
|
|
|
#^^5)
|
|
|
|
#RR5)
|
|
|
|
(check-equal? (get-output-string out) "5 = 5 on line 14\n"))
|
|
|
|
(check-equal? (get-output-string out) "5 = 5 on line 14\n"))
|
|
|
|