racket output port as string

output.rkt

#lang racket

(require racket/port)

(define (output-string)
  (with-output-to-string
    (thunk (displayln "ok"))))

(module+ test
  (require rackunit)
  (check-equal? (output-string) "ok\n"))