diff options
Diffstat (limited to 'tests/unit/util/xml-namespace.scm')
-rw-r--r-- | tests/unit/util/xml-namespace.scm | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/tests/unit/util/xml-namespace.scm b/tests/unit/util/xml-namespace.scm deleted file mode 100644 index 2b6ea174..00000000 --- a/tests/unit/util/xml-namespace.scm +++ /dev/null @@ -1,38 +0,0 @@ -(define-module (test xml-namespace) - :use-module (srfi srfi-64) - :use-module (srfi srfi-88) - :use-module ((sxml namespace) :select (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)))) - -'((sxml namespace)) |