fix: closed values test

pull/11177/head
Tienson Qin 2024-04-21 14:54:43 +08:00
parent d92a3257b0
commit 9c93152fd6
1 changed files with 4 additions and 4 deletions

View File

@ -53,17 +53,17 @@
(is (every? #(contains? (:block/type (db/entity [:block/uuid %])) "closed value")
values))))
(testing "Add non-numbers shouldn't work"
(let [result (db-property-handler/upsert-closed-value property {:value "not a number"})]
(p/let [result (db-property-handler/upsert-closed-value property {:value "not a number"})]
(is (= result :value-invalid))
(let [values (get-value-ids k)]
(is (= #{1 2} (get-closed-values values))))))
(testing "Add existing value"
(let [result (db-property-handler/upsert-closed-value property {:value 2})]
(p/let [result (db-property-handler/upsert-closed-value property {:value 2})]
(is (= result :value-exists))))
(testing "Add new value"
(let [{:keys [block-id tx-data]} (db-property-handler/upsert-closed-value property {:value 3})]
(p/let [{:keys [block-id tx-data]} (db-property-handler/upsert-closed-value property {:value 3})]
(db/transact! tx-data)
(let [b (db/entity [:block/uuid block-id])]
(is (= 3 (:value (:block/schema b))))
@ -72,7 +72,7 @@
(is (= #{1 2 3} (get-closed-values values))))
(testing "Update closed value"
(let [{:keys [tx-data]} (db-property-handler/upsert-closed-value property {:id block-id
(p/let [{:keys [tx-data]} (db-property-handler/upsert-closed-value property {:id block-id
:value 4
:description "choice 4"})]
(db/transact! tx-data)