Fix test case re: xexpr change

This commit is contained in:
Jay McCarthy 2013-11-19 14:24:22 -07:00
parent 8e2622857f
commit a7c6d5a9a4

View File

@ -30,7 +30,7 @@
(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\n\r\n<img />")
#"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\n\r\n<img/>")
(write-response (response/xexpr '(a ([href "#"]) "link")
#:code 404))