diff options
Diffstat (limited to 'test-suite/tests/reader.test')
-rw-r--r-- | test-suite/tests/reader.test | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/test-suite/tests/reader.test b/test-suite/tests/reader.test deleted file mode 100644 index 97c89c5a7..000000000 --- a/test-suite/tests/reader.test +++ /dev/null @@ -1,25 +0,0 @@ -;;;; reader.test --- test the Guile parser -*- scheme -*- -;;;; Jim Blandy <jimb@red-bean.com> --- September 1999 - -(define (try-to-read string) - (pass-if (call-with-output-string (lambda (port) - (display "Try to read " port) - (write string port))) - (not (signals-error? - 'signal - (call-with-input-string string - (lambda (p) (read p))))))) - -(try-to-read "0") -(try-to-read "1++i") -(try-to-read "1+i+i") -(try-to-read "1+e10000i") - -(pass-if "radix passed to number->string can't be zero" - (signals-error? - 'out-of-range - (number->string 10 0))) -(pass-if "radix passed to number->string can't be one either" - (signals-error? - 'out-of-range - (number->string 10 1))) |