selectByComponents

This commit is contained in:
2021-07-10 16:16:13 -06:00
parent 1c15b2e812
commit 2d8f4cfee7
3 changed files with 10 additions and 2 deletions

View File

@@ -21,6 +21,8 @@
(assert (hasComponent song1 Tags))
(assert (hasComponent song2 Tags))
(assert (componentsMatch song1 "(and Name Author)"))
(assert (componentsMatch song2 "(and Name Author)"))
(assert (tagsMatch archive song1 "(and song western)"))
(assert !(tagsMatch archive song1 "(and song religious)"))
(assert (tagsMatch archive song2 "(and song religious)"))