[bpt/guile.git] / test-suite / tests / reader.test

;;;; 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")
Commit	Line	Data
0c76ebbd JB	1	;;;; reader.test --- test the Guile parser -- scheme --
	2	;;;; Jim Blandy <jimb@red-bean.com> --- September 1999
	3
	4	(define (try-to-read string)
	5	(pass-if (call-with-output-string (lambda (port)
	6	(display "Try to read " port)
	7	(write string port)))
69c74140 JB	8	(not (signals-error?
	9	'signal
	10	(call-with-input-string string
	11	(lambda (p) (read p)))))))
0c76ebbd JB	12
	13	(try-to-read "0")
	14	(try-to-read "1++i")
	15	(try-to-read "1+i+i")
	16	(try-to-read "1+e10000i")