9 lines
323 B
Racket
9 lines
323 B
Racket
#lang racket/base
|
|
(require (submod (planet racket-tester/p1/has-sub) the-sub))
|
|
|
|
(with-output-to-file (build-path (find-system-path 'temp-dir) "stdout")
|
|
#:exists 'append
|
|
(lambda () (displayln (dynamic-require
|
|
'(submod (planet racket-tester/p1/has-sub) the-sub)
|
|
'out))))
|