diff --git a/backend/test/backend_tests/rpc_doc_test.clj b/backend/test/backend_tests/rpc_doc_test.clj new file mode 100644 index 0000000000..fb6c2c106d --- /dev/null +++ b/backend/test/backend_tests/rpc_doc_test.clj @@ -0,0 +1,36 @@ +;; This Source Code Form is subject to the terms of the Mozilla Public +;; License, v. 2.0. If a copy of the MPL was not distributed with this +;; file, You can obtain one at http://mozilla.org/MPL/2.0/. +;; +;; Copyright (c) KALEIDOS INC + +(ns backend-tests.rpc-doc-test + "Internal binfile test, no RPC involved" + (:require + [app.common.json :as json] + [app.common.pprint :as pp] + [app.common.schema :as sm] + [app.common.schema.generators :as sg] + [app.common.schema.test :as smt] + [app.rpc :as-alias rpc] + [app.rpc.doc :as rpc.doc] + [backend-tests.helpers :as th] + [clojure.test :as t])) + +(t/use-fixtures :once th/state-init) + +(t/deftest openapi-context-json-encode + (smt/check! + (smt/for [context (->> sg/int + (sg/fmap (fn [_] + (rpc.doc/prepare-openapi-context (::rpc/methods th/*system*)))))] + (try + (json/encode context) + true + (catch Throwable _cause + false))) + {:num 30})) + + + +