CS2613/labs/L04/hello.rkt
2022-09-22 16:16:55 -03:00

11 lines
295 B
Racket

(module hello racket
(provide hello)
(define (hello) (displayln "Hello world!"))
(module+ test
(require rackunit)
(check-equal? (with-output-to-string hello) "Hello world!\n")
(check-equal? (with-output-to-string hello) (begin (sleep 3) "Hello world!\n")))
(module+ main
(hello)))