From 8be9abf1d4e05dae6fefc94a9aac6a28b700a1f8 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Wed, 25 Jan 2012 16:48:01 -0700 Subject: [PATCH] Verify that the HTML tags really do have their empty-tag behavior --- collects/tests/web-server/http/xexpr.rkt | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/collects/tests/web-server/http/xexpr.rkt b/collects/tests/web-server/http/xexpr.rkt index e747ae4108..f25e415b2f 100644 --- a/collects/tests/web-server/http/xexpr.rkt +++ b/collects/tests/web-server/http/xexpr.rkt @@ -21,6 +21,16 @@ => (bytes-sort #"HTTP/1.1 200 Okay\r\nDate: REDACTED GMT\r\nLast-Modified: REDACTED GMT\r\nServer: Racket\r\nContent-Type: text/html; charset=utf-8\r\nConnection: close\r\n\r\nlink") + +(write-response (response/xexpr '(html))) + => + (bytes-sort + #"HTTP/1.1 200 Okay\r\nDate: REDACTED GMT\r\nLast-Modified: REDACTED GMT\r\nServer: Racket\r\nContent-Type: text/html; charset=utf-8\r\nConnection: close\r\n\r\n") + + (write-response (response/xexpr '(img))) + => + (bytes-sort + #"HTTP/1.1 200 Okay\r\nDate: REDACTED GMT\r\nLast-Modified: REDACTED GMT\r\nServer: Racket\r\nContent-Type: text/html; charset=utf-8\r\nConnection: close\r\n\r\n") (write-response (response/xexpr '(a ([href "#"]) "link") #:code 404))