Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-03 11:16:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Adding sxml tests.

Browse source
This commit is contained in:
Alex Shinn 2022-10-11 22:42:54 +09:00
parent 0a050a524a
commit fa6d4f7a4f
2 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lib/chibi/sxml-test.sld Normal file
View 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))))

2
tests/lib-tests.scm
View file

@ -63,6 +63,7 @@
(rename (chibi scribble-test) (run-tests run-scribble-tests))
(rename (chibi show c-test) (run-tests run-show-c-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 system-test) (run-tests run-system-tests))
(rename (chibi tar-test) (run-tests run-tar-tests))
@ -134,6 +135,7 @@
(run-syntax-case-tests)
(run-sha2-tests)
(run-show-c-tests)
(run-sxml-tests)
(run-system-tests)
(run-tar-tests)
(run-uri-tests)