mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
15 lines
613 B
Common Lisp
15 lines
613 B
Common Lisp
(with-test (:name :bug-981106
|
|
:broken-on :freebsd)
|
|
(gc :full t)
|
|
(assert (eq :ok
|
|
(handler-case
|
|
(dotimes (runs 100 :ok)
|
|
(let* ((n (truncate (dynamic-space-size) 1200))
|
|
(len (length
|
|
(with-output-to-string (string)
|
|
(dotimes (i n)
|
|
(write-sequence "hi there!" string))))))
|
|
(assert (eql len (* n (length "hi there!"))))))
|
|
(storage-condition ()
|
|
:oom)))))
|