From 1d038518019c6be70cc588ce226e4fe564e9b771 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Tue, 12 Jun 2007 23:26:11 +0000 Subject: [PATCH] prety-print svn: r6612 --- collects/web-server/tests/private/util-test.ss | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/collects/web-server/tests/private/util-test.ss b/collects/web-server/tests/private/util-test.ss index c03f62313c..4055d95cfa 100644 --- a/collects/web-server/tests/private/util-test.ss +++ b/collects/web-server/tests/private/util-test.ss @@ -1,6 +1,7 @@ (module util-test mzscheme (require (planet "test.ss" ("schematics" "schemeunit.plt" 2)) (lib "url.ss" "net") + (lib "xml.ss" "xml") (lib "util.ss" "web-server" "private")) (provide util-tests) @@ -8,7 +9,18 @@ (test-suite "Utilities" - ; XXX test pretty-print-invalid-xexpr + (test-equal? "pretty-print-invalid-xexpr" + (let ([os (open-output-string)] + [txe `(html (head (title "Foo")) + (body (a ([href url]) "Text")))]) + (parameterize ([current-output-port os]) + (with-handlers ([exn:invalid-xexpr? + (lambda (exn) + (pretty-print-invalid-xexpr exn txe))]) + (validate-xexpr txe) + #f)) + (get-output-string os)) + "(html (head (title \"Foo\")) (body (a ((href url)) \"Text\")))\n") (test-suite "url-replace-path"