mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-05 06:50:21 +02:00
Code Activity

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

Browse source
This commit is contained in:
Kevin Ryde 2003-10-01 23:38:56 +00:00
parent 029328497d
commit aa7242492a
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
test-suite/tests/ports.test
View file

@ -298,6 +298,14 @@
(pass-if "output check" (pass-if "output check"
(string=? text result)))) (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. ;;;; Soft ports. No tests implemented yet.