File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change 2323(defn- evaluate-broker [implementation]
2424 (let [all-methods (set (extract-methods implementation))
2525 implemented (intersection potential all-methods)
26- lacking (difference potential all-methods)]
26+ lacking (difference potential all-methods)]
2727 {:broker (s/lower-case (.getSimpleName implementation))
2828 :implemented (vec implemented)
2929 :lacking (vec lacking)
3232 (count potential)))))
3333 " %" )}))
3434
35- (defn- gauge
35+ (defn- gauge
3636 " evaluates capabilities of broker implementations"
3737 []
3838 (try
Original file line number Diff line number Diff line change 2020 (if (tu/broker-testable? broker requirements)
2121 (tu/with-fixtures broker
2222 (fn [ex] (report {:type :default
23- :message (ex-message ex)}))
24- (testing (str " Async Execution" broker)
23+ :message (ex-message ex)}))
24+ (testing (str " Async Execution" broker)
2525 (let [_ (c/perform-async (tu/get-opts broker :client )
2626 `perform-async-fn
2727 ::async-execution-test )
Original file line number Diff line number Diff line change 1010 (let [test-name (symbol (str broker " -" test-type))]
1111 `(deftest ~test-name
1212 (testing (str ~test-type " : " ~broker)
13- (let [~'broker ~broker]
13+ (let [~'broker ~broker]
1414 ~@test-body)))))))
1515
1616; ; linter throws err on broker not being resolvable
Original file line number Diff line number Diff line change 2727 " predicate on whether the broker implementation
2828 is capable enough to execute test-type"
2929 [broker requirements]
30- (s/subset? requirements
30+ (s/subset? requirements
3131 (c/fetch-capabilities broker)))
3232
3333(defmacro with-fixtures [broker failure-reporter & body]
3434 (letfn [(fetch-fixtures [broker pos]
3535 (map list
3636 (get-in broker-utils
3737 [broker :fixtures pos])))]
38- `(do
38+ `(do
3939 ~@(fetch-fixtures broker :pre )
4040 (try
4141 ~@body
You can’t perform that action at this time.
0 commit comments