Merge pull request #277 from saidone75/dev

find-people-test
saidone75 · May 29, 2024 · 392b906 · 392b906
2 parents 192d75c + 42c8648
commit 392b906
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/test/cral/queries_test.clj b/test/cral/queries_test.clj
@@ -34,4 +34,11 @@
   (let [ticket (get-in (auth/create-ticket c/user c/password) [:body :entry])
         find-sites-response (->> (model/map->FindSitesQueryParams {:term "sws"})
                                  (queries/find-sites ticket))]
-    (is (= (:status find-sites-response) 200))))
+    (is (= (:status find-sites-response) 200))))
+
+(deftest find-people-test
+  (let [ticket (get-in (auth/create-ticket c/user c/password) [:body :entry])
+        find-people-response (->> (model/map->FindPeopleQueryParams {:term "ad*"})
+                                  (queries/find-people ticket))]
+    (is (not (empty? (get-in find-people-response [:body :list :entries]))))
+    (is (= (:status find-people-response) 200))))