#lang scheme

; this module shows that my XML/XHTML maker at least produces
; a document 100% parseable by plt's built-in XML parser.

(require "../xhtml.ss")

(define-values (input output-p) (make-pipe))
(define producer
  (thread
   (λ ()
     (output
      (document 
       (build-head "Test" "style.css"
                   (link #:rel "next" #:href "test.html"))
       (p "Hi"))
      output-p)
     (close-output-port output-p))))

(require (prefix-in xml: xml))

(xml:display-xml (xml:read-xml input))