lacinia-pedestal e2e testing

users_test.clj

(t/deftest test-list-users
  (with-system [sys (helper/test-system)]
    (with-db-data [sys {:user db-data/user}]
      (t/testing "ユーザの一覧が取得できる"
        (t/testing "ユーザ名指定あり"
          (let [{:keys [status body]}
                (helper/http-post sys "/graphql"
                                  (venia/graphql-query
                                   {:venia/queries [[:users {:name "曜"}
                                                     [:id
                                                      :employee_number
                                                      :uid
                                                      :name]]]}))]
            (t/is (= 200 status))
            (t/is (= {:data {:users [{:id 1
                                      :employee_number "000001"
                                      :uid "y.watanabe"
                                      :name "渡辺 曜"}]}}
                     (helper/<-json body)))))))))