diff --git a/test/cral/queries_test.clj b/test/cral/queries_test.clj index 52be3cc..2701807 100644 --- 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)))) \ No newline at end of file + (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)))) \ No newline at end of file