From 0c76ebbd1fc9bd3b62c063cbd25f821669f2b83d Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Sat, 11 Sep 1999 18:27:57 +0000 Subject: [PATCH] * tests/reader.test: New test file. --- test-suite/tests/reader.test | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 test-suite/tests/reader.test diff --git a/test-suite/tests/reader.test b/test-suite/tests/reader.test new file mode 100644 index 000000000..773e6b0fc --- /dev/null +++ b/test-suite/tests/reader.test @@ -0,0 +1,18 @@ +;;;; reader.test --- test the Guile parser -*- scheme -*- +;;;; Jim Blandy --- September 1999 + +(define (try-to-read string) + (pass-if (call-with-output-string (lambda (port) + (display "Try to read " port) + (write string port))) + (catch 'signal + (lambda () + (call-with-input-string string + (lambda (p) (read p))) + #t) + (lambda args #f)))) + +(try-to-read "0") +(try-to-read "1++i") +(try-to-read "1+i+i") +(try-to-read "1+e10000i")