luciano/reitit
1
0
Fork 0
mirror of https://github.com/metosin/reitit.git synced 2025-12-16 08:01:10 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

format-ns

Browse source
This commit is contained in:
Tommi Reiman 2022-02-14 16:59:20 +02:00
parent 2aba5610c7
commit f3dee769fb
62 changed files with 325 additions and 411 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
.lsp/config.edn
View file

@ -1,2 +1,3 @@
{:cljfmt {:indents {for-all [[:inner 0]]
are [[:inner 0]]}}}
are [[:inner 0]]}}
:clean {:ns-inner-blocks-indentation :same-line}}

8
modules/reitit-core/src/reitit/coercion.cljc
View file

@ -1,10 +1,8 @@
(ns reitit.coercion
(:require
[clojure.walk :as walk]
[reitit.impl :as impl])
(:require [clojure.walk :as walk]
[reitit.impl :as impl])
#?(:clj
(:import
(java.io Writer))))
(:import (java.io Writer))))
;;
;; Protocol

7
modules/reitit-core/src/reitit/core.cljc
View file

@ -1,8 +1,7 @@
(ns reitit.core
(:require
[reitit.exception :as exception]
[reitit.impl :as impl]
[reitit.trie :as trie]))
(:require [reitit.exception :as exception]
[reitit.impl :as impl]
[reitit.trie :as trie]))
;;
;; Expand

3
modules/reitit-core/src/reitit/dependency.cljc
View file

@ -1,7 +1,6 @@
(ns reitit.dependency
"Dependency resolution for middleware/interceptors."
(:require
[reitit.exception :as exception]))
(:require [reitit.exception :as exception]))
(defn- providers
"Map from provision key to provider. `get-provides` should return the provision keys of a dependent."

3
modules/reitit-core/src/reitit/exception.cljc
View file

@ -1,6 +1,5 @@
(ns reitit.exception
(:require
[clojure.string :as str]))
(:require [clojure.string :as str]))
(defn fail!
([type]

16
modules/reitit-core/src/reitit/impl.cljc
View file

@ -1,15 +1,13 @@
(ns ^:no-doc reitit.impl
#?(:cljs (:require-macros [reitit.impl]))
(:require
[clojure.set :as set]
[clojure.string :as str]
[meta-merge.core :as mm]
[reitit.exception :as ex]
[reitit.trie :as trie])
(:require [clojure.set :as set]
[clojure.string :as str]
[meta-merge.core :as mm]
[reitit.exception :as ex]
[reitit.trie :as trie])
#?(:clj
(:import
(java.net URLEncoder URLDecoder)
(java.util HashMap Map))))
(:import (java.net URLEncoder URLDecoder)
(java.util HashMap Map))))
(defn parse [path opts]
(let [path #?(:clj (.intern ^String (trie/normalize path opts)) :cljs (trie/normalize path opts))

11
modules/reitit-core/src/reitit/interceptor.cljc
View file

@ -1,10 +1,9 @@
(ns reitit.interceptor
(:require
[clojure.pprint :as pprint]
[meta-merge.core :refer [meta-merge]]
[reitit.core :as r]
[reitit.exception :as exception]
[reitit.impl :as impl]))
(:require [clojure.pprint :as pprint]
[meta-merge.core :refer [meta-merge]]
[reitit.core :as r]
[reitit.exception :as exception]
[reitit.impl :as impl]))
(defprotocol IntoInterceptor
(into-interceptor [this data opts]))

11
modules/reitit-core/src/reitit/middleware.cljc
View file

@ -1,10 +1,9 @@
(ns reitit.middleware
(:require
[clojure.pprint :as pprint]
[meta-merge.core :refer [meta-merge]]
[reitit.core :as r]
[reitit.exception :as exception]
[reitit.impl :as impl]))
(:require [clojure.pprint :as pprint]
[meta-merge.core :refer [meta-merge]]
[reitit.core :as r]
[reitit.exception :as exception]
[reitit.impl :as impl]))
(defprotocol IntoMiddleware
(into-middleware [this data opts]))

9
modules/reitit-core/src/reitit/spec.cljc
View file

@ -1,9 +1,8 @@
(ns reitit.spec
(:require
[clojure.spec.alpha :as s]
[clojure.spec.gen.alpha :as gen]
[reitit.core :as r]
[reitit.exception :as exception]))
(:require [clojure.spec.alpha :as s]
[clojure.spec.gen.alpha :as gen]
[reitit.core :as r]
[reitit.exception :as exception]))
;;
;; routes

10
modules/reitit-core/src/reitit/trie.cljc
View file

@ -1,11 +1,9 @@
(ns reitit.trie
(:refer-clojure :exclude [compile])
(:require
[clojure.string :as str]
[reitit.exception :as ex])
#?(:clj (:import
(java.net URLDecoder)
[reitit Trie Trie$Match Trie$Matcher])))
(:require [clojure.string :as str]
[reitit.exception :as ex])
#?(:clj (:import (java.net URLDecoder)
[reitit Trie Trie$Match Trie$Matcher])))
(defn ^:no-doc into-set [x]
(cond

25
modules/reitit-dev/src/reitit/dev/pretty.cljc
View file

@ -1,17 +1,16 @@
(ns reitit.dev.pretty
(:require
[arrangement.core] ;; spell-spec
[clojure.spec.alpha :as s]
[clojure.string :as str]
[expound.alpha] ;; fipp
[expound.ansi]
[fipp.edn]
[fipp.ednize]
[fipp.engine]
[fipp.visit]
[reitit.exception :as exception]
[spell-spec.expound] ;; expound
))
(:require [arrangement.core] ;; spell-spec
[clojure.spec.alpha :as s]
[clojure.string :as str]
[expound.alpha] ;; fipp
[expound.ansi]
[fipp.edn]
[fipp.ednize]
[fipp.engine]
[fipp.visit]
[reitit.exception :as exception]
[spell-spec.expound] ;; expound
))
;;
;; colors

12
modules/reitit-frontend/src/reitit/frontend.cljs
View file

@ -1,11 +1,9 @@
(ns reitit.frontend
(:require
[clojure.set :as set]
[reitit.coercion :as coercion]
[reitit.core :as r])
(:import
goog.Uri
goog.Uri.QueryData))
(:require [clojure.set :as set]
[reitit.coercion :as coercion]
[reitit.core :as r])
(:import goog.Uri
goog.Uri.QueryData))
(defn- query-param [^QueryData q k]
(let [vs (.getValues q k)]

3
modules/reitit-frontend/src/reitit/frontend/easy.cljs
View file

@ -2,8 +2,7 @@
"Easy wrapper over reitit.frontend.history,
handling the state. Only one router can be active
at a time."
(:require
[reitit.frontend.history :as rfh]))
(:require [reitit.frontend.history :as rfh]))
(defonce history (atom nil))

10
modules/reitit-frontend/src/reitit/frontend/history.cljs
View file

@ -1,12 +1,10 @@
(ns reitit.frontend.history
"Provides integration to hash-change or HTML5 History
events."
(:require
[goog.events :as gevents]
[reitit.core :as reitit]
[reitit.frontend :as rf])
(:import
goog.Uri))
(:require [goog.events :as gevents]
[reitit.core :as reitit]
[reitit.frontend :as rf])
(:import goog.Uri))
(defprotocol History
(-init [this] "Create event listeners")

11
modules/reitit-http/src/reitit/http.cljc
View file

@ -1,10 +1,9 @@
(ns reitit.http
(:require
[meta-merge.core :refer [meta-merge]]
[reitit.core :as r]
[reitit.exception :as ex]
[reitit.interceptor :as interceptor]
[reitit.ring :as ring]))
(:require [meta-merge.core :refer [meta-merge]]
[reitit.core :as r]
[reitit.exception :as ex]
[reitit.interceptor :as interceptor]
[reitit.ring :as ring]))
(defrecord Endpoint [data interceptors queue handler path method])

7
modules/reitit-http/src/reitit/http/coercion.cljc
View file

@ -1,8 +1,7 @@
(ns reitit.http.coercion
(:require
[reitit.coercion :as coercion]
[reitit.impl :as impl]
[reitit.spec :as rs]))
(:require [reitit.coercion :as coercion]
[reitit.impl :as impl]
[reitit.spec :as rs]))
(defn coerce-request-interceptor
"Interceptor for pluggable request coercion.

11
modules/reitit-http/src/reitit/http/spec.cljc
View file

@ -1,10 +1,9 @@
(ns reitit.http.spec
(:require
[clojure.spec.alpha :as s]
[reitit.exception :as exception]
[reitit.interceptor :as interceptor]
[reitit.ring.spec :as rrs]
[reitit.spec :as rs]))
(:require [clojure.spec.alpha :as s]
[reitit.exception :as exception]
[reitit.interceptor :as interceptor]
[reitit.ring.spec :as rrs]
[reitit.spec :as rs]))
;;
;; Specs

9
modules/reitit-interceptors/src/reitit/http/interceptors/dev.clj
View file

@ -1,9 +1,8 @@
(ns reitit.http.interceptors.dev
(:require
[lambdaisland.deep-diff :as ddiff]
[lambdaisland.deep-diff.printer :as printer]
[puget.color :as color]
[reitit.core :as r]))
(:require [lambdaisland.deep-diff :as ddiff]
[lambdaisland.deep-diff.printer :as printer]
[puget.color :as color]
[reitit.core :as r]))
(def printer
(-> (printer/puget-printer)

14
modules/reitit-interceptors/src/reitit/http/interceptors/exception.clj
View file

@ -1,12 +1,10 @@
(ns reitit.http.interceptors.exception
(:require
[clojure.spec.alpha :as s]
[clojure.string :as str]
[reitit.coercion :as coercion]
[reitit.ring :as ring])
(:import
(java.io PrintWriter Writer)
(java.time Instant)))
(:require [clojure.spec.alpha :as s]
[clojure.string :as str]
[reitit.coercion :as coercion]
[reitit.ring :as ring])
(:import (java.io PrintWriter Writer)
(java.time Instant)))
(s/def ::handlers (s/map-of any? fn?))
(s/def ::spec (s/keys :opt-un [::handlers]))

14
modules/reitit-interceptors/src/reitit/http/interceptors/multipart.clj
View file

@ -1,12 +1,10 @@
(ns reitit.http.interceptors.multipart
(:require
[clojure.spec.alpha :as s]
[reitit.coercion :as coercion]
[reitit.spec]
[ring.middleware.multipart-params :as multipart-params]
[spec-tools.core :as st])
(:import
(java.io File)))
(:require [clojure.spec.alpha :as s]
[reitit.coercion :as coercion]
[reitit.spec]
[ring.middleware.multipart-params :as multipart-params]
[spec-tools.core :as st])
(:import (java.io File)))
(s/def ::filename string?)
(s/def ::content-type string?)

7
modules/reitit-interceptors/src/reitit/http/interceptors/muuntaja.clj
View file

@ -1,8 +1,7 @@
(ns reitit.http.interceptors.muuntaja
(:require
[clojure.spec.alpha :as s]
[muuntaja.core :as m]
[muuntaja.interceptor]))
(:require [clojure.spec.alpha :as s]
[muuntaja.core :as m]
[muuntaja.interceptor]))
(s/def ::muuntaja m/muuntaja?)
(s/def ::spec (s/keys :opt-un [::muuntaja]))

3
modules/reitit-interceptors/src/reitit/http/interceptors/parameters.clj
View file

@ -1,6 +1,5 @@
(ns reitit.http.interceptors.parameters
(:require
[ring.middleware.params :as params]))
(:require [ring.middleware.params :as params]))
(defn parameters-interceptor
"Interceptor to parse urlencoded parameters from the query string and form

21
modules/reitit-malli/src/reitit/coercion/malli.cljc
View file

@ -1,15 +1,14 @@
(ns reitit.coercion.malli
(:require
[clojure.set :as set]
[clojure.walk :as walk]
[malli.core :as m]
[malli.edn :as edn]
[malli.error :as me]
[malli.experimental.lite :as l]
[malli.swagger :as swagger]
[malli.transform :as mt]
[malli.util :as mu]
[reitit.coercion :as coercion]))
(:require [clojure.set :as set]
[clojure.walk :as walk]
[malli.core :as m]
[malli.edn :as edn]
[malli.error :as me]
[malli.experimental.lite :as l]
[malli.swagger :as swagger]
[malli.transform :as mt]
[malli.util :as mu]
[reitit.coercion :as coercion]))
;;
;; coercion

3
modules/reitit-malli/src/reitit/ring/malli.cljc
View file

@ -1,6 +1,5 @@
(ns reitit.ring.malli
#?(:clj (:import
(java.io File))))
#?(:clj (:import (java.io File))))
#?(:clj
(def temp-file-part

9
modules/reitit-middleware/src/reitit/ring/middleware/dev.clj
View file

@ -1,9 +1,8 @@
(ns reitit.ring.middleware.dev
(:require
[lambdaisland.deep-diff :as ddiff]
[lambdaisland.deep-diff.printer :as printer]
[puget.color :as color]
[reitit.core :as r]))
(:require [lambdaisland.deep-diff :as ddiff]
[lambdaisland.deep-diff.printer :as printer]
[puget.color :as color]
[reitit.core :as r]))
(def printer
(-> (printer/puget-printer)

14
modules/reitit-middleware/src/reitit/ring/middleware/exception.clj
View file

@ -1,12 +1,10 @@
(ns reitit.ring.middleware.exception
(:require
[clojure.spec.alpha :as s]
[clojure.string :as str]
[reitit.coercion :as coercion]
[reitit.ring :as ring])
(:import
(java.io Writer PrintWriter)
(java.time Instant)))
(:require [clojure.spec.alpha :as s]
[clojure.string :as str]
[reitit.coercion :as coercion]
[reitit.ring :as ring])
(:import (java.io Writer PrintWriter)
(java.time Instant)))
(s/def ::handlers (s/map-of any? fn?))
(s/def ::spec (s/keys :opt-un [::handlers]))

12
modules/reitit-middleware/src/reitit/ring/middleware/multipart.clj
View file

@ -1,12 +1,10 @@
(ns reitit.ring.middleware.multipart
(:refer-clojure :exclude [compile])
(:require
[clojure.spec.alpha :as s]
[reitit.coercion :as coercion]
[ring.middleware.multipart-params :as multipart-params]
[spec-tools.core :as st])
(:import
(java.io File)))
(:require [clojure.spec.alpha :as s]
[reitit.coercion :as coercion]
[ring.middleware.multipart-params :as multipart-params]
[spec-tools.core :as st])
(:import (java.io File)))
(s/def ::filename string?)
(s/def ::content-type string?)

7
modules/reitit-middleware/src/reitit/ring/middleware/muuntaja.clj
View file

@ -1,8 +1,7 @@
(ns reitit.ring.middleware.muuntaja
(:require
[clojure.spec.alpha :as s]
[muuntaja.core :as m]
[muuntaja.middleware]))
(:require [clojure.spec.alpha :as s]
[muuntaja.core :as m]
[muuntaja.middleware]))
(s/def ::muuntaja m/muuntaja?)
(s/def ::spec (s/keys :opt-un [::muuntaja]))

3
modules/reitit-middleware/src/reitit/ring/middleware/parameters.clj
View file

@ -1,6 +1,5 @@
(ns reitit.ring.middleware.parameters
(:require
[ring.middleware.params :as params]))
(:require [ring.middleware.params :as params]))
(def parameters-middleware
"Middleware to parse urlencoded parameters from the query string and form

16
modules/reitit-pedestal/src/reitit/pedestal.clj
View file

@ -1,13 +1,11 @@
(ns reitit.pedestal
(:require
[io.pedestal.http :as http]
[io.pedestal.interceptor :as interceptor]
[io.pedestal.interceptor.chain :as chain]
[reitit.http]
[reitit.interceptor])
(:import
(java.lang.reflect Method)
(reitit.interceptor Executor)))
(:require [io.pedestal.http :as http]
[io.pedestal.interceptor :as interceptor]
[io.pedestal.interceptor.chain :as chain]
[reitit.http]
[reitit.interceptor])
(:import (java.lang.reflect Method)
(reitit.interceptor Executor)))
;; TODO: variadic
(defn- arities [f]

15
modules/reitit-ring/src/reitit/ring.cljc
View file

@ -1,13 +1,12 @@
(ns reitit.ring
(:require
[clojure.string :as str]
[meta-merge.core :refer [meta-merge]]
#?@(:clj [[ring.util.mime-type :as mime-type]
(:require [clojure.string :as str]
[meta-merge.core :refer [meta-merge]]
#?@(:clj [[ring.util.mime-type :as mime-type]
[ring.util.response :as response]])
[reitit.core :as r]
[reitit.exception :as ex]
[reitit.impl :as impl]
[reitit.middleware :as middleware]))
[reitit.core :as r]
[reitit.exception :as ex]
[reitit.impl :as impl]
[reitit.middleware :as middleware]))
(declare get-match)
(declare get-router)

7
modules/reitit-ring/src/reitit/ring/coercion.cljc
View file

@ -1,8 +1,7 @@
(ns reitit.ring.coercion
(:require
[reitit.coercion :as coercion]
[reitit.impl :as impl]
[reitit.spec :as rs]))
(:require [reitit.coercion :as coercion]
[reitit.impl :as impl]
[reitit.spec :as rs]))
(defn handle-coercion-exception [e respond raise]
(let [data (ex-data e)]

9
modules/reitit-ring/src/reitit/ring/spec.cljc
View file

@ -1,9 +1,8 @@
(ns reitit.ring.spec
(:require
[clojure.spec.alpha :as s]
[reitit.exception :as exception]
[reitit.middleware :as middleware]
[reitit.spec :as rs]))
(:require [clojure.spec.alpha :as s]
[reitit.exception :as exception]
[reitit.middleware :as middleware]
[reitit.spec :as rs]))
;;
;; Specs

19
modules/reitit-schema/src/reitit/coercion/schema.cljc
View file

@ -1,14 +1,13 @@
(ns reitit.coercion.schema
(:require
[clojure.set :as set]
[clojure.walk :as walk]
[reitit.coercion :as coercion]
[schema-tools.coerce :as stc]
[schema-tools.core :as st]
[schema-tools.swagger.core :as swagger]
[schema.coerce :as sc]
[schema.core :as s]
[schema.utils :as su]))
(:require [clojure.set :as set]
[clojure.walk :as walk]
[reitit.coercion :as coercion]
[schema-tools.coerce :as stc]
[schema-tools.core :as st]
[schema-tools.swagger.core :as swagger]
[schema.coerce :as sc]
[schema.core :as s]
[schema.utils :as su]))
(def string-coercion-matcher
stc/string-coercion-matcher)

8
modules/reitit-schema/src/reitit/ring/schema.cljc
View file

@ -1,9 +1,7 @@
(ns reitit.ring.schema
(:require
[schema-tools.swagger.core :as swagger]
[schema.core :as s])
#?(:clj (:import
(java.io File))))
(:require [schema-tools.swagger.core :as swagger]
[schema.core :as s])
#?(:clj (:import (java.io File))))
(defrecord Upload [m]
s/Schema

7
modules/reitit-sieppari/src/reitit/interceptor/sieppari.clj
View file

@ -1,8 +1,7 @@
(ns reitit.interceptor.sieppari
(:require
[reitit.interceptor :as interceptor]
[sieppari.core :as sieppari]
[sieppari.queue :as queue]))
(:require [reitit.interceptor :as interceptor]
[sieppari.core :as sieppari]
[sieppari.queue :as queue]))
(def executor
(reify

18
modules/reitit-spec/src/reitit/coercion/spec.cljc
View file

@ -1,15 +1,13 @@
(ns reitit.coercion.spec
(:require
[clojure.set :as set]
[clojure.spec.alpha :as s]
[reitit.coercion :as coercion]
[spec-tools.core :as st #?@(:cljs [:refer [Spec]])]
[spec-tools.data-spec :as ds #?@(:cljs [:refer [Maybe]])]
[spec-tools.swagger.core :as swagger])
(:require [clojure.set :as set]
[clojure.spec.alpha :as s]
[reitit.coercion :as coercion]
[spec-tools.core :as st #?@(:cljs [:refer [Spec]])]
[spec-tools.data-spec :as ds #?@(:cljs [:refer [Maybe]])]
[spec-tools.swagger.core :as swagger])
#?(:clj
(:import
(spec_tools.core Spec)
(spec_tools.data_spec Maybe))))
(:import (spec_tools.core Spec)
(spec_tools.data_spec Maybe))))
(def string-transformer
(st/type-transformer

5
modules/reitit-swagger-ui/src/reitit/swagger_ui.cljc
View file

@ -1,7 +1,6 @@
(ns reitit.swagger-ui
#?(:clj (:require
[jsonista.core :as j]
[reitit.ring :as ring])))
#?(:clj (:require [jsonista.core :as j]
[reitit.ring :as ring])))
#?(:clj
(defn create-swagger-ui-handler

15
modules/reitit-swagger/src/reitit/swagger.cljc
View file

@ -1,12 +1,11 @@
(ns reitit.swagger
(:require
[clojure.set :as set]
[clojure.spec.alpha :as s]
[clojure.string :as str]
[meta-merge.core :refer [meta-merge]]
[reitit.coercion :as coercion]
[reitit.core :as r]
[reitit.trie :as trie]))
(:require [clojure.set :as set]
[clojure.spec.alpha :as s]
[clojure.string :as str]
[meta-merge.core :refer [meta-merge]]
[reitit.coercion :as coercion]
[reitit.core :as r]
[reitit.trie :as trie]))
(s/def ::id (s/or :keyword keyword? :set (s/coll-of keyword? :into #{})))
(s/def ::no-doc boolean?)

7
test/clj/cljdoc/reaper.clj
View file

@ -1,8 +1,7 @@
(ns cljdoc.reaper
(:require
[clojure.java.io :as io]
[clojure.pprint :as pprint]
[clojure.string :as str]))
(:require [clojure.java.io :as io]
[clojure.pprint :as pprint]
[clojure.string :as str]))
(defn reap! []
(let [docs (->> (for [line (-> (io/file "./doc/SUMMARY.md") (slurp) (str/split #"\n"))

20
test/clj/reitit/http/interceptors/exception_test.clj
View file

@ -1,15 +1,13 @@
(ns reitit.http.interceptors.exception-test
(:require
[clojure.test :refer [deftest is testing]]
[muuntaja.core :as m]
[reitit.coercion.spec]
[reitit.http :as http]
[reitit.http.coercion]
[reitit.http.interceptors.exception :as exception]
[reitit.interceptor.sieppari :as sieppari]
[reitit.ring :as ring])
(:import
(java.sql SQLException SQLWarning)))
(:require [clojure.test :refer [deftest is testing]]
[muuntaja.core :as m]
[reitit.coercion.spec]
[reitit.http :as http]
[reitit.http.coercion]
[reitit.http.interceptors.exception :as exception]
[reitit.interceptor.sieppari :as sieppari]
[reitit.ring :as ring])
(:import (java.sql SQLException SQLWarning)))
(derive ::kikka ::kukka)

13
test/clj/reitit/http/interceptors/muuntaja_test.clj
View file

@ -1,11 +1,10 @@
(ns reitit.http.interceptors.muuntaja-test
(:require
[clojure.test :refer [deftest is testing]]
[muuntaja.core :as m]
[reitit.http :as http]
[reitit.http.interceptors.muuntaja :as muuntaja]
[reitit.interceptor.sieppari :as sieppari]
[reitit.swagger :as swagger]))
(:require [clojure.test :refer [deftest is testing]]
[muuntaja.core :as m]
[reitit.http :as http]
[reitit.http.interceptors.muuntaja :as muuntaja]
[reitit.interceptor.sieppari :as sieppari]
[reitit.swagger :as swagger]))
(deftest muuntaja-test
(let [data {:kikka "kukka"}

11
test/clj/reitit/http/interceptors/parameters_test.clj
View file

@ -1,10 +1,9 @@
(ns reitit.http.interceptors.parameters-test
(:require
[clojure.test :refer [deftest is testing]]
[reitit.http :as http]
[reitit.http.interceptors.parameters :as parameters]
[reitit.interceptor.sieppari :as sieppari]
[reitit.swagger :as swagger]))
(:require [clojure.test :refer [deftest is testing]]
[reitit.http :as http]
[reitit.http.interceptors.parameters :as parameters]
[reitit.interceptor.sieppari :as sieppari]
[reitit.swagger :as swagger]))
(deftest parameters-test
(let [app (http/ring-handler

28
test/clj/reitit/http_coercion_test.clj
View file

@ -1,19 +1,17 @@
(ns reitit.http-coercion-test
(:require
[clojure.test :refer [deftest is testing]]
[jsonista.core :as j]
[muuntaja.interceptor]
[reitit.coercion.malli :as malli]
[reitit.coercion.schema :as schema]
[reitit.coercion.spec :as spec]
[reitit.core :as r]
[reitit.http :as http]
[reitit.http.coercion :as rrc]
[reitit.interceptor.sieppari :as sieppari]
[schema.core :as s])
(:import
(clojure.lang ExceptionInfo)
(java.io ByteArrayInputStream)))
(:require [clojure.test :refer [deftest is testing]]
[jsonista.core :as j]
[muuntaja.interceptor]
[reitit.coercion.malli :as malli]
[reitit.coercion.schema :as schema]
[reitit.coercion.spec :as spec]
[reitit.core :as r]
[reitit.http :as http]
[reitit.http.coercion :as rrc]
[reitit.interceptor.sieppari :as sieppari]
[schema.core :as s])
(:import (clojure.lang ExceptionInfo)
(java.io ByteArrayInputStream)))
(defn mounted-interceptor [app path method]
(->> app

20
test/clj/reitit/http_test.clj
View file

@ -1,16 +1,14 @@
(ns reitit.http-test
"just Clojure before Sieppari is ported into cljs"
(:require
[clojure.core.async :as a]
[clojure.set :as set]
[clojure.test :refer [deftest is testing]]
[reitit.core :as r]
[reitit.http :as http]
[reitit.interceptor :as interceptor]
[reitit.interceptor.sieppari :as sieppari]
[reitit.ring :as ring])
(:import
(clojure.lang ExceptionInfo)))
(:require [clojure.core.async :as a]
[clojure.set :as set]
[clojure.test :refer [deftest is testing]]
[reitit.core :as r]
[reitit.http :as http]
[reitit.interceptor :as interceptor]
[reitit.interceptor.sieppari :as sieppari]
[reitit.ring :as ring])
(:import (clojure.lang ExceptionInfo)))
(defn interceptor [name]
{:enter (fn [ctx] (update-in ctx [:request ::i] (fnil conj []) name))})

13
test/clj/reitit/pedestal_test.clj
View file

@ -1,11 +1,10 @@
(ns reitit.pedestal-test
(:require
[clojure.test :refer [deftest is testing]]
[io.pedestal.http]
[io.pedestal.test]
[reitit.http :as http]
[reitit.http.interceptors.exception :as exception]
[reitit.pedestal :as pedestal]))
(:require [clojure.test :refer [deftest is testing]]
[io.pedestal.http]
[io.pedestal.test]
[reitit.http :as http]
[reitit.http.interceptors.exception :as exception]
[reitit.pedestal :as pedestal]))
(deftest arities-test
(is (= #{0} (#'pedestal/arities (fn []))))

22
test/clj/reitit/ring/middleware/exception_test.clj
View file

@ -1,16 +1,14 @@
(ns reitit.ring.middleware.exception-test
(:require
[clojure.spec.alpha :as s]
[clojure.test :refer [deftest is testing]]
[muuntaja.core :as m]
[reitit.coercion :as coercion]
[reitit.coercion.spec]
[reitit.ring :as ring]
[reitit.ring.coercion]
[reitit.ring.middleware.exception :as exception]
[ring.util.http-response :as http-response])
(:import
(java.sql SQLException SQLWarning)))
(:require [clojure.spec.alpha :as s]
[clojure.test :refer [deftest is testing]]
[muuntaja.core :as m]
[reitit.coercion :as coercion]
[reitit.coercion.spec]
[reitit.ring :as ring]
[reitit.ring.coercion]
[reitit.ring.middleware.exception :as exception]
[ring.util.http-response :as http-response])
(:import (java.sql SQLException SQLWarning)))
(derive ::kikka ::kukka)

11
test/clj/reitit/ring/middleware/muuntaja_test.clj
View file

@ -1,10 +1,9 @@
(ns reitit.ring.middleware.muuntaja-test
(:require
[clojure.test :refer [deftest is testing]]
[muuntaja.core :as m]
[reitit.ring :as ring]
[reitit.ring.middleware.muuntaja :as muuntaja]
[reitit.swagger :as swagger]))
(:require [clojure.test :refer [deftest is testing]]
[muuntaja.core :as m]
[reitit.ring :as ring]
[reitit.ring.middleware.muuntaja :as muuntaja]
[reitit.swagger :as swagger]))
(deftest muuntaja-test
(let [data {:kikka "kukka"}

9
test/clj/reitit/ring/middleware/parameters_test.clj
View file

@ -1,9 +1,8 @@
(ns reitit.ring.middleware.parameters-test
(:require
[clojure.test :refer [deftest is testing]]
[reitit.ring :as ring]
[reitit.ring.middleware.parameters :as parameters]
[reitit.swagger :as swagger]))
(:require [clojure.test :refer [deftest is testing]]
[reitit.ring :as ring]
[reitit.ring.middleware.parameters :as parameters]
[reitit.swagger :as swagger]))
(deftest parameters-test
(let [app (ring/ring-handler

22
test/cljc/reitit/coercion_test.cljc
View file

@ -1,17 +1,15 @@
(ns reitit.coercion-test
(:require
[clojure.test :refer [deftest is testing]]
[malli.experimental.lite :as l]
[reitit.coercion :as coercion]
[reitit.coercion.malli]
[reitit.coercion.schema]
[reitit.coercion.spec]
[reitit.core :as r]
[schema.core :as s]
[spec-tools.data-spec :as ds])
(:require [clojure.test :refer [deftest is testing]]
[malli.experimental.lite :as l]
[reitit.coercion :as coercion]
[reitit.coercion.malli]
[reitit.coercion.schema]
[reitit.coercion.spec]
[reitit.core :as r]
[schema.core :as s]
[spec-tools.data-spec :as ds])
#?(:clj
(:import
(clojure.lang ExceptionInfo))))
(:import (clojure.lang ExceptionInfo))))
(deftest coercion-test
(let [r (r/router

12
test/cljc/reitit/core_test.cljc
View file

@ -1,12 +1,10 @@
(ns reitit.core-test
(:require
[clojure.test :refer [are deftest is testing]]
[reitit.core :as r #?@(:cljs [:refer [Router]])]
[reitit.impl :as impl])
(:require [clojure.test :refer [are deftest is testing]]
[reitit.core :as r #?@(:cljs [:refer [Router]])]
[reitit.impl :as impl])
#?(:clj
(:import
(clojure.lang ExceptionInfo)
(reitit.core Router))))
(:import (clojure.lang ExceptionInfo)
(reitit.core Router))))
(deftest reitit-test

8
test/cljc/reitit/dependency_test.cljc
View file

@ -1,9 +1,7 @@
(ns reitit.dependency-test
(:require
[clojure.test :refer [are deftest is testing]]
[reitit.dependency :as rc])
#?(:clj (:import
[clojure.lang ExceptionInfo])))
(:require [clojure.test :refer [are deftest is testing]]
[reitit.dependency :as rc])
#?(:clj (:import [clojure.lang ExceptionInfo])))
(deftest post-order-test
(let [base-middlewares [{:name ::bar, :provides #{:bar}, :requires #{:foo}, :wrap identity}

16
test/cljc/reitit/exception_test.cljc
View file

@ -1,14 +1,12 @@
(ns reitit.exception-test
(:require
[clojure.spec.alpha :as s]
[clojure.test :refer [are deftest is testing]]
[reitit.core :as r]
[reitit.dev.pretty :as pretty]
[reitit.exception :as exception]
[reitit.spec :as rs])
(:require [clojure.spec.alpha :as s]
[clojure.test :refer [are deftest is testing]]
[reitit.core :as r]
[reitit.dev.pretty :as pretty]
[reitit.exception :as exception]
[reitit.spec :as rs])
#?(:clj
(:import
(clojure.lang ExceptionInfo))))
(:import (clojure.lang ExceptionInfo))))
(s/def ::role #{:admin :manager})
(s/def ::roles (s/coll-of ::role :into #{}))

5
test/cljc/reitit/impl_test.cljc
View file

@ -1,7 +1,6 @@
(ns reitit.impl-test
(:require
[clojure.test :refer [are deftest is testing]]
[reitit.impl :as impl]))
(:require [clojure.test :refer [are deftest is testing]]
[reitit.impl :as impl]))
(deftest strip-nils-test
(is (= {:a 1, :c false} (impl/strip-nils {:a 1, :b nil, :c false}))))

10
test/cljc/reitit/interceptor_test.cljc
View file

@ -1,11 +1,9 @@
(ns reitit.interceptor-test
(:require
[clojure.test :refer [are deftest is testing]]
[reitit.core :as r]
[reitit.interceptor :as interceptor])
(:require [clojure.test :refer [are deftest is testing]]
[reitit.core :as r]
[reitit.interceptor :as interceptor])
#?(:clj
(:import
(clojure.lang ExceptionInfo))))
(:import (clojure.lang ExceptionInfo))))
(def ctx (interceptor/context []))

10
test/cljc/reitit/middleware_test.cljc
View file

@ -1,11 +1,9 @@
(ns reitit.middleware-test
(:require
[clojure.test :refer [are deftest is testing]]
[reitit.core :as r]
[reitit.middleware :as middleware])
(:require [clojure.test :refer [are deftest is testing]]
[reitit.core :as r]
[reitit.middleware :as middleware])
#?(:clj
(:import
(clojure.lang ExceptionInfo))))
(:import (clojure.lang ExceptionInfo))))
(def request [])

28
test/cljc/reitit/ring_coercion_test.cljc
View file

@ -1,21 +1,19 @@
(ns reitit.ring-coercion-test
(:require
[clojure.test :refer [deftest is testing]]
[malli.experimental.lite :as l]
#?@(:clj [[muuntaja.middleware]
(:require [clojure.test :refer [deftest is testing]]
[malli.experimental.lite :as l]
#?@(:clj [[muuntaja.middleware]
[jsonista.core :as j]])
[reitit.coercion.malli :as malli]
[reitit.coercion.schema :as schema]
[reitit.coercion.spec :as spec]
[reitit.core :as r]
[reitit.ring :as ring]
[reitit.ring.coercion :as rrc]
[schema.core :as s]
[spec-tools.data-spec :as ds])
[reitit.coercion.malli :as malli]
[reitit.coercion.schema :as schema]
[reitit.coercion.spec :as spec]
[reitit.core :as r]
[reitit.ring :as ring]
[reitit.ring.coercion :as rrc]
[schema.core :as s]
[spec-tools.data-spec :as ds])
#?(:clj
(:import
(clojure.lang ExceptionInfo)
(java.io ByteArrayInputStream))))
(:import (clojure.lang ExceptionInfo)
(java.io ByteArrayInputStream))))
(defn mounted-middleware [app path method]
(->> app

18
test/cljc/reitit/ring_spec_test.cljc
View file

@ -1,15 +1,13 @@
(ns reitit.ring-spec-test
(:require
[clojure.spec.alpha :as s]
[clojure.test :refer [deftest is testing]]
[reitit.coercion.spec]
[reitit.core :as r]
[reitit.ring :as ring]
[reitit.ring.coercion :as rrc]
[reitit.ring.spec :as rrs])
(:require [clojure.spec.alpha :as s]
[clojure.test :refer [deftest is testing]]
[reitit.coercion.spec]
[reitit.core :as r]
[reitit.ring :as ring]
[reitit.ring.coercion :as rrc]
[reitit.ring.spec :as rrs])
#?(:clj
(:import
(clojure.lang ExceptionInfo))))
(:import (clojure.lang ExceptionInfo))))
(s/def ::role #{:admin :user})
(s/def ::roles (s/and (s/coll-of ::role :into #{}) set?))

16
test/cljc/reitit/ring_test.cljc
View file

@ -1,14 +1,12 @@
(ns reitit.ring-test
(:require
[clojure.set :as set]
[clojure.test :refer [deftest is testing]]
[reitit.core :as r]
[reitit.middleware :as middleware]
[reitit.ring :as ring]
[reitit.trie :as trie])
(:require [clojure.set :as set]
[clojure.test :refer [deftest is testing]]
[reitit.core :as r]
[reitit.middleware :as middleware]
[reitit.ring :as ring]
[reitit.trie :as trie])
#?(:clj
(:import
(clojure.lang ExceptionInfo))))
(:import (clojure.lang ExceptionInfo))))
(defn mw [handler name]
(fn

14
test/cljc/reitit/spec_test.cljc
View file

@ -1,13 +1,11 @@
(ns reitit.spec-test
(:require
[#?(:clj clojure.spec.test.alpha :cljs cljs.spec.test.alpha) :as stest]
[clojure.spec.alpha :as s]
[clojure.test :refer [are deftest is testing use-fixtures]]
[reitit.core :as r]
[reitit.spec :as rs])
(:require [#?(:clj clojure.spec.test.alpha :cljs cljs.spec.test.alpha) :as stest]
[clojure.spec.alpha :as s]
[clojure.test :refer [are deftest is testing use-fixtures]]
[reitit.core :as r]
[reitit.spec :as rs])
#?(:clj
(:import
(clojure.lang ExceptionInfo))))
(:import (clojure.lang ExceptionInfo))))
(defn instrument-all [f]
(try

23
test/cljc/reitit/swagger_test.clj
View file

@ -1,16 +1,15 @@
(ns reitit.swagger-test
(:require
[clojure.test :refer [deftest is testing]]
[muuntaja.core :as m]
[reitit.coercion.malli :as malli]
[reitit.coercion.schema :as schema]
[reitit.coercion.spec :as spec]
[reitit.ring :as ring]
[reitit.ring.coercion :as rrc]
[reitit.swagger :as swagger]
[reitit.swagger-ui :as swagger-ui]
[schema.core :as s]
[spec-tools.data-spec :as ds]))
(:require [clojure.test :refer [deftest is testing]]
[muuntaja.core :as m]
[reitit.coercion.malli :as malli]
[reitit.coercion.schema :as schema]
[reitit.coercion.spec :as spec]
[reitit.ring :as ring]
[reitit.ring.coercion :as rrc]
[reitit.swagger :as swagger]
[reitit.swagger-ui :as swagger-ui]
[schema.core :as s]
[spec-tools.data-spec :as ds]))
(def app
(ring/ring-handler

5
test/cljc/reitit/trie_test.cljc
View file

@ -1,7 +1,6 @@
(ns reitit.trie-test
(:require
[clojure.test :refer [are deftest is testing]]
[reitit.trie :as trie]))
(:require [clojure.test :refer [are deftest is testing]]
[reitit.trie :as trie]))
(deftest into-set-test
(is (= #{} (trie/into-set nil)))