format-ns

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

View file

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

View file

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

View file

@ -1,6 +1,5 @@
(ns reitit.core (ns reitit.core
(:require (:require [reitit.exception :as exception]
[reitit.exception :as exception]
[reitit.impl :as impl] [reitit.impl :as impl]
[reitit.trie :as trie])) [reitit.trie :as trie]))

View file

@ -1,7 +1,6 @@
(ns reitit.dependency (ns reitit.dependency
"Dependency resolution for middleware/interceptors." "Dependency resolution for middleware/interceptors."
(:require (:require [reitit.exception :as exception]))
[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,6 +1,5 @@
(ns reitit.exception (ns reitit.exception
(:require (:require [clojure.string :as str]))
[clojure.string :as str]))
(defn fail! (defn fail!
([type] ([type]

View file

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

View file

@ -1,6 +1,5 @@
(ns reitit.interceptor (ns reitit.interceptor
(:require (:require [clojure.pprint :as pprint]
[clojure.pprint :as pprint]
[meta-merge.core :refer [meta-merge]] [meta-merge.core :refer [meta-merge]]
[reitit.core :as r] [reitit.core :as r]
[reitit.exception :as exception] [reitit.exception :as exception]

View file

@ -1,6 +1,5 @@
(ns reitit.middleware (ns reitit.middleware
(:require (:require [clojure.pprint :as pprint]
[clojure.pprint :as pprint]
[meta-merge.core :refer [meta-merge]] [meta-merge.core :refer [meta-merge]]
[reitit.core :as r] [reitit.core :as r]
[reitit.exception :as exception] [reitit.exception :as exception]

View file

@ -1,6 +1,5 @@
(ns reitit.spec (ns reitit.spec
(:require (:require [clojure.spec.alpha :as s]
[clojure.spec.alpha :as s]
[clojure.spec.gen.alpha :as gen] [clojure.spec.gen.alpha :as gen]
[reitit.core :as r] [reitit.core :as r]
[reitit.exception :as exception])) [reitit.exception :as exception]))

View file

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

View file

@ -1,6 +1,5 @@
(ns reitit.dev.pretty (ns reitit.dev.pretty
(:require (:require [arrangement.core] ;; spell-spec
[arrangement.core] ;; spell-spec
[clojure.spec.alpha :as s] [clojure.spec.alpha :as s]
[clojure.string :as str] [clojure.string :as str]
[expound.alpha] ;; fipp [expound.alpha] ;; fipp
@ -11,7 +10,7 @@
[fipp.visit] [fipp.visit]
[reitit.exception :as exception] [reitit.exception :as exception]
[spell-spec.expound] ;; expound [spell-spec.expound] ;; expound
)) ))
;; ;;
;; colors ;; colors

View file

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

View file

@ -2,8 +2,7 @@
"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 (:require [reitit.frontend.history :as rfh]))
[reitit.frontend.history :as rfh]))
(defonce history (atom nil)) (defonce history (atom nil))

View file

@ -1,12 +1,10 @@
(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 (:require [goog.events :as gevents]
[goog.events :as gevents]
[reitit.core :as reitit] [reitit.core :as reitit]
[reitit.frontend :as rf]) [reitit.frontend :as rf])
(:import (:import goog.Uri))
goog.Uri))
(defprotocol History (defprotocol History
(-init [this] "Create event listeners") (-init [this] "Create event listeners")

View file

@ -1,6 +1,5 @@
(ns reitit.http (ns reitit.http
(:require (:require [meta-merge.core :refer [meta-merge]]
[meta-merge.core :refer [meta-merge]]
[reitit.core :as r] [reitit.core :as r]
[reitit.exception :as ex] [reitit.exception :as ex]
[reitit.interceptor :as interceptor] [reitit.interceptor :as interceptor]

View file

@ -1,6 +1,5 @@
(ns reitit.http.coercion (ns reitit.http.coercion
(:require (:require [reitit.coercion :as coercion]
[reitit.coercion :as coercion]
[reitit.impl :as impl] [reitit.impl :as impl]
[reitit.spec :as rs])) [reitit.spec :as rs]))

View file

@ -1,6 +1,5 @@
(ns reitit.http.spec (ns reitit.http.spec
(:require (:require [clojure.spec.alpha :as s]
[clojure.spec.alpha :as s]
[reitit.exception :as exception] [reitit.exception :as exception]
[reitit.interceptor :as interceptor] [reitit.interceptor :as interceptor]
[reitit.ring.spec :as rrs] [reitit.ring.spec :as rrs]

View file

@ -1,6 +1,5 @@
(ns reitit.http.interceptors.dev (ns reitit.http.interceptors.dev
(:require (:require [lambdaisland.deep-diff :as ddiff]
[lambdaisland.deep-diff :as ddiff]
[lambdaisland.deep-diff.printer :as printer] [lambdaisland.deep-diff.printer :as printer]
[puget.color :as color] [puget.color :as color]
[reitit.core :as r])) [reitit.core :as r]))

View file

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

View file

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

View file

@ -1,6 +1,5 @@
(ns reitit.http.interceptors.muuntaja (ns reitit.http.interceptors.muuntaja
(:require (:require [clojure.spec.alpha :as s]
[clojure.spec.alpha :as s]
[muuntaja.core :as m] [muuntaja.core :as m]
[muuntaja.interceptor])) [muuntaja.interceptor]))

View file

@ -1,6 +1,5 @@
(ns reitit.http.interceptors.parameters (ns reitit.http.interceptors.parameters
(:require (:require [ring.middleware.params :as params]))
[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,6 +1,5 @@
(ns reitit.coercion.malli (ns reitit.coercion.malli
(:require (:require [clojure.set :as set]
[clojure.set :as set]
[clojure.walk :as walk] [clojure.walk :as walk]
[malli.core :as m] [malli.core :as m]
[malli.edn :as edn] [malli.edn :as edn]

View file

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

View file

@ -1,6 +1,5 @@
(ns reitit.ring.middleware.dev (ns reitit.ring.middleware.dev
(:require (:require [lambdaisland.deep-diff :as ddiff]
[lambdaisland.deep-diff :as ddiff]
[lambdaisland.deep-diff.printer :as printer] [lambdaisland.deep-diff.printer :as printer]
[puget.color :as color] [puget.color :as color]
[reitit.core :as r])) [reitit.core :as r]))

View file

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

View file

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

View file

@ -1,6 +1,5 @@
(ns reitit.ring.middleware.muuntaja (ns reitit.ring.middleware.muuntaja
(:require (:require [clojure.spec.alpha :as s]
[clojure.spec.alpha :as s]
[muuntaja.core :as m] [muuntaja.core :as m]
[muuntaja.middleware])) [muuntaja.middleware]))

View file

@ -1,6 +1,5 @@
(ns reitit.ring.middleware.parameters (ns reitit.ring.middleware.parameters
(:require (:require [ring.middleware.params :as params]))
[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,12 +1,10 @@
(ns reitit.pedestal (ns reitit.pedestal
(:require (:require [io.pedestal.http :as http]
[io.pedestal.http :as http]
[io.pedestal.interceptor :as interceptor] [io.pedestal.interceptor :as interceptor]
[io.pedestal.interceptor.chain :as chain] [io.pedestal.interceptor.chain :as chain]
[reitit.http] [reitit.http]
[reitit.interceptor]) [reitit.interceptor])
(:import (:import (java.lang.reflect Method)
(java.lang.reflect Method)
(reitit.interceptor Executor))) (reitit.interceptor Executor)))
;; TODO: variadic ;; TODO: variadic

View file

@ -1,6 +1,5 @@
(ns reitit.ring (ns reitit.ring
(:require (:require [clojure.string :as str]
[clojure.string :as str]
[meta-merge.core :refer [meta-merge]] [meta-merge.core :refer [meta-merge]]
#?@(:clj [[ring.util.mime-type :as mime-type] #?@(:clj [[ring.util.mime-type :as mime-type]
[ring.util.response :as response]]) [ring.util.response :as response]])

View file

@ -1,6 +1,5 @@
(ns reitit.ring.coercion (ns reitit.ring.coercion
(:require (:require [reitit.coercion :as coercion]
[reitit.coercion :as coercion]
[reitit.impl :as impl] [reitit.impl :as impl]
[reitit.spec :as rs])) [reitit.spec :as rs]))

View file

@ -1,6 +1,5 @@
(ns reitit.ring.spec (ns reitit.ring.spec
(:require (:require [clojure.spec.alpha :as s]
[clojure.spec.alpha :as s]
[reitit.exception :as exception] [reitit.exception :as exception]
[reitit.middleware :as middleware] [reitit.middleware :as middleware]
[reitit.spec :as rs])) [reitit.spec :as rs]))

View file

@ -1,6 +1,5 @@
(ns reitit.coercion.schema (ns reitit.coercion.schema
(:require (:require [clojure.set :as set]
[clojure.set :as set]
[clojure.walk :as walk] [clojure.walk :as walk]
[reitit.coercion :as coercion] [reitit.coercion :as coercion]
[schema-tools.coerce :as stc] [schema-tools.coerce :as stc]

View file

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

View file

@ -1,6 +1,5 @@
(ns reitit.interceptor.sieppari (ns reitit.interceptor.sieppari
(:require (:require [reitit.interceptor :as interceptor]
[reitit.interceptor :as interceptor]
[sieppari.core :as sieppari] [sieppari.core :as sieppari]
[sieppari.queue :as queue])) [sieppari.queue :as queue]))

View file

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

View file

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

View file

@ -1,6 +1,5 @@
(ns reitit.swagger (ns reitit.swagger
(:require (:require [clojure.set :as set]
[clojure.set :as set]
[clojure.spec.alpha :as s] [clojure.spec.alpha :as s]
[clojure.string :as str] [clojure.string :as str]
[meta-merge.core :refer [meta-merge]] [meta-merge.core :refer [meta-merge]]

View file

@ -1,6 +1,5 @@
(ns cljdoc.reaper (ns cljdoc.reaper
(:require (:require [clojure.java.io :as io]
[clojure.java.io :as io]
[clojure.pprint :as pprint] [clojure.pprint :as pprint]
[clojure.string :as str])) [clojure.string :as str]))

View file

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

View file

@ -1,6 +1,5 @@
(ns reitit.http.interceptors.muuntaja-test (ns reitit.http.interceptors.muuntaja-test
(:require (:require [clojure.test :refer [deftest is testing]]
[clojure.test :refer [deftest is testing]]
[muuntaja.core :as m] [muuntaja.core :as m]
[reitit.http :as http] [reitit.http :as http]
[reitit.http.interceptors.muuntaja :as muuntaja] [reitit.http.interceptors.muuntaja :as muuntaja]

View file

@ -1,6 +1,5 @@
(ns reitit.http.interceptors.parameters-test (ns reitit.http.interceptors.parameters-test
(:require (:require [clojure.test :refer [deftest is testing]]
[clojure.test :refer [deftest is testing]]
[reitit.http :as http] [reitit.http :as http]
[reitit.http.interceptors.parameters :as parameters] [reitit.http.interceptors.parameters :as parameters]
[reitit.interceptor.sieppari :as sieppari] [reitit.interceptor.sieppari :as sieppari]

View file

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

View file

@ -1,7 +1,6 @@
(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 (:require [clojure.core.async :as a]
[clojure.core.async :as a]
[clojure.set :as set] [clojure.set :as set]
[clojure.test :refer [deftest is testing]] [clojure.test :refer [deftest is testing]]
[reitit.core :as r] [reitit.core :as r]
@ -9,8 +8,7 @@
[reitit.interceptor :as interceptor] [reitit.interceptor :as interceptor]
[reitit.interceptor.sieppari :as sieppari] [reitit.interceptor.sieppari :as sieppari]
[reitit.ring :as ring]) [reitit.ring :as ring])
(:import (:import (clojure.lang ExceptionInfo)))
(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,6 +1,5 @@
(ns reitit.pedestal-test (ns reitit.pedestal-test
(:require (:require [clojure.test :refer [deftest is testing]]
[clojure.test :refer [deftest is testing]]
[io.pedestal.http] [io.pedestal.http]
[io.pedestal.test] [io.pedestal.test]
[reitit.http :as http] [reitit.http :as http]

View file

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

View file

@ -1,6 +1,5 @@
(ns reitit.ring.middleware.muuntaja-test (ns reitit.ring.middleware.muuntaja-test
(:require (:require [clojure.test :refer [deftest is testing]]
[clojure.test :refer [deftest is testing]]
[muuntaja.core :as m] [muuntaja.core :as m]
[reitit.ring :as ring] [reitit.ring :as ring]
[reitit.ring.middleware.muuntaja :as muuntaja] [reitit.ring.middleware.muuntaja :as muuntaja]

View file

@ -1,6 +1,5 @@
(ns reitit.ring.middleware.parameters-test (ns reitit.ring.middleware.parameters-test
(:require (:require [clojure.test :refer [deftest is testing]]
[clojure.test :refer [deftest is testing]]
[reitit.ring :as ring] [reitit.ring :as ring]
[reitit.ring.middleware.parameters :as parameters] [reitit.ring.middleware.parameters :as parameters]
[reitit.swagger :as swagger])) [reitit.swagger :as swagger]))

View file

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

View file

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

View file

@ -1,9 +1,7 @@
(ns reitit.dependency-test (ns reitit.dependency-test
(:require (:require [clojure.test :refer [are deftest is testing]]
[clojure.test :refer [are deftest is testing]]
[reitit.dependency :as rc]) [reitit.dependency :as rc])
#?(:clj (:import #?(:clj (:import [clojure.lang ExceptionInfo])))
[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,14 +1,12 @@
(ns reitit.exception-test (ns reitit.exception-test
(:require (:require [clojure.spec.alpha :as s]
[clojure.spec.alpha :as s]
[clojure.test :refer [are deftest is testing]] [clojure.test :refer [are deftest is testing]]
[reitit.core :as r] [reitit.core :as r]
[reitit.dev.pretty :as pretty] [reitit.dev.pretty :as pretty]
[reitit.exception :as exception] [reitit.exception :as exception]
[reitit.spec :as rs]) [reitit.spec :as rs])
#?(:clj #?(:clj
(:import (:import (clojure.lang ExceptionInfo))))
(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,5 @@
(ns reitit.impl-test (ns reitit.impl-test
(:require (:require [clojure.test :refer [are deftest is testing]]
[clojure.test :refer [are deftest is testing]]
[reitit.impl :as impl])) [reitit.impl :as impl]))
(deftest strip-nils-test (deftest strip-nils-test

View file

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

View file

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

View file

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

View file

@ -1,6 +1,5 @@
(ns reitit.ring-spec-test (ns reitit.ring-spec-test
(:require (:require [clojure.spec.alpha :as s]
[clojure.spec.alpha :as s]
[clojure.test :refer [deftest is testing]] [clojure.test :refer [deftest is testing]]
[reitit.coercion.spec] [reitit.coercion.spec]
[reitit.core :as r] [reitit.core :as r]
@ -8,8 +7,7 @@
[reitit.ring.coercion :as rrc] [reitit.ring.coercion :as rrc]
[reitit.ring.spec :as rrs]) [reitit.ring.spec :as rrs])
#?(:clj #?(:clj
(:import (:import (clojure.lang ExceptionInfo))))
(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,14 +1,12 @@
(ns reitit.ring-test (ns reitit.ring-test
(:require (:require [clojure.set :as set]
[clojure.set :as set]
[clojure.test :refer [deftest is testing]] [clojure.test :refer [deftest is testing]]
[reitit.core :as r] [reitit.core :as r]
[reitit.middleware :as middleware] [reitit.middleware :as middleware]
[reitit.ring :as ring] [reitit.ring :as ring]
[reitit.trie :as trie]) [reitit.trie :as trie])
#?(:clj #?(:clj
(:import (:import (clojure.lang ExceptionInfo))))
(clojure.lang ExceptionInfo))))
(defn mw [handler name] (defn mw [handler name]
(fn (fn

View file

@ -1,13 +1,11 @@
(ns reitit.spec-test (ns reitit.spec-test
(:require (: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]
[clojure.test :refer [are deftest is testing use-fixtures]] [clojure.test :refer [are deftest is testing use-fixtures]]
[reitit.core :as r] [reitit.core :as r]
[reitit.spec :as rs]) [reitit.spec :as rs])
#?(:clj #?(:clj
(:import (:import (clojure.lang ExceptionInfo))))
(clojure.lang ExceptionInfo))))
(defn instrument-all [f] (defn instrument-all [f]
(try (try

View file

@ -1,6 +1,5 @@
(ns reitit.swagger-test (ns reitit.swagger-test
(:require (:require [clojure.test :refer [deftest is testing]]
[clojure.test :refer [deftest is testing]]
[muuntaja.core :as m] [muuntaja.core :as m]
[reitit.coercion.malli :as malli] [reitit.coercion.malli :as malli]
[reitit.coercion.schema :as schema] [reitit.coercion.schema :as schema]

View file

@ -1,6 +1,5 @@
(ns reitit.trie-test (ns reitit.trie-test
(:require (:require [clojure.test :refer [are deftest is testing]]
[clojure.test :refer [are deftest is testing]]
[reitit.trie :as trie])) [reitit.trie :as trie]))
(deftest into-set-test (deftest into-set-test