X-Git-Url: http://git.hcoop.net/bpt/guile.git/blobdiff_plain/9d372117f6d155446263376c027ef0c90f8547b3..6b4113afc5a0010eef2e9edae2cbd5f6b690be41:/test-suite/tests/reader.test

diff --git a/test-suite/tests/reader.test b/test-suite/tests/reader.test
dissimilarity index 83%
index 97c89c5a7..41e8566c5 100644
--- a/test-suite/tests/reader.test
+++ b/test-suite/tests/reader.test
@@ -1,25 +1,22 @@
-;;;; 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)))
+;;;; reader.test --- test the Guile parser -*- scheme -*-
+;;;; Jim Blandy <jimb@red-bean.com> --- September 1999
+
+(define (read-string s)
+  (with-input-from-string s (lambda () (read))))
+
+(with-test-prefix "reading"
+  (pass-if "0"
+    (equal? (read-string "0") 0))
+  (pass-if "1++i"
+    (equal? (read-string "1++i") '1++i))
+  (pass-if "1+i+i"
+    (equal? (read-string "1+i+i") '1+i+i))
+  (pass-if "1+e10000i"
+    (equal? (read-string "1+e10000i") '1+e10000i)))
+
+(pass-if-exception "radix passed to number->string can't be zero"
+  exception:out-of-range
+  (number->string 10 0))
+(pass-if-exception "radix passed to number->string can't be one either"
+  exception:out-of-range
+  (number->string 10 1))