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.
sugar/test/debug-meta-lang.rkt

16 lines
522 B
Racket

#lang sugar/debug racket
(require rackunit)
(let ([out (open-output-string)]
[let "something else"]
[local-require "something else entirely"]
[only-in "completely unexpected!"]
[report "well, not really"])
(parameterize ([current-error-port out])
#R5)
(check-equal? (get-output-string out) "5 = 5\n"))
(let ([out (open-output-string)]
[report/line "outta the blue!"])
(parameterize ([current-error-port out])
#RR5)
(check-equal? (get-output-string out) "5 = 5 on line 14\n"))