mirror of
https://github.com/penpot/penpot.git
synced 2025-12-11 22:14:05 +01:00
2b83d0d0e9
This will prevent possible regression on introducing schemas without generators or schema with generators that can't be serialized to json.
37 lines
995 B
Clojure
37 lines
995 B
Clojure
;; 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}))
|
|
|
|
|
|
|
|
|