[nat] (saveComponent) and (withComponents)

2021-06-12 21:52:32 -06:00
parent d8372d7359
commit 7a3f6c76b7
4 changed files with 42 additions and 5 deletions
--- a/projects/nat-archive-tool/src/test/TestMain.kiss
+++ b/projects/nat-archive-tool/src/test/TestMain.kiss
@@ -25,4 +25,9 @@
        (assert !(tagsMatch archive song1 "(and song religious)"))
        (assert (tagsMatch archive song2 "(and song religious)"))
        (assert !(tagsMatch archive song2 "(and song western)"))
-        ))
+
+        (withComponents archive song1
+            [author Author
+                name Name]
+            (assert (= author "Rafael Krux"))
+            (assert (= name "Adventure")))))