mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-18 21:29:19 +02:00
10 lines
337 B
Scheme
10 lines
337 B
Scheme
|
|
(define-library (chibi sxml-test)
|
|
(import (scheme base) (chibi sxml) (chibi test))
|
|
(export run-tests)
|
|
(begin
|
|
(define (run-tests)
|
|
(test-begin "sxml")
|
|
(test "<html><body><div><p>hello, world</p><br></div></body></html>"
|
|
(sxml->xml '(*TOP* (html (body (div (p "hello, world") (br)))))))
|
|
(test-end))))
|