Set :state in build-scheduled-task

Author: strika

src/task.janet

@@ -8,7 +8,8 @@
   {:title title :body body :done done :state (if done :checked :open)})
 
 (defn build-scheduled-task [line title schedule]
-  {:line line :title title :done false :schedule schedule})
+  (def task (build-task title false))
+  (merge task {:line line :schedule schedule}))
 
 (defn build-missed-task [title date &opt body]
   (default body @[])

test/task_test.janet

@@ -17,6 +17,14 @@
   (def task (task/build-task "Weekly meeting" true))
   (test (task :state) :checked))
 
+## —————————————————————————————————————————————————————————————————————————————————————————————————
+## Test build-scheduled-task
+(deftest "builds a new scheduled task"
+  (def task (task/build-scheduled-task 15 "Weekly meeting" "every Tuesday"))
+  (test (task :title) "Weekly meeting")
+  (test (task :done) false)
+  (test (task :state) :open))
+
 ## —————————————————————————————————————————————————————————————————————————————————————————————————
 ## Test mark-as-missed