(ns uxbox.tests.test-txlog
  "A txlog and services abstraction generic tests."
  (:require [clojure.test :as t]
            [promesa.core :as p]
            [uxbox.services.core :as usc]
            [uxbox.services :as usv]
            [uxbox.tests.helpers :as th]))

(t/use-fixtures :each th/database-reset)

(defmethod usc/novelty ::testype1
  [data]
  true)

(t/deftest txlog-spec1
  (let [data {:type ::testype1 :foo 1 :bar "baz"}
        response (usv/novelty data)]
    (t/is (p/promise? response))
    (t/is (= true @response))))