racket/collects/tests/racket/long-cmdline.rkt
Matthew Flatt 737a3bd91a fix too-early large-allocation check
Closes PR 12000
2011-06-30 08:56:28 -06:00

10 lines
332 B
Racket

#lang racket/base
(require racket/system)
(let ([p (find-executable-path (find-system-path 'exec-file))])
(let ([s (open-output-bytes)])
(parameterize ([current-output-port s])
(apply system* p "-e" "'done" (for/list ([i 8192]) "x")))
(unless (equal? (get-output-bytes s) #"'done\n")
(error "test failed"))))