(use sicp sicp-eval sicp-streams test)
(test
"draw-painter-as-svg"
""
(with-output-to-string
(lambda ()
(draw-painter-as-svg (segments->painter
(list (make-segment (make-vect 0.0 1.0)
(make-vect 1.0 0.0))))))))
(test
"draw-painter-as-svg: beside"
""
(with-output-to-string
(lambda ()
(let ((painter (segments->painter
(list (make-segment (make-vect 0.0 1.0)
(make-vect 1.0 0.0))))))
(draw-painter-as-svg (beside painter painter))))))
(test
"draw-painter-as-svg: image"
""
(with-output-to-string
(lambda ()
(let ((painter (image->painter "lena.png")))
(draw-painter-as-svg (beside painter painter))))))
(test 1 (deriv '(+ x 3) 'x))
(test 'y (deriv '(* x y) 'x))
(test '(1 2 3)
(stream->list
(cons-stream 1 (cons-stream 2 (cons-stream 3 stream-null)))))
(test '(1 2)
(stream->list
(cons-stream 1 (cons-stream 2 (cons-stream 3 stream-null)))
2))
(test '(1 2 3)
(stream->list (list->stream '(1 2 3))))
(test 5
(parameterize ((primitive-procedures
(cons (list '+ +) (primitive-procedures))))
(eval* '(+ 2 3) (setup-environment))))
(test-exit)