File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change 1717 (setup-test-promise test-name)
1818 (tu/with-fixture broker
1919 (fn [ex] (report {:type :default
20- :message (ex-message ex)}))
20+ :message (ex-message ex)}))
2121 (testing (str " Async Execution" broker)
2222 (let [_ (c/perform-async (tu/get-opts broker :client )
2323 `executable
Original file line number Diff line number Diff line change 1515 (doseq [broker (keys (tu/get-configs :implementations ))]
1616 (let [test-name (str (symbol broker) " -absolute-scheduling-test" )]
1717 (if (tu/broker-testable? broker requirements)
18- (do
18+ (do
1919 (setup-test-promise test-name)
2020 (tu/with-fixture broker
21- (fn [ex] (report {:type :default
22- :message (ex-message ex)}))
21+ (fn [ex] (report {:type :default
22+ :message (ex-message ex)}))
2323 (testing (str " Absolute Scheduling" broker)
2424 (let [_ (c/perform-at (tu/get-opts broker :client )
2525 (Instant/now )
3737 (doseq [broker (keys (tu/get-configs :implementations ))]
3838 (let [test-name (str (symbol broker) " -relative-scheduling-test" )]
3939 (if (tu/broker-testable? broker requirements)
40- (do
40+ (do
4141 (setup-test-promise test-name)
4242 (tu/with-fixture broker
43- (fn [ex] (report {:type :default
44- :message (ex-message ex)}))
43+ (fn [ex] (report {:type :default
44+ :message (ex-message ex)}))
4545 (testing (str " Relative Scheduling" broker)
4646 (let [_ (c/perform-in-sec (tu/get-opts broker :client )
4747 1
5353 (delivered-execution test-name)))
5454 (w/stop scheduler)))))
5555 (report {:type :default
56- :message (str " Relative Scheduling" broker " is not testable" )})))))
56+ :message (str " Relative Scheduling" broker " is not testable" )})))))
You can’t perform that action at this time.
0 commit comments