test(e2e,rtc): update-task-blocks support update-priority as well

This commit is contained in:
rcmerci
2025-05-22 20:44:52 +08:00
parent 3d2abe76f1
commit 20c6aa24a8

View File

@@ -89,6 +89,8 @@
"Done" "Done"
"Canceled" "Cancelled"})
(def priorities ["No priority" "Low" "Medium" "High" "Urgent"])
(defn- validate-task-blocks
[]
(let [icon-names (vals status->icon-name)
@@ -108,7 +110,7 @@
(defn- insert-task-blocks
[title-prefix]
(doseq [status (keys status->icon-name)
priority ["No priority" "Low" "Medium" "High" "Urgent"]]
priority priorities]
(b/new-block (str title-prefix "-" status "-" priority))
(util/input-command status)
(util/input-command priority)))
@@ -119,7 +121,8 @@
(doseq [q-seq qs-partitions]
(doseq [q q-seq]
(w/click q)
(util/input-command (rand-nth (keys status->icon-name)))))))
(util/input-command (rand-nth (keys status->icon-name)))
(util/input-command (rand-nth priorities))))))
(deftest rtc-task-blocks-test
(let [insert-task-blocks-in-page2