summaryrefslogtreecommitdiff
path: root/test-suite/tests/reader.test
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/tests/reader.test')
-rw-r--r--test-suite/tests/reader.test25
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)))