From f7716ac1a87649cad96242f2d5bf0a987d7f430c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 7 Mar 2022 15:31:00 +0100 Subject: Add new tests. --- tests/xml-namespace.scm | 30 ------------------------------ 1 file changed, 30 deletions(-) delete mode 100644 tests/xml-namespace.scm (limited to 'tests/xml-namespace.scm') 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)))) -- cgit v1.2.3