(use sicp 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))