Add basic tests for HTML 5 serialization

joewiz · joewiz · commit 0ebf6f2b202f · 2023-01-03T14:51:36.000-05:00
See https://www.w3.org/TR/xslt-xquery-serialization-31/#html-output
diff --git a/exist-core/src/test/xquery/xquery3/serialize.xql b/exist-core/src/test/xquery/xquery3/serialize.xql
@@ -865,3 +865,65 @@ function ser:serialize-xml-134() {
     }
     return serialize((1 to 4)!text{.}, $params)
 };
+
+declare
+    %test:assertEquals('<!DOCTYPE html> <option selected></option>')
+function ser:serialize-html-5-boolean-attribute-names() {
+    let $params := map {
+        "method" : "html",
+        "html-version": 5.0
+    }
+    return
+        <option selected="selected"/>
+        => serialize($params)
+        => normalize-space()
+};
+
+declare
+    %test:assertEquals('<!DOCTYPE html> <br>')
+function ser:serialize-html-5-empty-tags() {
+    let $params := map {
+        "method" : "html",
+        "html-version": 5.0
+    }
+    return
+        <br/>
+        => serialize($params)
+        => normalize-space()
+};
+
+declare
+    %test:assertEquals('<!DOCTYPE html> <foo><style>ul > li { color:red; }</style><script>if (a < b) foo()</script></foo>')
+function ser:serialize-html-5-raw-text-elements() {
+    let $params := map {
+        "method" : "html",
+        "html-version": 5.0
+    }
+    return
+        <foo>
+            <style>{``[ul > li { 
+                color:red; 
+            }]``}</style>
+            <script>{``[if (a < b) foo()]``}</script>
+        </foo>
+        => serialize($params)
+        => normalize-space()
+};
+
+declare
+    %test:assertEquals('<!DOCTYPE html> <foo><title>ul &amp;gt; li { color:red; }</title><textarea>if (a &amp;lt; b) foo()</textarea></foo>')
+function ser:serialize-html-5-needs-escape-elements() {
+    let $params := map {
+        "method" : "html",
+        "html-version": 5.0
+    }
+    return
+        <foo>
+            <title>{``[ul > li { 
+                color:red; 
+            }]``}</title>
+            <textarea>{``[if (a < b) foo()]``}</textarea>
+        </foo>
+        => serialize($params)
+        => normalize-space()
+};
