[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)))
	   (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")
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)))
	8	(catch 'signal
	9	(lambda ()
	10	(call-with-input-string string
	11	(lambda (p) (read p)))
	12	#t)
	13	(lambda args #f))))
	14
	15	(try-to-read "0")
	16	(try-to-read "1++i")
	17	(try-to-read "1+i+i")
	18	(try-to-read "1+e10000i")