From 712654d4c023a2ab13190c6905d313e0ba897965 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 2 Oct 2023 19:26:40 +0200
Subject: Rewrite test running system.

---
 tests/unit/util/xml-namespace.scm | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 tests/unit/util/xml-namespace.scm

(limited to 'tests/unit/util/xml-namespace.scm')

diff --git a/tests/unit/util/xml-namespace.scm b/tests/unit/util/xml-namespace.scm
new file mode 100644
index 00000000..2b6ea174
--- /dev/null
+++ b/tests/unit/util/xml-namespace.scm
@@ -0,0 +1,38 @@
+(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))
-- 
cgit v1.2.3