SQL-197 test for add meta

yetanalytics · Jul 25, 2023 · 79ace56 · 79ace56
1 parent 5061bad
commit 79ace56
Showing 1 changed file with 11 additions and 2 deletions.
diff --git a/src/test/lrsql/util/reaction_test.clj b/src/test/lrsql/util/reaction_test.clj
@@ -1,6 +1,8 @@
 (ns lrsql.util.reaction-test
-  (:require [clojure.test :refer [deftest are]]
-            [lrsql.util.reaction :as r]))
+  (:require [clojure.test :refer [deftest is are]]
+            [lrsql.util :as u]
+            [lrsql.util.reaction :as r]
+            [lrsql.spec.statement :as ss]))
 
 (deftest path->string-test
   (are [input output]
@@ -45,3 +47,10 @@
 
     [[:actor]]
     nil))
+
+(deftest add-reaction-metadata-test
+  (let [reaction-id (u/generate-squuid)
+        trigger-id  (u/generate-squuid)]
+    (is (= {::ss/reaction-id reaction-id
+            ::ss/trigger-id  trigger-id}
+           (meta (r/add-reaction-metadata stmt-a reaction-id trigger-id))))))