22 lines
821 B
Clojure
22 lines
821 B
Clojure
(ns auto-ap.integration.graphql.vendors
|
|
(:require
|
|
[auto-ap.datomic :refer [conn]]
|
|
[auto-ap.graphql.vendors :as sut2]
|
|
[auto-ap.integration.util :refer [admin-token wrap-setup]]
|
|
[clojure.test :as t :refer [deftest is testing use-fixtures]]
|
|
[datomic.client.api :as dc]))
|
|
|
|
(use-fixtures :each wrap-setup)
|
|
|
|
|
|
(deftest vendors
|
|
(testing "vendors"
|
|
(let [{:strs [vendor]} (:tempids (dc/transact conn {:tx-data [{:vendor/name "Test" :db/id "vendor"}
|
|
{:db/id "client"
|
|
:client/code "DEF"}]}))]
|
|
(testing "it should find vendors"
|
|
(let [result (sut2/get-graphql {:id (admin-token)} {} {})]
|
|
(is ((into #{} (map :id (:vendors result))) vendor )))))))
|
|
|
|
|