diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-03-07 15:31:00 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-03-07 20:29:14 +0100 |
| commit | f7716ac1a87649cad96242f2d5bf0a987d7f430c (patch) | |
| tree | b4b84951ef468fd644c42e9e0fee535d879f0387 /tests/xml-namespace.scm | |
| parent | Cleanup in (hnh util path). (diff) | |
| download | calp-f7716ac1a87649cad96242f2d5bf0a987d7f430c.tar.gz calp-f7716ac1a87649cad96242f2d5bf0a987d7f430c.tar.xz | |
Add new tests.
Diffstat (limited to '')
| -rw-r--r-- | tests/xml-namespace.scm | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/tests/xml-namespace.scm b/tests/xml-namespace.scm deleted file mode 100644 index 74053fd8..00000000 --- a/tests/xml-namespace.scm +++ /dev/null @@ -1,30 +0,0 @@ -(((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)))) |