Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
13 lines (11 sloc) 326 Bytes
#lang scheme
(provide expect)
(define (expect outcome example)
(cond
((eq? outcome example) (display "."))
(else
(display (string-append
(string-append "\nexpected " (number->string outcome))
(string-append ", got " (number->string example))
"\n"
)))))
Jump to Line
Something went wrong with that request. Please try again.