🐛 Fix many bugs in email sending namespaces.

backend/test/uxbox/tests/helpers.clj

@@ -19,7 +19,6 @@
   (let [config (cfg/read-test-config)]
     (-> (mount/only #{#'uxbox.config/config
                       #'uxbox.config/secret
-                      ;; #'uxbox.db/datasource
                       #'uxbox.core/system
                       #'uxbox.db/pool
                       #'uxbox.migrations/migrations

backend/test/uxbox/tests/test_emails.clj

@@ -0,0 +1,45 @@
+;; This Source Code Form is subject to the terms of the Mozilla Public
+;; License, v. 2.0. If a copy of the MPL was not distributed with this
+;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
+;;
+;; Copyright (c) 2019 Andrey Antukh <niwi@niwi.nz>
+
+(ns uxbox.tests.test-emails
+  (:require
+   [clojure.test :as t]
+   [promesa.core :as p]
+   [mockery.core :refer [with-mock]]
+   [uxbox.db :as db]
+   [uxbox.emails :as emails]
+   [uxbox.services.core :as sv]
+   [uxbox.tests.helpers :as th]))
+
+(t/use-fixtures :once th/state-init)
+(t/use-fixtures :each th/database-reset)
+
+(t/deftest register-email-rendering
+  (let [result (emails/render emails/register {:to "example@uxbox.io"})]
+    (t/is (map? result))
+    (t/is (contains? result :subject))
+    (t/is (contains? result :body))
+    (t/is (contains? result :to))
+    (t/is (contains? result :reply-to))
+    (t/is (vector? (:body result)))))
+
+(t/deftest email-sending-and-sendmail-job
+  (let [res @(emails/send! emails/register {:to "example@uxbox.io"})]
+    (t/is (nil? res)))
+  (with-mock mock
+    {:target 'uxbox.jobs.sendmail/impl-sendmail
+     :return (p/resolved nil)}
+
+    (let [res @(uxbox.jobs.sendmail/send-emails {})]
+      (t/is (= 1 res))
+      (t/is (:called? @mock))
+      (t/is (= 1 (:call-count @mock))))
+
+    (let [res @(uxbox.jobs.sendmail/send-emails {})]
+      (t/is (= 0 res))
+      (t/is (:called? @mock))
+      (t/is (= 1 (:call-count @mock))))))
+