diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-02 19:26:40 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-02 19:28:44 +0200 |
commit | 712654d4c023a2ab13190c6905d313e0ba897965 (patch) | |
tree | b8505b420d6621022fa6a46271340071d8881322 /tests/test/xml-namespace.scm | |
parent | Made displayln into a library export. (diff) | |
download | calp-712654d4c023a2ab13190c6905d313e0ba897965.tar.gz calp-712654d4c023a2ab13190c6905d313e0ba897965.tar.xz |
Rewrite test running system.
Diffstat (limited to 'tests/test/xml-namespace.scm')
-rw-r--r-- | tests/test/xml-namespace.scm | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/tests/test/xml-namespace.scm b/tests/test/xml-namespace.scm deleted file mode 100644 index 09402ceb..00000000 --- a/tests/test/xml-namespace.scm +++ /dev/null @@ -1,36 +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)))) |