From 4ca1dac51c8546c791bbf5b1623d1145d4e12921 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Tue, 30 Nov 2010 21:51:29 -0700 Subject: [PATCH] write-xexpr test cases --- collects/tests/xml/test.rkt | 1 + 1 file changed, 1 insertion(+) diff --git a/collects/tests/xml/test.rkt b/collects/tests/xml/test.rkt index 60b30c445b..b86295da6f 100644 --- a/collects/tests/xml/test.rkt +++ b/collects/tests/xml/test.rkt @@ -482,6 +482,7 @@ END (test-equal? str (string->xexpr str) xe)) (define (test-xexpr->string xe str) (test-equal? (format "~S" xe) (xexpr->string xe) str) + (test-equal? (format "~S" xe) (with-output-to-string (λ () (write-xexpr xe))) str) (test-string->xexpr str xe)) (define (test-string->xexpr str xe) (test-equal? str (string->xexpr str) xe))]