mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-07-03 19:26:36 +02:00
Adding sxml tests.
This commit is contained in:
parent
0a050a524a
commit
fa6d4f7a4f
2 changed files with 12 additions and 0 deletions
10
lib/chibi/sxml-test.sld
Normal file
10
lib/chibi/sxml-test.sld
Normal file
|
@ -0,0 +1,10 @@
|
||||||
|
|
||||||
|
(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))))
|
|
@ -63,6 +63,7 @@
|
||||||
(rename (chibi scribble-test) (run-tests run-scribble-tests))
|
(rename (chibi scribble-test) (run-tests run-scribble-tests))
|
||||||
(rename (chibi show c-test) (run-tests run-show-c-tests))
|
(rename (chibi show c-test) (run-tests run-show-c-tests))
|
||||||
(rename (chibi string-test) (run-tests run-string-tests))
|
(rename (chibi string-test) (run-tests run-string-tests))
|
||||||
|
(rename (chibi sxml-test) (run-tests run-sxml-tests))
|
||||||
(rename (chibi syntax-case-test) (run-tests run-syntax-case-tests))
|
(rename (chibi syntax-case-test) (run-tests run-syntax-case-tests))
|
||||||
(rename (chibi system-test) (run-tests run-system-tests))
|
(rename (chibi system-test) (run-tests run-system-tests))
|
||||||
(rename (chibi tar-test) (run-tests run-tar-tests))
|
(rename (chibi tar-test) (run-tests run-tar-tests))
|
||||||
|
@ -134,6 +135,7 @@
|
||||||
(run-syntax-case-tests)
|
(run-syntax-case-tests)
|
||||||
(run-sha2-tests)
|
(run-sha2-tests)
|
||||||
(run-show-c-tests)
|
(run-show-c-tests)
|
||||||
|
(run-sxml-tests)
|
||||||
(run-system-tests)
|
(run-system-tests)
|
||||||
(run-tar-tests)
|
(run-tar-tests)
|
||||||
(run-uri-tests)
|
(run-uri-tests)
|
||||||
|
|
Loading…
Add table
Reference in a new issue