#lang racket
(require tests/eli-tester
xml)
(test
(with-output-to-bytes
(lambda ()
(write-xexpr
`(html (head (title "Form with CDATA"))
(body (p "Hello, this is a form")
(p ,(cdata 'cdata-start 'cdata-end ""))
(p ,(p-i 'pis 'pie 'target "instruction"))
(p ,(comment "comment"))
"Something")))))
=>
#"Form with CDATAHello, this is a form
Something")