Add test to demonstrate #68

wardle · Oct 18, 2024 · 96d34f4 · 96d34f4
1 parent 8b1d358
commit 96d34f4
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/test/com/eldrix/hermes/search_test.clj b/test/com/eldrix/hermes/search_test.clj
@@ -66,6 +66,10 @@
       (doseq [concept-id concept-ids]
         (test-query svc (search/q-descendantOf concept-id))))))
 
+(deftest ^:live test-query-and-constraint ;; if there is a query AND a constraint, they should be AND'ed together
+  (with-open [svc (hermes/open "snomed.db")]
+    (is (empty? (hermes/search svc {:constraint "<24700007" :query (search/q-concept-id 24700007)})))))
+
 (comment
   (def svc (hermes/open "snomed.db"))
   (def searcher (.-searcher svc))