From 1b0549522bcb4b1027d7a4868870a630a19bc630 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Sun, 1 Aug 1999 08:06:01 +0000 Subject: [PATCH] * tests/ports.test: Add some regression tests for char-ready?. --- test-suite/tests/ports.test | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) diff --git a/test-suite/tests/ports.test b/test-suite/tests/ports.test index 7b06038aa..7cc727d00 100644 --- a/test-suite/tests/ports.test +++ b/test-suite/tests/ports.test @@ -226,3 +226,24 @@ (read-delimited! "\n" c port 'concat 3) (pass-if "read-delimited! reads a first line" (string=? c "defghighi\n!!!!!!!!!!")))))) + + +;;;; char-ready? + +(call-with-input-string + "howdy" + (lambda (port) + (pass-if "char-ready? returns true on string port" + (char-ready? port)))) + +;;; This segfaults on some versions of Guile. We really should run +;;; the tests in a subprocess... + +(call-with-input-string + "howdy" + (lambda (port) + (with-input-from-port + port + (lambda () + (pass-if "char-ready? returns true on string port as default port" + (char-ready?))))))