Set :state in build-missed-task

Author: strika

src/task.janet

@@ -12,8 +12,8 @@
   (merge task {:line line :schedule schedule}))
 
 (defn build-missed-task [title date &opt body]
-  (default body @[])
-  {:title title :body body :done false :missed-on date})
+  (def task (build-task title false body))
+  (merge task {:missed-on date}))
 
 (defn build-contact-task [title contact &opt body]
   (default body @[])

test/task_test.janet

@@ -25,6 +25,15 @@
   (test (task :done) false)
   (test (task :state) :open))
 
+## —————————————————————————————————————————————————————————————————————————————————————————————————
+## Test build-missed-task
+(deftest "builds a new missed task"
+  (def task (task/build-missed-task "Weekly meeting" date))
+  (test (task :title) "Weekly meeting")
+  (test (task :done) false)
+  (test (d/equal? (task :missed-on) date) true)
+  (test (task :state) :open))
+
 ## —————————————————————————————————————————————————————————————————————————————————————————————————
 ## Test mark-as-missed