1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-04 22:40:25 +02:00

(call-with-output-string): Test proc closing port.

This commit is contained in:
Kevin Ryde 2003-10-01 23:38:56 +00:00
parent 029328497d
commit aa7242492a

View file

@ -298,6 +298,14 @@
(pass-if "output check"
(string=? text result))))
(with-test-prefix "call-with-output-string"
;; In Guile 1.6.4, closing the port resulted in a segv, check that doesn't
;; occur.
(pass-if-exception "proc closes port" exception:wrong-type-arg
(call-with-output-string close-port)))
;;;; Soft ports. No tests implemented yet.