Add tests for sxml namespaced + fix 'root-element'.

* Removes on-root-element since it was never used
* Handle the case of root-elemnt with no *TOP*

1 files changed, 42 insertions, 0 deletions

diff --git a/tests/unit/sxml/sxml-namespaced-util.scm b/tests/unit/sxml/sxml-namespaced-util.scm
new file mode 100644
index 00000000..6f48105f
--- /dev/null
+++ b/tests/unit/sxml/sxml-namespaced-util.scm
@@ -0,0 +1,42 @@
+(define-module (test sxml-namespaced-util)
+  :use-module (srfi srfi-64)
+  :use-module (sxml namespaced)
+  :use-module (sxml namespaced util))
+
+(define ns (gensym "xmlns-"))
+
+(test-equal "XML Hash key"
+  (cons 'a ns)
+  (xml-element-hash-key (xml 'a ns)))
+
+(test-group "Find element"
+  (let ((el `(,(xml ns 'a))))
+    (test-eq "Found element is the source element"
+      el
+      (find-element
+       (car el)
+       `((,(xml ns 'b)) ,el (,(xml ns 'a))))))
+  ;; TODO Test "find" failure
+  )
+
+(test-group "Element Match"
+ (test-assert "Positive element match"
+   (element-matches? (xml 'a ns)
+                     (list (xml 'a ns)
+                           "Content here")))
+ (test-assert "Negative element match"
+   (not (element-matches? (xml 'a ns)
+                          (list (xml 'b ns)
+                                "Content here")))))
+
+(let ((el `(,(xml 'a) "Content")))
+ (test-group "root-element"
+   (test-equal "With PI"
+     el (root-element `(*TOP* ,(pi-element 'doctype "HTML") ,el)))
+   (test-equal "Without PI"
+     el (root-element `(*TOP* ,el)))
+
+   (test-equal "Bare"
+     el (root-element el))))
+
+'((sxml namespaced util))