From aa7242492a82d92c581dbbd2314bd7e7d40afda1 Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Wed, 1 Oct 2003 23:38:56 +0000
Subject: [PATCH] (call-with-output-string): Test proc closing port.

---
 test-suite/tests/ports.test | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/test-suite/tests/ports.test b/test-suite/tests/ports.test
index 956aac191..c7993c49f 100644
--- a/test-suite/tests/ports.test
+++ b/test-suite/tests/ports.test
@@ -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.