From fa6d4f7a4f39142475260ac09afc71600465f742 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Tue, 11 Oct 2022 22:42:54 +0900 Subject: [PATCH] Adding sxml tests. --- lib/chibi/sxml-test.sld | 10 ++++++++++ tests/lib-tests.scm | 2 ++ 2 files changed, 12 insertions(+) create mode 100644 lib/chibi/sxml-test.sld diff --git a/lib/chibi/sxml-test.sld b/lib/chibi/sxml-test.sld new file mode 100644 index 00000000..c5243d95 --- /dev/null +++ b/lib/chibi/sxml-test.sld @@ -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 "

hello, world


" + (sxml->xml '(*TOP* (html (body (div (p "hello, world") (br))))))) + (test-end)))) diff --git a/tests/lib-tests.scm b/tests/lib-tests.scm index a1380a77..75f67d1e 100644 --- a/tests/lib-tests.scm +++ b/tests/lib-tests.scm @@ -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)