✨ Add generative test case for openapi json serialization

This will prevent possible regression on introducing schemas without
generators or schema with generators that can't be serialized to json.

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}))
+
+
+
+