This commit is contained in:
Tommi Reiman 2022-02-12 22:35:27 +02:00
parent 5d4c886d35
commit bdcb1eb5b1
61 changed files with 407 additions and 322 deletions

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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