✨ Improvements on backend application initialization.

On repl and on production environment.

backend/deps.edn

@@ -60,9 +60,6 @@
     mockery/mockery {:mvn/version "0.1.4"}}
    :extra-paths ["tests"]}
 
-  :repl
-  {:main-opts  ["-m" "rebel-readline.main"]}
-
   :tests
   {:extra-deps {lambdaisland/kaocha {:mvn/version "0.0-581"}}
    :main-opts ["-m" "kaocha.runner"]}

backend/src/uxbox/main.clj

@@ -16,17 +16,18 @@
   (let [m (System/getProperty "uxbox.enable-asserts")]
     (or (nil? m) (= "true" m))))
 
-;; Set value for current thread binding.
-(set! *assert* (enable-asserts nil))
-
 ;; Set value for all new threads bindings.
 (alter-var-root #'*assert* enable-asserts)
 
+;; Set value for current thread binding.
+(set! *assert* (enable-asserts nil))
+
 ;; --- Entry point
 
 (defn -main
   [& args]
-  (load "uxbox/config"
-        "uxbox/migrations"
-        "uxbox/http")
+  (require 'uxbox.config
+           'uxbox.migrations
+           'uxbox.http
+           'uxbox.tasks)
   (mount/start))

backend/src/uxbox/tasks.clj

@@ -21,6 +21,7 @@
    [uxbox.tasks.demo-gc]
    [uxbox.tasks.sendmail]
    [uxbox.tasks.impl :as impl]
+   [uxbox.util.time :as dt]
    [vertx.core :as vc]
    [vertx.timers :as vt]))
 
@@ -49,7 +50,7 @@
 
 (def ^:private schedule
   [{:id "every 1 hour"
-    :cron #uxbox/cron "1 1 */1 * * ? *"
+    :cron (dt/cron "1 1 */1 * * ? *")
     :fn #'uxbox.tasks.demo-gc/handler
     :props {:foo 1}}])
 

backend/tests/user.clj

@@ -19,8 +19,7 @@
    [criterium.core :refer [quick-bench bench with-progress-reporting]]
    [promesa.core :as p]
    [promesa.exec :as pe]
-   [mount.core :as mount]
-   [uxbox.main]))
+   [mount.core :as mount]))
 
 ;; --- Benchmarking Tools
 

common/uxbox/common/pages.cljc

@@ -155,7 +155,7 @@
 
 (defn process-changes
   [data items]
-  (->> (us/assert ::changes items)
+  (->> (us/verify ::changes items)
        (reduce process-change data)))
 
 (defn- process-change