user.clj

(ns user
  (:require [clojure.tools.namespace.repl :as r]
            [criterium.core :refer [quick-bench bench with-progress-reporting]]
            [clojure.walk :refer [macroexpand-all]]
            [clojure.pprint :refer [pprint]]
            [clojure.test :as test]
            [promesa.core :as p]
            [promesa.protocols :as pt]
            [promesa.util :as pu])
  (:import java.util.concurrent.CompletableFuture
           java.util.concurrent.CompletionStage
           java.util.function.Function))

(defmacro run-quick-bench
  [& exprs]
  `(with-progress-reporting (quick-bench (do ~@exprs) :verbose)))

(defmacro run-quick-bench'
  [& exprs]
  `(quick-bench (do ~@exprs)))

(defmacro run-bench
  [& exprs]
  `(with-progress-reporting (bench (do ~@exprs) :verbose)))

(defmacro run-bench'
  [& exprs]
  `(bench (do ~@exprs)))

(defn- run-test
  ([] (run-test #"^promesa.tests.*"))
  ([o]
   (r/refresh)
   (cond
     (instance? java.util.regex.Pattern o)
     (test/run-all-tests o)

     (symbol? o)
     (if-let [sns (namespace o)]
       (do (require (symbol sns))
           (test/test-vars [(resolve o)]))
       (test/test-ns o)))))

(defn -main
  [& args]
  (require 'promesa.tests.test-core)
  (let [{:keys [fail]} (run-test)]
    (if (pos? fail)
      (System/exit fail)
      (System/exit 0))))

;; (defn simple-promise-chain-5-raw
;;   []
;;   @(as-> (CompletableFuture/completedFuture 1) $
;;      (p/then' $ inc)
;;      (p/then' $ inc)
;;      (p/then' $ inc)
;;      (p/then' $ inc)
;;      (p/then' $ inc)))

;; (defn simple-completable-chain-5-raw
;;   []
;;   @(as-> (CompletableFuture/completedFuture 1) $
;;      (.thenApply ^CompletionStage $ ^Function (pu/->FunctionWrapper inc))
;;      (.thenApply ^CompletionStage $ ^Function (pu/->FunctionWrapper inc))
;;      (.thenApply ^CompletionStage $ ^Function (pu/->FunctionWrapper inc))
;;      (.thenApply ^CompletionStage $ ^Function (pu/->FunctionWrapper inc))
;;      (.thenApply ^CompletionStage $ ^Function (pu/->FunctionWrapper inc))))