Allow partial change and removal of XML Namespaces.

Changing the error to a returnu allows a partial namespace change map,
which can sometimes be usefull (and should hopefully not lead to any
issues here).

Changing assoc-ref to assoc allows the removal of namespaces, since
assoc-ref can't differentiate between a match with #f in its cdr, and no
match.

    (assoc-ref '((a . #f)) 'a) ⇒ #f
    (assoc-ref '((a . #f)) 'b) ⇒ #f

1 files changed, 30 insertions, 0 deletions

diff --git a/tests/xml-namespace.scm b/tests/xml-namespace.scm
new file mode 100644
index 00000000..74053fd8
--- /dev/null
+++ b/tests/xml-namespace.scm
@@ -0,0 +1,30 @@
+(((sxml namespace)
+  move-to-namespace
+  ))
+
+
+(test-equal "Move unnamespaced to namespace"
+  '(NEW:test)
+  (move-to-namespace '(test) '((#f . NEW))))
+
+(test-equal "Swap namespaces"
+  '(b:a (a:b))
+  (move-to-namespace '(a:a (b:b)) '((a . b) (b . a))))
+
+(test-equal "Remove all namespaces"
+  '(a (b))
+  (move-to-namespace '(a:a (b:b)) #f))
+
+(test-equal "Move everything to one namespace"
+  '(c:a (c:b))
+  (move-to-namespace '(a:a (b:b)) 'c))
+
+(test-equal "Partial namespace change"
+  '(c:a (b:b))
+  (move-to-namespace '(a:a (b:b))
+                     '((a . c))))
+
+(test-equal "Remove specific namespace"
+  '(a:a (b))
+  (move-to-namespace '(a:a (b:b))
+                     '((b . #f))))