Set :state in build-contact-task

Author: strika

src/task.janet

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

test/task_test.janet

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