|
|
@@ -145,3 +145,16 @@
|
|
|
(util/exit-edit)
|
|
|
(w/wait-for (str ".ls-icon-" (get priority->icon priority
|
|
|
(str "priorityLvl" priority)))))))))
|
|
|
+
|
|
|
+(deftest scheduled-deadline-test
|
|
|
+ (testing "task scheduled and deadline commands"
|
|
|
+ (doseq [command ["Scheduled" "Deadline"]]
|
|
|
+ (fixtures/create-page)
|
|
|
+ (let [text (str command " test ")]
|
|
|
+ (b/new-block text)
|
|
|
+ (input-command command)
|
|
|
+ (k/enter)
|
|
|
+ (k/esc)
|
|
|
+ (util/exit-edit)
|
|
|
+ (is (= command (util/get-text ".property-k")))
|
|
|
+ (is (= "Today" (util/get-text ".ls-datetime a.page-ref")))))))
|