Set :state in build-task

Author: strika

src/task.janet

@@ -5,7 +5,7 @@
 
 (defn build-task [title done &opt body]
   (default body @[])
-  {:title title :body body :done done})
+  {: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})

test/task_test.janet

@@ -3,19 +3,24 @@
 (import ../src/date :as d)
 (import ../src/task)
 
+(def date (d/date 2022 7 15))
+
 ## —————————————————————————————————————————————————————————————————————————————————————————————————
 ## Test build-task
 (deftest "builds a new task"
-  (def date (d/date 2022 7 15))
   (def task (task/build-task "Weekly meeting" false))
   (test (task :title) "Weekly meeting")
-  (test (task :done) false))
+  (test (task :done) false)
+  (test (task :state) :open))
+
+(deftest "sets the correct state for tasks that are done"
+  (def task (task/build-task "Weekly meeting" true))
+  (test (task :state) :checked))
 
 ## —————————————————————————————————————————————————————————————————————————————————————————————————
 ## Test mark-as-missed
 
 (deftest "marks task as missed"
-  (def date (d/date 2022 7 15))
   (def task (task/build-task "Weekly meeting" false))
   (def new-task (task/mark-as-missed task date))
   (test (new-task :title) "Weekly meeting")