mirror of
https://github.com/penpot/penpot.git
synced 2025-02-04 13:29:14 -05:00
20 lines
537 B
Clojure
20 lines
537 B
Clojure
|
(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))))
|